Telefon No Ogrenme

[erdemir_hakki]

Telefon hattı bilgisayarıma bağlandığında, telefon hattına gelen bir aramanın hangi numaradan geldiğini modem üzerinden nasıl öğrenebilirim. modemi durumunu öğrenebiliyorum ancak modem üzerinden telefon numarasını öğrenemiyorum. (Tabi telefon no görünüyor ise mümkün olacak). bu konuda yardımcı olursanız sevinirim.

[yskilic]

nasıl yapacağınızı bilmiyorum ama programı yazsanız bile numaraları görmek için PTT nin desteğine itiyacınız var ve onlarda bu konuda zorluk çıkarıyorlarmış diye duydum.

Yanlış olabilir tevatür olabilir. sadece duydum kesin bir kaynağım yok.

[mussimsek]

Merhaba,

herhangi bir zorluk çıkardıklarını sanmam ancak telefon santralinin dijital olması lazım.
Netice de dijital ise aranan numaraları gösteren telefonlar, numarayı gösteriyorlar.

Ancak pc ortamında alınır mı hiç tecrübem yok. Belki Turbopower Async Pro ile yapılabilir.

Kolay gelsin.

[osman_simsek]

bu konuda yazılmış bir program var. incelerseniz belki faydası olur. modemin caller id desteğini test edebilen bir kaç parametre de help inde açıklanmış. daha önce 98 de kullanıyordum, şimdi xp ve 2000 kullanıyorum. bu sistemlerde çalıştıramadım.
Programı burdan indirebilirsiniz.
http://www.inet.hr/~zsturmer/eng/cidm15en.zip

Kolay gelsin.

[erdemir_hakki]

Bundan önceki mesajımda modemden telefon numarasını nasıl öğrenirim diye bir soru yöneltmiştim. soruya ilgi gösterenlere teşekkür ederim.
Benim şu anki bulunduğum işyerinde Caller-ID telekom'dan açık. Caller-ID desteği veren modem de var. modemden bilgi okuma ile ilgili bazı bilgiler edindim. bu bilgilerle modemin durumunu okuyabiliyorum. (Mesela GetCommModemStat fonksiyonu ile bir değişkene bilgi atıyor. değişkenle rin_is_on özelliğini karşılaştırma yapıyorum. Telefon çalıyor ise veya biryeri arıyor ise mesaj verdirebiliyorum.) ancak elde ettiğim bilgi benim için yetersiz kalıyor. sadece durumunu öğrenmekle yetinebiliyorum.
Bazı kaynaklardan anladığım kadarıyla sanırım bunu assembly kullanarak yapmak mümkünmüş. Ancak assembly bilgim sıfır denebilecek kadar az. Eğer bilgi edineniniz olursa, bilgileri paylaşmak isterim. Bu çalışmalarda emeği geçen herkese teşekkürler. Herkesten Allah Razı Olsun.

[osman_simsek]

merhabalar..
mustafa hocamın bahsettiği bileşeni biraz kurcalama fırsatım oldu.
3.parti bileşenler kısmından indirebilirsiniz.

Benim modemin driver'ı ile ilgili problemlerden dolayı tam olarak çalışıramadım ama caller id desteği var. arayan numarayı direk bir stringe atıyor.
comport bileşeni ve TAPI Modem bileşeni ile bu işi çözeceğinizi tahmin ediyorum.

Konya'ya selamlar.

[erdemir_hakki]

Herkese Selamlar
Ben Caller ID ile ilgili bir soru soracağım. Telekomdan Caller ID desteğini açtırdım. Bu özelliği destekleyen modem aldım ancak program içerisinde telefon numarasını bir türlü elde edemedim. Bu uygulamayı gerçekleştiren birisi varsa yardımlarını bekliyorum.
Sitede emeği geçen herkese teşekkürler.

[mussimsek]

Merhaba,

Bir örnek buldum. bunun için birkaç şey lazım :

1. Hattın caller id özelliğinin açık olması lazım. Açtırdık yazmışsınız ama bu özelliği destekleyen bir telefon ile kontrol edin.

2. Modem'in ve sürücüsünün desteklemesi lazım. Modemin son sürücülerinin yüklü olduğundan emin olun.

3. TurboPower Apro'yu kur, aşağıdaki kodla alabilirsin. Sen isteğine göre düzeltirsin. Detaylar için İngilizcen varsa Apro'nun dökümanlarına bak. Bileşen elinde yoksa Sitedeki 3. Parti Yazılımlar bölümüne bak.

