开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 传真(Fax)编程 > 查看源码
FaxConv.PAS
资源名称：FaxConvert.zip　[点击查看]
上传用户：dgeyuang
上传日期：2007-01-11
资源大小：65k
文件大小：15k
源码类别：

传真(Fax)编程

开发平台：

Delphi

FaxConv.PAS：源码内容
  1. unit Faxconv;
  3. interface
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, IniFiles,
  7.   Forms, Dialogs, StdCtrls, FileCtrl, OoMisc, AdFaxCvt, ExtCtrls, AdMeter,
  8.   Mask, ComCtrls, RichEdit2,jpeg;
  10. type
  11.   TFaxConversionForm = class(TForm)
  12.     btnOK: TButton;
  13.     ApdFaxConverter1: TApdFaxConverter;
  14.     btnConvert: TButton;
  15.     GroupBox2: TGroupBox;
  16.     cbxEnhTextEnabled: TCheckBox;
  17.     btnEnhFont: TButton;
  18.     FontDialog1: TFontDialog;
  19.     Label3: TLabel;
  20.     Label4: TLabel;
  21.     rgpResolution: TRadioGroup;
  22.     RadioGroup2:TRadioGroup;
  23.     Label5: TLabel;
  24.     rgpWidth: TRadioGroup;
  25.     Label6: TLabel;
  26.     GroupBox3: TGroupBox;
  27.     cbxCenterImage: TCheckBox;
  28.     cbxYield: TCheckBox;
  29.     cbxYieldOften: TCheckBox;
  30.     lblFontName: TLabel;
  31.     lblFontSize: TLabel;
  32.     edtLeftMargin: TMaskEdit;
  33.     edtTopMargin: TMaskEdit;
  34.     edtLinesPerPage: TMaskEdit;
  35.     edtTabStop: TMaskEdit;
  36.     GroupBox1: TGroupBox;
  37.     Label2: TLabel;
  38.     edtOutFileName: TEdit;
  39.     Label1: TLabel;
  40.     edtFileName: TEdit;
  41.     btnBrowseInFile: TButton;
  42.     Button2: TButton;
  43.     OpenDialog1: TOpenDialog;
  44.     RadioGroup1: TRadioGroup;
  45.     Label7: TLabel;
  46.     CheckBox1: TCheckBox;
  47.     RichEdit981: TRichEdit98;
  48.     RichEdit982: TRichEdit98;
  49.     Image2: TImage;
  50.     Image1: TImage;
  51.     procedure FormCreate(Sender: TObject);
  52.     procedure btnConvertClick(Sender: TObject);
  53.     procedure ApdFaxConverter1Status(F: TObject; Starting, Ending: Boolean;
  54.       PagesConverted, LinesConverted: Integer; BytesConverted,
  55.       BytesToConvert: Longint; var Abort: Boolean);
  56.     procedure btnEnhFontClick(Sender: TObject);
  57.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  58.     procedure cbxCenterImageClick(Sender: TObject);
  59.     procedure cbxYieldClick(Sender: TObject);
  60.     procedure cbxYieldOftenClick(Sender: TObject);
  61.     procedure rgpResolutionClick(Sender: TObject);
  62.     procedure rgpWidthClick(Sender: TObject);
  63.     procedure edtLeftMarginExit(Sender: TObject);
  64.     procedure edtTopMarginExit(Sender: TObject);
  65.     procedure edtLinesPerPageExit(Sender: TObject);
  66.     procedure edtTabStopExit(Sender: TObject);
  67.     procedure btnBrowseInFileClick(Sender: TObject);
  68.     procedure Button2Click(Sender: TObject);
  69.     procedure RadioGroup2Click(Sender: TObject);
  70.     procedure edtFileNameExit(Sender: TObject);
  71.     procedure btnOKClick(Sender: TObject);
  72.   private
  73.     { Private declarations }
  74.     Meter: TApdMeter;
  75.   public
  76.     { Public declarations }
  77.     Cancelled : Boolean;
  78.     LastInDir,
  79.     LastOutDir: String;
  80.   end;
  82. const
  83.   IniName = 'TCom3.ini';
  84.   crHand = 1;
  85. var
  86.   FaxConversionForm: TFaxConversionForm;
  87.                             //选择内容
  88. implementation
  90. uses Faxcnvid, RotateUnit,CovertBmp, FDConvrt;
  92. {$R *.DFM}
  94. procedure TFaxConversionForm.FormCreate(Sender: TObject);
  95. var
  96.   Ini: TIniFile;
  97. begin
  98.   Meter := TApdMeter.Create(Self);
  99.   Meter.Parent := Self;
  100.   Meter.Top := btnConvert.Top;
  101.   Meter.Left := GroupBox1.Left;
  102.   Meter.Width := btnConvert.Left - GroupBox1.Left - 8;
  103.   Meter.Height := btnConvert.Height;
  104.   Meter.Visible := True;
  105.   Cancelled := False;
  106.   Ini := TIniFile.Create(IniName);
  107.   try
  108.     LastInDir := Ini.ReadString('FaxConvert', 'LastInDir', ExtractFilePath(Application.ExeName));
  109.     LastOutDir := Ini.ReadString('FaxConvert', 'LastOutDir', ExtractFilePath(Application.ExeName));
  110.     cbxEnhTextEnabled.Checked := Ini.ReadBool('FaxConvert', 'EnhTextEnabled', True);
  111.     ApdFaxConverter1.EnhFont.Name := Ini.ReadString('FaxConvert', 'EnhFont.Name', Font.Name);
  112.     ApdFaxConverter1.EnhFont.Size := Ini.ReadInteger('FaxConvert', 'EnhFont.Size', Font.Size);
  113.     ApdFaxConverter1.LeftMargin := Ini.ReadInteger('FaxConvert', 'LeftMargin', 50);
  114.     ApdFaxConverter1.TopMargin := Ini.ReadInteger('FaxConvert', 'TopMargin', 0);
  115.     ApdFaxConverter1.LinesPerPage := Ini.ReadInteger('FaxConvert', 'LinesPerPage', 60);
  116.     ApdFaxConverter1.TabStop := Ini.ReadInteger('FaxConvert', 'TabStop', 4);
  117.     ApdFaxConverter1.Options := [];
  118.     if Ini.ReadBool('FaxConvert', 'Options.DoubleWidth', True) then
  119.       ApdFaxConverter1.Options := ApdFaxConverter1.Options + [coDoubleWidth];
  120.     if Ini.ReadBool('FaxConvert', 'Options.HalfHeight', False) then
  121.       ApdFaxConverter1.Options := ApdFaxConverter1.Options + [coHalfHeight];
  122.     if Ini.ReadBool('FaxConvert', 'Options.CenterImage', True) then
  123.       ApdFaxConverter1.Options := ApdFaxConverter1.Options + [coCenterImage];
  124.     if Ini.ReadBool('FaxConvert', 'Options.Yield', True) then
  125.       ApdFaxConverter1.Options := ApdFaxConverter1.Options + [coYield];
  126.     if Ini.ReadBool('FaxConvert', 'Options.YieldOften', False) then
  127.       ApdFaxConverter1.Options := ApdFaxConverter1.Options + [coYieldOften];
  128.     ApdFaxConverter1.Resolution := TFaxResolution(Ini.ReadInteger('FaxConvert', 'Resolution', Ord(frNormal)));
  129.     ApdFaxConverter1.Width := TFaxWidth(Ini.ReadInteger('FaxConvert', 'Width', Ord(fwNormal)));
  131.     lblFontName.Caption := ApdFaxConverter1.EnhFont.Name;
  132.     lblFontSize.Caption := 'Size: ' + IntToStr(ApdFaxConverter1.EnhFont.Size);
  133.     edtLeftMargin.Text := IntToStr(ApdFaxConverter1.LeftMargin);
  134.     edtTopMargin.Text := IntToStr(ApdFaxConverter1.TopMargin);
  135.     edtLinesPerPage.Text := IntToStr(ApdFaxConverter1.LinesPerPage);
  136.     edtTabStop.Text := IntToStr(ApdFaxConverter1.TabStop);
  137.     cbxCenterImage.Checked := coCenterImage in ApdFaxConverter1.Options;
  138.     cbxYield.Checked := coYield in ApdFaxConverter1.Options;
  139.     cbxYieldOften.Checked := coYieldOften in ApdFaxConverter1.Options;
  140.     rgpResolution.ItemIndex := Ord(ApdFaxConverter1.Resolution);
  141.     rgpWidth.ItemIndex := Ord(ApdFaxConverter1.Width);
  142.     btnEnhFont.Enabled := cbxEnhTextEnabled.Checked;
  143.   finally
  144.     Ini.Free;
  145.   end;
  146.   RadioGroup1.ItemIndex:=0;
  147. end;
  149. procedure TFaxConversionForm.btnConvertClick(Sender: TObject);
  150. var
  151.   Ext,s: String;
  152.   RotImage1:TRotImage;
  153.   i:integer;
  154.   h:integer;
  155. begin
  156.    Ext:=LowerCase(ExtractFileExt(edtFileName.text));
  157.   if btnConvert.Caption = '取消' then begin
  158.     Cancelled := True;
  159.     btnConvert.Caption := '转换';
  160.     Exit;
  161.   end else begin
  162.     Cancelled := False;
  163.     btnConvert.Caption := '取消';
  164.   end;
  165.   if (Ext='.bmp') or (Ext='.jpg') or (Ext='.jpeg')
  166.        or (Ext='.pcx') or (Ext='.dcx')
  167.        or (Ext='.tif')  then
  168.   begin
  169.     if (CheckBmp(image1,edtfileName.text)=2)or(Ext='.jpg')or(Ext='.jpeg') then
  170.         edtFileName.text:=ConvertToBmp(Image1,edtFileName.text);
  171.     if RadioGroup1.ItemIndex=1 then
  172.     begin
  173.      RotImage1:=TRotImage.Create(self);
  174.      RotImage1.Picture.LoadFromFile(edtFileName.text);
  175.      RotImage1.RotateBitmap(TRotationType(0));
  176.      Rotimage1.Picture.SaveToFile(edtFileName.text);
  177.     end;
  178.     Ext:=LowerCase(ExtractFileExt(edtFileName.text));
  179.   end else if (Ext='.txt') then
  180.   begin
  181.     if CheckBox1.Checked then
  182.     begin
  183.       RichEdit981.Font.Assign(FontDialog1.font);
  184.      // RichEdit981.Visible:=false;
  185.       RichEdit981.WordWrap:=true;
  186.       RichEdit981.Width:=Trunc(210*GetDeviceCaps(Canvas.Handle, LOGPIXELSX) * 25.4);
  187.       RichEdit981.Height:=Trunc(297*GetDeviceCaps(Canvas.Handle, LOGPIXELSX) * 25.4);
  189.       RichEdit982.WordWrap:=true;
  190.       RichEdit982.Width:=Trunc(210*GetDeviceCaps(Canvas.Handle, LOGPIXELSX) * 25.4);
  191.       RichEdit982.Height:=Trunc(297*GetDeviceCaps(Canvas.Handle, LOGPIXELSX) * 25.4);
  192.       Try
  193.         RichEdit981.Lines.LoadFromFile(edtFileName.text);
  194.         RichEdit982.lines:=RichEdit981.lines;
  195.       except
  196.       end;
  197.        h:=filecreate(edtFileName.text);
  198.       if h=-1 then exit;
  199.       For i:=1 to RichEdit982.lines.count do
  200.       begin
  201.         Application.ProcessMessages;
  202.         s:=RichEdit982.lines[i]+#$0d+#$0a;
  203.         FileWrite(h,s[1],length(s));
  204.         s:='';
  205.       end;
  206.       FileClose(h);
  207.     end;
  208.   end;
  209.   if Ext = '.txt' then
  210.   begin
  211.     if cbxEnhTextEnabled.Checked then
  212.       ApdFaxConverter1.InputDocumentType := idTextEx
  213.     else
  214.       ApdFaxConverter1.InputDocumentType := idText;
  215.     ApdFaxConverter1.DocumentFile:=edtFileName.text;
  216.   end
  217.   else if Ext = '.bmp' then
  218.   begin
  219.     ApdFaxConverter1.InputDocumentType := idBMP;
  220.     ApdFaxConverter1.DocumentFile := edtFileName.Text;
  221.   end
  222.   else if Ext='.fcp' then
  223.   begin
  224.      ConvertFCPToAPF(edtFileName.text, 0, 0, '', '', '', '', ApdFaxConverter1Status);
  225.   end
  226.   else if Ext = '.tif' then
  227.   begin
  228.     ApdFaxConverter1.InputDocumentType := idTIFF;
  229.     ApdFaxConverter1.DocumentFile := edtFileName.Text;
  230.   end
  231.   else if Ext = '.pcx' then
  232.   begin
  233.     ApdFaxConverter1.InputDocumentType := idPCX;
  234.     ApdFaxConverter1.DocumentFile := edtFileName.Text;
  235.   end
  236.   else if Ext = '.dcx' then
  237.   begin
  238.     ApdFaxConverter1.InputDocumentType := idDCX;
  239.     ApdFaxConverter1.DocumentFile := edtFileName.Text;
  240.   end
  241.   else  ApdFaxConverter1.InputDocumentType := idNone;
  242.   if ApdFaxConverter1.InputDocumentType = idNone then
  243.   begin
  244.      btnConvert.Caption := '转换';
  245.      Exit;
  246.   end;
  247.   ApdFaxConverter1.OutFileName := edtOutFileName.Text;
  248.   Try
  249.     ApdFaxConverter1.ConvertToFile;
  250.     MessageDlg('转换成功！',mtconfirmation,[mbok],0);
  251.   except
  252.   end;
  253.   btnConvert.Caption := '转换';
  254. end;
  256. procedure TFaxConversionForm.ApdFaxConverter1Status(F: TObject; Starting,
  257.   Ending: Boolean; PagesConverted, LinesConverted: Integer; BytesConverted,
  258.   BytesToConvert: Longint; var Abort: Boolean);
  259. begin
  260.   Abort := Cancelled;
  261.   if (BytesToConvert <> 0) then
  262.     Meter.Position := (BytesConverted * 100) div BytesToConvert;
  263. end;
  265. procedure TFaxConversionForm.btnEnhFontClick(Sender: TObject);
  266. begin
  267.   FontDialog1.Font := ApdFaxConverter1.EnhFont;
  268.   if FontDialog1.Execute then begin
  269.     ApdFaxConverter1.EnhFont := FontDialog1.Font;
  270.     lblFontName.Caption := ApdFaxConverter1.EnhFont.Name;
  271.     lblFontSize.Caption := IntToStr(ApdFaxConverter1.EnhFont.Size);
  272.   end;
  273. end;
  275. procedure TFaxConversionForm.FormClose(Sender: TObject;
  276.   var Action: TCloseAction);
  277. var
  278.   Ini: TIniFile;
  279. begin
  280.   Ini := TIniFile.Create(IniName);
  281.   try
  282.     Ini.WriteString('FaxConvert', 'LastInDir', LastInDir);
  283.     Ini.WriteString('FaxConvert', 'LastOutDir', LastOutDir);
  284.     Ini.WriteBool('FaxConvert', 'EnhTextEnabled', cbxEnhTextEnabled.Checked);
  285.     Ini.WriteString('FaxConvert', 'EnhFont.Name', ApdFaxConverter1.EnhFont.Name);
  286.     Ini.WriteInteger('FaxConvert', 'EnhFont.Size', ApdFaxConverter1.EnhFont.Size);
  287.     Ini.WriteInteger('FaxConvert', 'LeftMargin', ApdFaxConverter1.LeftMargin);
  288.     Ini.WriteInteger('FaxConvert', 'TopMargin', ApdFaxConverter1.TopMargin);
  289.     Ini.WriteInteger('FaxConvert', 'LinesPerPage', ApdFaxConverter1.LinesPerPage);
  290.     Ini.WriteInteger('FaxConvert', 'TabStop', ApdFaxConverter1.TabStop);
  291.     Ini.WriteBool('FaxConvert', 'Options.DoubleWidth', coDoubleWidth in ApdFaxConverter1.Options);
  292.     Ini.WriteBool('FaxConvert', 'Options.HalfHeight', coHalfHeight in ApdFaxConverter1.Options);
  293.     Ini.WriteBool('FaxConvert', 'Options.CenterImage', coCenterImage in ApdFaxConverter1.Options);
  294.     Ini.WriteBool('FaxConvert', 'Options.Yield', coYield in ApdFaxConverter1.Options);
  295.     Ini.WriteBool('FaxConvert', 'Options.YieldOften', coYieldOften in ApdFaxConverter1.Options);
  296.     Ini.WriteInteger('FaxConvert', 'Resolution', Ord(ApdFaxConverter1.Resolution));
  297.     Ini.WriteInteger('FaxConvert', 'Width', Ord(ApdFaxConverter1.Width));
  298.   finally
  299.     Ini.Free;
  300.   end;
  301. end;
  303. procedure TFaxConversionForm.cbxCenterImageClick(Sender: TObject);
  304. begin
  305.   if cbxCenterImage.Checked then
  306.     ApdFaxConverter1.Options := ApdFaxConverter1.Options + [coCenterImage]
  307.   else
  308.     ApdFaxConverter1.Options := ApdFaxConverter1.Options - [coCenterImage];
  309. end;
  311. procedure TFaxConversionForm.cbxYieldClick(Sender: TObject);
  312. begin
  313.   if not cbxYield.Checked then cbxYieldOften.Checked:=false;
  314.   if cbxYield.Checked then
  315.     ApdFaxConverter1.Options := ApdFaxConverter1.Options + [coYield]
  316.   else
  317.     ApdFaxConverter1.Options := ApdFaxConverter1.Options - [coYield];
  318. end;
  320. procedure TFaxConversionForm.cbxYieldOftenClick(Sender: TObject);
  321. begin
  322.   if cbxYieldOften.Checked then cbxYield.Checked:=true;
  323.   if cbxYieldOften.Checked then
  324.     ApdFaxConverter1.Options := ApdFaxConverter1.Options + [coYieldOften]
  325.   else
  326.     ApdFaxConverter1.Options := ApdFaxConverter1.Options - [coYieldOften];
  327. end;
  329. procedure TFaxConversionForm.rgpResolutionClick(Sender: TObject);
  330. begin
  331.   ApdFaxConverter1.Resolution := TFaxResolution(rgpResolution.ItemIndex);
  332. end;
  334. procedure TFaxConversionForm.rgpWidthClick(Sender: TObject);
  335. begin
  336.   ApdFaxConverter1.Width := TFaxWidth(rgpWidth.ItemIndex);
  337. end;
  339. procedure TFaxConversionForm.edtLeftMarginExit(Sender: TObject);
  340. begin
  341.   ApdFaxConverter1.LeftMargin := StrToInt(edtLeftMargin.Text);
  342. end;
  344. procedure TFaxConversionForm.edtTopMarginExit(Sender: TObject);
  345. begin
  346.   ApdFaxConverter1.TopMargin := StrToInt(edtTopMargin.Text);
  347. end;
  349. procedure TFaxConversionForm.edtLinesPerPageExit(Sender: TObject);
  350. begin
  351.   ApdFaxConverter1.LinesPerPage := StrToInt(edtLinesPerPage.Text);
  352. end;
  354. procedure TFaxConversionForm.edtTabStopExit(Sender: TObject);
  355. begin
  356.   ApdFaxConverter1.TabStop := StrToInt(edtTabStop.Text);
  357. end;
  359. procedure TFaxConversionForm.btnBrowseInFileClick(Sender: TObject);
  360. begin
  361.   OpenDialog1.Filter := '提供的类型(*.txt;*.tif;*.pcx;*.dcx;*.bmp;*.fcp;*.jpg;*.jpeg)|' +
  362.     '*.txt;*.tif;*.pcx;*.dcx;*.bmp;*.fcp;*.jpg;*.jpeg|文本文件(*.txt)|*.txt|TIFF 文件(*.tif)|' +
  363.     '*.tif|PCX 文件 (*.pcx)|*.pcx|DCX 文件 (*.dcx)|*.dcx|Bitmap 文件 (*.bmp)|'+
  364.     '*.bmp|(*.jpg)|*.jpg|(*.jpeg)|*.jpg|(*.fcp)|*.fcp|全部文件 (*.*)|*.*';
  365.   OpenDialog1.InitialDir :=ExtractFilePath(Application.ExeName);
  366.   OpenDialog1.Title := '浏览要转换的文件';
  367.   OpenDialog1.FileName := edtFileName.Text;
  368.   if OpenDialog1.Execute then begin
  369.     edtFileName.Text := OpenDialog1.FileName;
  370.     edtOutFileName.Text := ChangeFileExt(edtFileName.Text, '.apf');
  371.     btnConvert.Enabled := FileExists(edtFileName.Text);
  372.     LastInDir := ExtractFilePath(edtFileName.Text);
  373.   end;
  374. end;
  376. procedure TFaxConversionForm.Button2Click(Sender: TObject);
  377. begin
  378.   OpenDialog1.Filter := '传真文件 (*.apf)|*.apf|All files (*.*)|*.*';
  379.   OpenDialog1.InitialDir := LastOutDir;
  380.   OpenDialog1.Title := '输出文件';
  381.   OpenDialog1.FileName := edtOutFileName.Text;
  382.   if OpenDialog1.Execute then begin
  383.     edtOutFileName.Text := OpenDialog1.FileName;
  384.     LastOutDir := ExtractFilePath(edtOutFileName.Text);
  385.   end;
  386. end;
  388. procedure TFaxConversionForm.RadioGroup2Click(Sender: TObject);
  389. begin
  390.    if RadioGroup2.ItemIndex=0 then
  391.      ApdFaxConverter1.Options := ApdFaxConverter1.Options - [coDoubleWidth]-[coHalfHeight]
  392.    else if RadioGroup2.ItemIndex=1 then
  393.      ApdFaxConverter1.Options := ApdFaxConverter1.Options +[coDoubleWidth]
  394.    else if RadioGroup2.ItemIndex=2 then
  395.       ApdFaxConverter1.Options := ApdFaxConverter1.Options+[coHalfHeight]
  396. end;
  398. procedure TFaxConversionForm.edtFileNameExit(Sender: TObject);
  399. begin
  400.     edtOutFileName.Text := ChangeFileExt(edtFileName.Text, '.apf');
  401.     btnConvert.Enabled := FileExists(edtFileName.Text);
  402.     LastInDir := ExtractFilePath(edtFileName.Text);
  403. end;
  405. procedure TFaxConversionForm.btnOKClick(Sender: TObject);
  406. begin
  407.    close;
  408. end;
  410. end.