Llamar a un telefono usando el TAPI Dialer de Windows  

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 11/01/00

Truco accedido 52 veces

 


Podemos usar la función tapiRequestMakeCall, la cual esté contenida en TAPI32.DLL
Delphi no trae definida esta funcion (o por lo menos yo no sé donde la tiene definida...), pero podemos definirla y usarla nosotros mismos:

  • Pon estas lineas despues del uses de tu form:


          function tapiRequestMakeCall(lpszDestAddress,
                                       lpszAppName,
                                       lpszCalledParty,
                                       lpszComment: LPCSTR): DWORD; stdcall;
    
    



  • Y pon esta otra en el implementation de la form:


     function tapiRequestMakeCall; external 'TAPI32.DLL' name 'tapiRequestMakeCall';
    



  • Y ahora podemos llamar a un teléfono. Un ejemplo 'Diabólico' :


          procedure TForm1.Button1Click(Sender: TObject);
          var
            PhoneNumber: array [0..255] of char;
            AQuien: array [0..255] of char;
          begin
            StrPCopy(PhoneNumber,'666666666');
            StrPCopy(AQuien,'To Satan');
            tapiRequestMakeCall(PhoneNumber,'',AQuien,'');
          end;