BorlandTalk.com

Jack Roh · Guest

Hello, I'm trying to use WinFax Pro 10 to send fax through Delphi 3.
I've wrote the following code but it doesn't work.
Can anybody help me?

procedure TForm1.Button1Click(Sender: TObject);
var
WinFax : OleVariant;
id : integer;
begin

try
WinFax := CreateOleObject('WinFax.SDKSend');
except
ShowMessage('Could not start Win Fax');
end;

WinFax.LeaveRunning;

// if WinFax.AddAttachmentFile('')=1 then ShowMessage('Could not add
file');
if WinFax.SetPrintFromApp(1) = 1 then ShowMessage('Failed Set print');
WinFax.SetTo('ETN Tester');
{ Set the fax number in winfax }
if WinFax.SetNumber(editNumber.Text) = 1 then ShowMessage('Could not
set number');
// if WinFax.SetAreaCode('416') = 1 then ShowMessage('Could set area
code');
if WinFax.AddRecipient = 1 then ShowMessage('Could not add fax
recipient');
if WinFax.SetPreviewFax(0) = 1 then ShowMessage('Could not set
preview');
if WinFax.SetUseCover(0)=1 then ShowMessage('Could not set use cover');
if WinFax.SetResolution(0) = 1 then ShowMessage('Could not set
resolution');
if WinFax.SetSubject('Test Fax') = 1 then ShowMessage('Could not set
subject');
if WinFax.ShowCallProgess(0) = 1 then ShowMessage('Could not show
progress');
if WinFax.EnableBillingCodeKeyWords(1) = 1 then ShowMessage('Could not
enabling code');

id := WinFax.Send(0);
if id <> 0 then ShowMessage('Could not send')
else ShowMessage('Send okay');
{ Wait for the fax program to get ready }
while WinFax.IsReadyToPrint = 0 do ;
{ **** Now print to the fax Driver ******}
sleep(100);
{ need this to allow winfax to run Without this
there will be times when winfax will ask for
the fax number to call
}
{
Wait for an ID from win fax
}
while(WinFax.IsEntryIDReady(0)=0) do;
id := WinFax.GetEntryID(0);
WinFax.Done;
// WinFax.unassign;
end;

Thank you