Veze, linkovi
Kompjuter biblioteka
Korpa

Preporučujemo

Expert Delphi

Expert Delphi

Delphi Cookbook

Delphi Cookbook

KAKO DA – glasovno telefoniranje, Delphi

Pregleda (30 dana / ukupno): 9 / 2919

Neka vaš modem “izigrava” obični telefon. Modemom birajte obične “glasovne” telefonske brojeve.

Usledećem primeru ćemo videti kako da iz naše Delphi aplikacije biramo telefonske brojeve za glasovnu komunikaciju, nešto slično Windows-ovom “Phone Dialer”-u. Sve se ovo odvija preko poziva funkcija u biblioteci TAPI32.dll. Pokrenite Delphi i kreirajte novi projekt, a zatim posle svih deklaracija dodajte sledeće konstante i funkcije:

{tapi Errors}
const TAPIERR_CONNECTED = 0;
const TAPIERR_DROPPED = -1;
const TAPIERR_NOREQUESTRECIPIENT = -2;
const TAPIERR_REQUESTQUEUEFULL = -3;
const TAPIERR_INVALDESTADDRESS = -4;
const TAPIERR_INVALWINDOWHANDLE = -5;
const TAPIERR_INVALDEVICECLASS = -6;
const TAPIERR_INVALDEVICEID = -7;
const TAPIERR_DEVICECLASSUNAVAIL = -8;
const TAPIERR_DEVICEIDUNAVAIL = -9;
const TAPIERR_DEVICEINUSE = -10;
const TAPIERR_DESTBUSY = -11;
const TAPIERR_DESTNOANSWER = -12;
const TAPIERR_DESTUNAVAIL = -13;
const TAPIERR_UNKNOWNWINHANDLE = -14;
const TAPIERR_UNKNOWNREQUESTID = -15;
const TAPIERR_REQUESTFAILED = -16;
const TAPIERR_REQUESTCANCELLED = -17;
const TAPIERR_INVALPOINTER = -18;

{tapi size constants}
const TAPIMAXTelBrojSIZE = 80;
const TAPIMAXAPPNAMESIZE = 40;
const TAPIMAXPozivUpucenSIZE = 40;
const TAPIMAXKomentarSIZE = 80;
const TAPIMAXDEVICECLASSSIZE = 40;
const TAPIMAXDEVICEIDSIZE = 40;

function tapiRequestMakeCallA(TelBroj : PAnsiChar;
AppName : PAnsiChar;
PozivUpucen : PAnsiChar;
Komentar : PAnsiChar) : LongInt;
stdcall; external ‘TAPI32.DLL’;

function tapiRequestMakeCallW(TelBroj : PWideChar;
AppName : PWideChar;
PozivUpucen : PWideChar;
Komentar : PWideChar) : LongInt;
stdcall; external ‘TAPI32.DLL’;

function tapiRequestMakeCall(TelBroj : PChar;
AppName : PChar;
PozivUpucen : PChar;
Komentar : PChar) : LongInt;
stdcall; external ‘TAPI32.DLL’;

Potom dodajte na formu jedno komandno dugme, i u događaj Button_Click smestite sledeći kod:

procedure TForm1.Button1Click(Sender: TObject);
var
TelBroj : string;
PozivUpucen : string;
Komentar : string;
begin
TelBroj := ‘011-111111′; // broj telefona
PozivUpucen := ‘Ime’; // onaj koga pozivamo
Komentar := ‘Poziv upicen…’; // neki komentar
tapiRequestMakeCall(pChar(TelBroj),
PChar(Application.Title),
PChar(PozivUpucen),
PChar(Komentar));
end;

Kada pokrenete aplikaciju i kliknete na dugme, automatski će se birati broj naveden u varijabli “TelBroj”. Na ovaj način možete na napravite program - Telefonski imenik, koji će odmah birati upisane brojeve.

Pripremio: Milenko Kusurović

 

         
Twitter Facebook Linkedin Pinterest Email
         

Budite prvi koji će ostaviti komentar.

Ostavite komentar Ostavite komentar

 

 

 

Veze, linkovi
Linkedin Twitter Facebook
 
     
 
© Sva prava pridržana, Kompjuter biblioteka, Beograd, Obalskih radnika 4a, Telefon: +381 11 252 0 272