Kod: Tümünü seç

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

TapiDevice'ın AutoAnswer özelliği True olmalı ve Comport ve StatusDisplay bağla. Onları dfm'deki şekillerini de atayım :

Kod: Tümünü seç

object ApdTapiDevice1: TApdTapiDevice
    SelectedDevice = 'Woomera Ext 56k Dual'
    ComPort = ApdComPort1
    StatusDisplay = ApdTapiStatus1
    ShowTapiDevices = True
    ShowPorts = True
    EnableVoice = False
    OnTapiCallerID = ApdTapiDevice1TapiCallerID
    Left = 72
    Top = 56
  end
  object ApdComPort1: TApdComPort
    TraceName = 'APRO.TRC'
    LogName = 'APRO.LOG'
    Left = 32
    Top = 56
  end
  object ApdTapiStatus1: TApdTapiStatus
    Position = poDesigned
    Ctl3D = True
    Visible = False
    TapiDevice = ApdTapiDevice1
    Caption = 'Call Progress'
    Left = 112
    Top = 56
  end

Kolay gelsin.

[myrealite]

TurboPowerda TapiDevice'ın AutoAnswer özelliği True olmalı .. bu property yi ben göremedim yada yanlıışmı anladım acaba?
AnswerOnring sadece görüyorum buradaki ring countlarini da saymıyor ve modem otomatik açmıyor ne yaptıysam . Manuel açıp cevap veriyor.
Modem 33.6 robotics external fax/data/voice..

bu konuda bilgi ve yardım edebilirseniz sevinirim.

[serk@n]

caler ID ile ilgili olarak forumda bu basligi gordum...
sonra TAPI componenti indirdim kurdum.
fakat bir turlu arayan numarayı yakalayamıyorum.
modemimin boyle bir desteği var.
Şöyle test edebiliyorum bunu

hyperterminali açıyorum COM bağlatı diyorum ve modemin bağlı olduğu com portu seciyorum.
daha sonra aşağıdaki komutu deniyorum.


AT#CID=1

sonuç olarak OK
dönuyorsa modemin boyle bir destegi var...
daha sonra hyper terminal açıkkken bu komutu girdikten sonra telefonu cep telefonumdan arıyorum ve hyper terminal ekranında arayn numara gozukuyor. buda demektir ki modemim caler ID destekliyor...

yukarida mustafa hocamın gonderdiği kodu deniyorum fakat hiç tepki olmuyor...
çaliştirabileniniz varmı kodu yada başka bir yontem deneyebilirmiyiz.
örn: COM'a hyper terminale gonderdiğim komutu gondersem donen sonucu okusam olurmu...
bunla ilgili de

Kod: Tümünü seç

tapicomport1.output := 'AT#CID=1' 

diyorum hata vermiyor fakat donen sonucu almayi bulamadim.
yardimlarinizi bekliyorum...[/b][/code]

[DotCom]

ben daha önce sipariş ile çalışan firmalar için böyle bir program yazdım. şirkette oldugum için kodları yanımda degil fakat..

mustafa abininde yazdıgı gibi callerid event ına gerekli kodları yazın formunuz üzerine sadece apdcomport1 ve apdtapidevice1 bileşenlerini atıyosunuz.

daha sonra formun create ine ;

ApdTapiDevice1.AutoAnswer := true ;

şeklinde açıyorsunuz...

bu şekilde Turbo Power Apro ile hiç bir problem olmuyor..

Kolay Gelsin

[serk@n]

ApdTapiDevice1.AutoAnswer := true ;

true degeri almiyorki
Device1.autoanswer; olabiliyor ancak...

[DotCom]

bilgisayarımda apro kurulu olmadıgı için küçük bir code hatası

kusura bakmayın serk@n bey

Kolay Gelsin...

[serk@n]

formun creatine
ApdTapiDevice1.AutoAnswer;

dediğim zaman
modem çalınca cevap veriyor. ama genede caleri göstermiyor.


________________________________________________________
hepten dilim bozuluyo yarı turkce, yarı ingilizce üzülüyorum kendime bazen...

[DotCom]

Kod: Tümünü seç

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

bu kodu yazmış olman gerekir. bu kodu yazdı isen ve hala göstermiyor ise arayan numarayı ;

1: modemin caller id desteklemiyor.
2: telefon hattın caller id e açık degil..

benim modemim US Robotics 56 k idi ve caller id desteği vardı...

Kolay Gelsin...