|
Mira yo acabo de realizar una aplicacion para una escuela que si buscas algun niño y presionas cierto botón empieza a marcar su numero telefónico usando el marcador de telefono y el procedimiento que uso es el siguiente
procedure TIdatos.SpeedButton1Click(Sender: TObject);
var
PhoneNumber: array [0..255] of char;
AQuien: array [0..255] of char;
begin
StrPCopy(PhoneNumber,DBedit11.Text);
StrPCopy(AQuien,DBedit12.Text);
tapiRequestMakeCall(PhoneNumber,'',AQuien,'');
end;
Como puedes ver yo uso un speedButton, en el DBedit11.text esta contenido en mi base de datos el numero de telefono al que se va a marcar y en DBedit12.text el nombre del niño y Phonenumber tomo el valor del DBedit11
Ademas uso una funcion TapiRequestMakeCall
Que es declarada como sigue:
Esto lo debes poner inmediatamente abajo del uses de la interface
function tapiRequestMakeCall(lpszDestAddress,lpszAppName,lpszCalledParty,
lpszComment: LPCSTR): DWORD; stdcall;
y esto va en la implementation
function tapiRequestMakeCall; external 'TAPI32.DLL' name 'tapiRequestMakeCall';
Espero que te sirva, aunque aclaro que no fue mi invento, lo malo que no recuerdo quien es el autor (porque ya hace tiempo de esto) sino con mucho gusto lo citaba, pero detodos modos gracias al autor de esto.
|