Delphi到Windows传真

发布时间：2020-12-15 09:20:31 所属栏目：大数据来源：网络整理

导读：任何人都知道如何使用 Windows 8传真发送传真真正的Delphi ..我的意思是我需要启动带有号码和pdf附件的Windows传真. 关于那个的任何教程？日Thnx. 解决方法例如,您可以使用 Fax Service COM Interfaces .对于简单的操作,您可以导入fxscomex.dll库的类型库

任何人都知道如何使用 Windows 8传真发送传真真正的Delphi ..我的意思是我需要启动带有号码和pdf附件的Windows传真.
关于那个的任何教程？
日Thnx.

解决方法

例如,您可以使用 Fax Service COM Interfaces.对于简单的操作,您可以导入fxscomex.dll库的类型库并使用这样的代码(基于 this example)：

uses
  ComObj,ActiveX,FAXCOMEXLib_TLB;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  JobIDs: OleVariant;
  FaxServer: IFaxServer2;
  FaxDocument: IFaxDocument2;
begin
  try
    FaxServer := CoFaxServer.Create;
    FaxServer.Connect('');
    FaxDocument := CoFaxDocument.Create;
    FaxDocument.Body := 'd:Document.pdf';
    FaxDocument.DocumentName := 'Document name';
    FaxDocument.Recipients.Add('+1 (425) 555-4567','Bill');
    FaxDocument.Sender.Name := 'Bob';
    FaxDocument.Sender.BillingCode := '23A54';
    FaxDocument.Sender.Department := 'Accts Payable';
    FaxDocument.Sender.FaxNumber := '+972 (4) 555-9070';
    JobIDs := FaxDocument.ConnectedSubmit(FaxServer);

    for I := VarArrayLowBound(JobIDs,1) to VarArrayHighBound(JobIDs,1) do
      ShowMessage('Job ID: ' + VarArrayGet(JobIDs,[I]));
  except
    on E: EOleSysError do
      ShowMessage(
        Format('Sending of the fax failed! %s [%d]',[E.Message,E.ErrorCode])
      );
  end;
end;

或者没有类型库的相同：

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  JobIDs: OleVariant;
  FaxServer: OleVariant;
  FaxDocument: OleVariant;
begin
  try
    FaxServer := CreateOleObject('FaxComEx.FaxServer');
    FaxServer.Connect('');
    FaxDocument := CreateOleObject('FaxComEx.FaxDocument');
    FaxDocument.Body := 'd:Document.pdf';
    FaxDocument.DocumentName := 'Document name';
    FaxDocument.Recipients.Add('+1 (425) 555-4567',E.ErrorCode])
      );
  end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!