Telefon No Ogrenme

[lazio]

merhaba,
bir dergide okumuştum, callerid için modem ve telefon hattı desteğinin yanında birde http://www.callerid.com dan bir yazılım indirilmeli diyordu.

[mege]

merhaba,
bir dergide okumuştum, callerid için modem ve telefon hattı desteğinin yanında birde http://www.callerid.com dan bir yazılım indirilmeli diyordu.

yok herhangibir şey indirmenize gerek yok. bu tamamen modem ve bölgedeki santral ile ilgili.

bence arkadaş ilk önce eğer şirket içi iç santral kullanıyor ise onu kontrol etsin. belki cid sinyalini parazit diye bastırıyordur. normal bir cid telefonu hattına bağlayıp numara gözüküyormu dene..

[serk@n]

modeminizin caler id destekleyip desteklemediğini şöyle öğrenebiliyorsunuz...
hyperterminali açıyorum.. bağlantı şeklinden modemin bağlı olduğu portu seçiyorum...
şu komutu giriyorum.

ATM#CID=1 (enter)
OK (eğer OK sonucu dondu ise modem destekliyor.)

bu konumda iken cep telefonumdan modemin bağlı olduğu numarayı çeviriyorum.
aşağıdakine benzer değerler çıkıyor

RING

02321
5352435522 (aradığım numara)
qwew

felan gibi...
modem ve hat gösteriyor...

API komponentinide arkadaşların dediği gibi kullanıyorum ama hiç tepki vermiyor...

Kod: Tümünü seç

procedure TMainForm.ApdTapiDevice1TapiCallerID(CP: TObject; ID, 
  IDName: String); 
var 
  Msg: String; 
begin 
showmessage('asdad');
  Msg := Format('CallerID: %s %s', [ID, IDName]); 
  Memo1.Lines.Add(Msg); 
end; 

şimdi bu olayın gerçekleşip gerçekleşmediğini görmek için araya showmessage ekledim. ama bu olay işlem görmedi.
formun açılışına auto answer eklersem. modeme otomatik cevap veriyor. ama genede arayan numara gözükmüyor...

başka komponent kullanan veya bilen varmı bu iş ile ilgili.

[barko]

Doğrusunu yazılım da insanlar faydalansın...

Örneklerde ExAnswer eksik bırakılmış ona ek olarak şunlar denebilir.

ApdTapi componenti kullanılmayacak, Bunun yerine Ad Modem kullanılacak. Zaten eventine bakarsanız CallerID değerini alabildiğini görürsünüz..


Answering yapılacağı sırada aşağıdaki metni yazın DeviceSetting Hatasından kurtulursunuz.

if not AdModem1.DeviceSelected then begin
AdModem1.ModemCapFolder := '..\..\modemcap';
AdModem1.SelectDevice;
end;

Doğru modem le Arayan numarayı ekrana çıkartabilirsiniz.