Как использовать TAPI для голосового звонка в Delphi?

{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 TAPIMAXDESTADDRESSSIZE      = 80; 
  const TAPIMAXAPPNAMESIZE          = 40; 
  const TAPIMAXCALLEDPARTYSIZE      = 40; 
  const TAPIMAXCOMMENTSIZE          = 80; 
  const TAPIMAXDEVICECLASSSIZE      = 40; 
  const TAPIMAXDEVICEIDSIZE         = 40; 
  
function tapiRequestMakeCallA(DestAddress:PAnsiChar;AppName:PAnsiChar; CalledParty:PAnsiChar; Comment:PAnsiChar): LongInt; 
  stdcall; external 'TAPI32.DLL'; 
  
function tapiRequestMakeCallW(DestAddress:PWideChar;AppName:PWideChar; CalledParty:PWideChar; Comment:PWideChar):LongInt; 
  stdcall; external 'TAPI32.DLL'; 
  
function tapiRequestMakeCall(DestAddress:PChar;AppName:PChar; CalledParty:PChar;Comment:PChar):LongInt; 
  stdcall; external 'TAPI32.DLL'; 
  
procedure TForm1.Button1Click(Sender: TObject); 
var
  DestAddress : string; 
  CalledParty : string; 
  Comment : string; 
begin
  DestAddress := '1-555-555-1212'; 
  CalledParty := 'Frank Borland'; 
  Comment := 'Calling Frank'; 
  tapiRequestMakeCall(pChar(DestAddress), PChar(Application.Title), pChar(CalledParty), PChar(Comment)); 
  
end; 
  
end. 

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий