delphi如何调用faxcom发送传真

[wjw1224]

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

[wjw1224]

继续顶,求助啊

[wjw1224]

顶起求助

[wjw1224]

求助啊,顶起

[鐵蛋]

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上相关资料

[wjw1224]

报内存地址错误，求高手帮我看看
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;

[shuihan20e]

哪个地方报地址错误，看了一下，最有可能的是这个

Move(__Ole,FaxDoc1^,sizeof(Tfaxdoc));