程式呼叫WinFax9.0.2發傳真問題 |
缺席
|
longsanglin
初階會員 發表:10 回覆:57 積分:43 註冊:2002-04-23 發送簡訊給我 |
Hi! 各位大大, 目前因公司需要, 我寫了一支呼叫WinFax做傳真的程式. 於討論區中亦拜讀過相關文章, 但還是有些問題產生, 請各位大大幫忙.
環境: Windows 2000 or XP + Delphi 7 + WinFax9.0.2 + DdeWinFaxConv元件(由站上download)
目前的問題 : 我是將QR報表輸出至WinFax. 首筆是ok的, 但輸出至第2筆時, 則WinFax會show出WinFax PRO 傳送設定畫面要讓我鍵入收件者相關資訊等. 不知該如何排解 ? 我的程式大至如下 :
procedure TExportFaxForm.SpeedButton6Click(Sender: TObject);
// var EndTick: LongInt;
begin
inherited;
if adotActionD.RecordCount>0 then
begin
if CheckBox2.Checked then
begin
ChangePrinter( FNewPrinter );
if not DdeWinFaxConv1.SetWinFaxLink then
begin
MessageDlg('無法與WinFax PRO連線.'#10#13+'請檢查是否有啟動WinFax PRO軟體.',mtError,[mbOk],0);
Abort;
end;
adotActionD.DisableControls;
adotActionD.First;
While not adotActionD.Eof do
begin
if not adotActionD.FieldByName('OFax').IsNull then
begin
// Add recipient to WinFax
with DdeWinFaxConv1 do begin
if MainDataModule.adotSysRef.FieldByName('DialAsEntered').Value='True' then
DialAsEntered := False
else
DialAsEntered := True;
DialPrefix := MainDataModule.adotSysRef.FieldByName('DialPrefix').Value;
LongDistancePrefix := MainDataModule.adotSysRef.FieldByName('LongDistance').Value;
if MainDataModule.adotSysRef.FieldByName('RemoveLAC').Value='False' then
RemoveLocalAreaCode := False
else
RemoveLocalAreaCode := True;
LocalAreaCode := MainDataModule.adotSysRef.FieldByName('LocalAreaCode').Value;
if MainDataModule.adotSysRef.FieldByName('IncludeDate').Value='False' then
IncludeSendDateTime := False
else
IncludeSendDateTime := True;
end;
// SendFaxParams
with DdeWinfaxConv1.SendFaxParams do begin
PhoneNumber := adotActionD.FieldByName('OFax').AsString;
SendDateTime := Now;
// RecipientName := ToolsForm.P_sUserName;
// RecipientCompany := MainDataModule.adotSysRef.FieldByName('CompName').Value;
RecipientName:=adotActionD.FieldByName('ActName').Value;
RecipientCompany:=adotActionD.FieldByName('SuppName').Value;
Subject := adotActionM.FieldByName('ActTitle').AsString;
Keywords := '';
BillingCode := '';
BftFax := 'Fax';
end;
DdeWinFaxConv1.Execute;
adoqActionD1.Close;
adoqActionD1.Parameters[0].Value:=adotActionD.FieldByName('ProjectNo').Value;
adoqActionD1.Parameters[1].Value:=adotActionD.FieldByName('SuppNo').Value;
adoqActionD1.Open;
TCG3500fax.Print;
// EndTick:=GetTickCount+1000;
// WHILE GetTickCount
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
建議使用NNWFAX搭配WinFaxPro
不錯用 ===================引 用 longsanglin 文 章=================== Hi! 各位大大, 有誰能幫我解惑? 已困擾兩週了. help me
------
What do we live for if not to make life less difficult for each other? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |