myles,
I've
used this before (D5):
procedure DialPhone(sNumber, sPerson, sMessage: string);
var
tapiRequestMakeCall: TTAPIRequestMakeCall;
hLibrary : THandle;
begin
hLibrary := loadlibrary(pchar('TAPI32.dll'));
try
if hLibrary <> 0 then begin
tapiRequestMakeCall := GetProcAddress(hLibrary, 'tapiRequestMakeCall');
if Assigned(tapiRequestMakeCall) then
tapiRequestMakeCall(pChar(sNumber),
PChar(''),
pChar(sPerson),
PChar(sMessage))
else
raise Exception.Create('Cannot find TAPI procedure!');
end else
raise Exception.Create('Unable to load TAPI32.dll!');
finally
FreeLibrary(hLibrary);
end;
end;
var
tapiRequestMakeCall: TTAPIRequestMakeCall;
hLibrary : THandle;
begin
hLibrary := loadlibrary(pchar('TAPI32.dll'));
try
if hLibrary <> 0 then begin
tapiRequestMakeCall := GetProcAddress(hLibrary, 'tapiRequestMakeCall');
if Assigned(tapiRequestMakeCall) then
tapiRequestMakeCall(pChar(sNumber),
PChar(''),
pChar(sPerson),
PChar(sMessage))
else
raise Exception.Create('Cannot find TAPI procedure!');
end else
raise Exception.Create('Unable to load TAPI32.dll!');
finally
FreeLibrary(hLibrary);
end;
end;
regards,
Steve
-----Original Message-----
From: Myles Penlington [mailto:[EMAIL PROTECTED]
Sent: Monday, 26 April 2004 11:49 a.m.
To: '[EMAIL PROTECTED]'
Subject: [DUG] Autodiallers ...Hi,We want to add the ability to dial a phone number from a users machine ... About the only requirement is to dial the number - just to save the user from keying the number into the phone.Is TAPI the way to go or are there other methods?Any body got any code or components that help out here.Thanks.
Myles.
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.655 / Virus Database: 420 - Release Date: 8/04/2004
_______________________________________________ Delphi mailing list [EMAIL PROTECTED] http://ns3.123.co.nz/mailman/listinfo/delphi
