Ver Mensaje Individual
  #9  
Antiguo 23-01-2009
jandok238 jandok238 is offline
No confirmado
 
Registrado: ago 2007
Ubicación: ¿ǝɯ dlǝɥ noʎ uɐɔ 'ʍouʞ ʇ,uop ı
Posts: 415
Reputación: 0
jandok238 Va por buen camino
Cita:
Empezado por destrukthor Ver Mensaje
Hola amigos Delphimaniacos.

bueno he leido el hilo y ahora quisiera saber cuales comandos o bibliotecas debo usar para identificar el numero o si tengo usar el de coms... y cuales son esos comandos si no es mucho la molestia.

Pretendo tener un identificados y guardar el numero que llama, pero ademas si necesito saber si tengo que tener los datos de entradas de los pines del modem.

Desded ya gracias.
Hola destrukthor ...

Pues para hacer eso de Identificar Llamadas, pues se necesita un modem que cuente con esa funcionalidad, ademas de contar con el servicio por parte de la compañia que te brinda el servicio telefonico.

Regresando al tema de DELPHI, yohe utilizado los compoenntes APRO con buenos resultados...

Una vez instalados los componentes y tu momen(s) en la PC, se tiene que agragar 2 componentes ApdTapiDevice y ApdComPort.

Propiedades ApdTapiDevice
AnswerOnRing (despues de cuantos timbres va a AUTOCONTESTAR la llamada)
ComPort (aqui es donde se hace la referencia al otro componente, el ApdComPort)
SelectedDevice (para establecer la relacion del componente con el MODEM que va a estar monitoreando)

Propiedades ApdComPort
AutoOpen (ponerlo en TRUE)
TapiMode (ponerlo en tmOn)
Los demas parametros se quedan igual, a menos que tengas que hacer algun cambio en alguda de las propiedades...


Para capturar los datos de la llamada Numero y Nombre ... seria en el evento OnTapiCallerID del componente ApdTapiDevice ...

Código Delphi [-]
procedure TForm1.ApdTapiDevice1TapiCallerID(CP: TObject; ID, IDName: string);
begin
    Edit1.Text := ID; // el numero de telofono
    Edit2.Text := IDName; // el nombre de la persona que llama (si esta disponible)
end;

Otra cosa a considerar es que cuando inicie el PROGRAMA ... siempre se debe 'activar' el ApdTapiDevice... algo así :

Código Delphi [-]

procedure TForm1.FormShow(Sender: TObject);
begin
  ApdTapiDevice1.AutoAnswer;
end;

Espero que esto te ayude un poco ....

O si alguien con mas Experiencia lo ve ... que nos corrija si estamos mal ...

salu2!!!!!!!
Responder Con Cita