传真(Fax)编程

开发平台：

Delphi

FaxCnvId.pas：源码内容

							unit Faxcnvid;
interface
uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, AdFaxCvt, StdCtrls;
type
  TfrmFileTypeConfirmation = class(TForm)
    btnOK: TButton;
    btnCancel: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    cbxFileType: TComboBox;
    lblFileName: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute(const FileName: String) : TFaxInputDocumentType;
  end;
var
  frmFileTypeConfirmation: TfrmFileTypeConfirmation;
implementation
{$R *.DFM}
function TfrmFileTypeConfirmation.Execute(const FileName: String): TFaxInputDocumentType;
begin
  lblFileName.Caption := FileName;
  ShowModal;
  if ModalResult = mrOK then begin
    case cbxFileType.ItemIndex of
      0 : Result := idText;
      1 : Result := idTiff;
      2 : Result := idPcx;
      3 : Result := idDcx;
      4 : Result := idBmp;
      else
        Result := idNone;
    end;                 
  end else
    Result := idNone;
end;
end.

						