delphi如何调用faxcom发送传真

Question

如题!
跪求做过的大大帮手!

Answer 1

FaxCom.dll 传真服务客户API的COM接口
　　微软 windows2000 系统自带DLL
　　c# 下使用方法
　　faxDoc = (FAXCOMLib.FaxDoc)faxSrv.CreateDocument(this.fileName);
　　if (faxDoc != null)
　　{
　　faxSrv.Connect(System.Net.Dns.GetHostName());
　　faxDoc.FaxNumber = this.faxNumber;
　　faxDoc.FileName = this.fileName;
　　faxDoc.Send();
　　}
　　vb vb.net 下调用方法：
　　首先 引用FAXlib 部件
　　Private Sub Form_Load()
　　Dim lngSend As Long
　　Dim strComputer As String
　　Dim oFaxServer As FAXCOMLib.FaxServer
　　Dim oFaxDoc As FAXCOMLib.FaxDoc
　　On Error Goto ErrHandler
　　strComputer = "wokofocomputer"
　　Set oFaxServer = New FAXCOMLib.FaxServer
　　oFaxServer.Connect strComputer
　　oFaxServer.ServerCoverpage = 0
　　Set oFaxDoc = oFaxServer.CreateDocument(App.Path & "\" & "New Text Document.txt")
　　With oFaxDoc
　　.FaxNumber = "01084927299"
　　.DisplayName = "made by wo wokofo"
　　lngSend = .Send
　　End With
　　Set oFaxDoc = Nothing
　　oFaxServer.Disconnect
　　Set oFaxServer = Nothing
　　Exit Sub
　　ErrHandler:
　　MsgBox Err.Number & " " & Err.Description
　　Err.Clear
　　End Sub
　　ASP 等脚本语言需要自己编译生成DLL 才能调用
　　更多请翻阅MSDN上相关资料

Answer 2

报内存地址错误，求高手帮我看看
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  __Ole:OleVariant;
  P:Pointer;
  FileName :String;
begin
  FaxServer1.Connect;
  OpenDialog1.Title := '请选择要传真的文件...';  if OpenDialog1.Execute then
  begin
    __Ole := FaxServer1.CreateDocument(OpenDialog1.FileName);
    Move(__Ole,FaxDoc1^,sizeof(Tfaxdoc));
    FaxDoc1.Connect;    FileName := OpenDialog1.FileName;
    FaxDoc1.FileName := FileName;
    FaxDoc1.FaxNumber := Edit1.Text;
    i := FaxDoc1.Send;
  end;  if i <> 0 then
    showmessage('传真发送失败')
end;

Answer 3

哪个地方报地址错误，看了一下，最有可能的是这个Move(__Ole,FaxDoc1^,sizeof(Tfaxdoc));