Ayuda con Caller ID
 

Estoy intentando hacer un programa que detecte el numero de telefono de quien llama, para ello utilizo los componentes APRO, pero no consigo que funcione :confused:, ya he mirado todos los ejemplos y ninguno funciona. El modem es compatible y tengo activado el caller id en telefonica, es mas he probado un programa que baje de internet y que reconoce quien me llama.

De momento tengo esto y solo he conseguido que me detecte cuando alguien llama.

Código Delphi [-]
unit UMonitor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OoMisc, AdPort, ADTrmEmu, AdMdm, AdPacket, AdTapi,
  JvExStdCtrls, JvHtControls;

type
  TFMonitor = class(TForm)
    Label1: TLabel;
    ApdTapiDevice1: TApdTapiDevice;
    ApdComPort1: TApdComPort;
    lista: TJvHTListBox;
    AdModem1: TAdModem;
    AdTerminal1: TAdTerminal;
    procedure ApdTapiDevice1TapiConnect(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ApdTapiDevice1TapiCallerID(CP: TObject; ID, IDName: String);
    procedure AdModem1ModemConnect(Modem: TAdCustomModem);
    procedure AdModem1ModemCallerID(Modem: TAdCustomModem;
      CallerID: TApdCallerIDInfo);
  end;

var
  FMonitor: TFMonitor;

implementation

{$R *.dfm}


procedure TFMonitor.ApdTapiDevice1TapiConnect(Sender: TObject);
begin
  lista.Items.Add('OnTapiConnect');
  lista.Items.Add('Caller: ' + ApdTapiDevice1.CallerID);
  Label1.Caption := 'Caller: ' + ApdTapiDevice1.CallerID;
end;

procedure TFMonitor.FormCreate(Sender: TObject);
begin
  ApdTapiDevice1.SelectDevice;
  ApdTapiDevice1.ConfigAndOpen;
  ApdComPort1.Open := True;
end;

procedure TFMonitor.ApdTapiDevice1TapiCallerID(CP: TObject; ID,
  IDName: String);
begin
  lista.Items.Add('OnTapiCallerID');
  lista.Items.Add('Caller: ' + ApdTapiDevice1.CallerID);
  Label1.Caption := 'Caller: ' + ApdTapiDevice1.CallerID;
end;

procedure TFMonitor.AdModem1ModemConnect(Modem: TAdCustomModem);
begin
  lista.Items.Add('OnModemConnect');
  lista.Items.Add('Caller: ' + AdModem1.CallerIDInfo.Number);
end;

procedure TFMonitor.AdModem1ModemCallerID(Modem: TAdCustomModem;
  CallerID: TApdCallerIDInfo);
begin
  lista.Items.Add('OnModemCallerID');
  lista.Items.Add('Caller: ' + AdModem1.CallerIDInfo.Number);
end;

end.

Un saludo y gracias.

Hola amigo

Estoy tratand de hacer un identificador de llamada con los mismos componentes he visto tu ejemplo , me podrias ayudar un poco , me indica que mi moden no tiene activado la funcion caller Id , pero tengo un programa instalado que si me muestra el numero de quien llama asi mi moden si funciona


has logrado avanzar en este proyecto ? desde ya muchas gracias

Por favor, IVAND, no "dispares" en todas direcciones, concéntrate en un hilo hasta resolver tu duda.
Date cuenta que, por ejemplo, este hilo es de hace más de 6 años.