Отловить номер звонящего

[kif]

как отловить номер звонящего абонента

может кто знает ATI команды для этого или примерчик какой-нибудь?

[hCORe]

Microsoft Telephony API попробуй. Должно работать

[Faust]

Здесь http://archive.williamspublishing.com/cgi-bin/materials.cgi?isbn=5-8275-0021-6 есть материалы к книге "Использование Visual Basic 6. Специальное издание", среди которых - интересующий Вас CallID.

[nic0013]

Есть у меня кодинг ...
Но я что-то не разобрался с параметром pEvent.
Кто разберется напишите plis ...!?

Код: Выделить всё

Public objCallNotificationEvent As ITCallNotificationEvent
Public gobjReceivedCallInfo As ITCallInfo
Public objCallControl As ITBasicCallControl
Public gobjTAPIRegToken As Long
Public gobjAddress As ITAddress
Public objCollAddresses As ITCollection
Public gobjTAPI As New TAPI
'Public WithEvents gobjTAPIWithEvents As TAPI
'Public CL As Class1
Const TAPI3_CALL_EVENTS = _
  TE_CALLMEDIA Or _
  TE_CALLNOTIFICATION Or _
  TE_CALLSTATE Or _
  TE_DIGITEVENT
 
Private Sub Form_Load()
  gobjTAPI.Initialize
  Set objCollAddresses = gobjTAPI.Addresses
  'For j = 1 To objCollAddresses.Count
    Set gobjAddress = objCollAddresses.Item(1)
    frm_Main.cmb_Address.AddItem gobjAddress.AddressName, cmb_Address.ListCount
   ' If gobjAddress.AddressName = GetSetting("HDAUDIO Soft Data Fax Modem with SmartCP", "Config", "Address") Then
   '   frm_Main.cmb_Address.ListIndex = j - 1
   ' End If
  'Next j
  gobjTAPI.EventFilter = TAPI3_CALL_EVENTS
  Set gobjTAPIWithEvents = gobjTAPI
  gobjTAPIRegToken = gobjTAPI.RegisterCallNotifications(gobjAddress, False, True, TAPIMEDIATYPE_AUDIO, 1)
'CL.gobjTAPIWithEvents = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
  objCallControl.Disconnect DC_NORMAL
  gobjTAPI.UnregisterNotifications gobjTAPIRegToken
  gobjTAPI.Shutdown
End Sub

Private Sub gobjTAPIWithEvents_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT, ByVal pEvent As Object)
  If TapiEvent = TE_CALLNOTIFICATION Then
    Set objCallNotificationEvent = pEvent
    Set gobjReceivedCallInfo = objCallNotificationEvent.Call
    Set objCallControl = gobjReceivedCallInfo
    tim_CID.Enabled = True
    objCallControl.Answer
  End If
  If TapiEvent = TE_CALLSTATE Then
    Set gobjReceivedCallInfo = objCallNotificationEvent.Call
    Set objCallControl = gobjReceivedCallInfo
    Debug.Print "CALL STATE: " & gobjReceivedCallInfo.CallState
    If gobjReceivedCallInfo.CallState = 3 Then
      On Error Resume Next
      objCallControl.Disconnect DC_NORMAL
      On Error GoTo 0
      Set gobjReceivedCallInfo = Nothing
      Set objCallControl = Nothing
      Set objCallNotificationEvent = Nothing
    End If
  End If
End Sub

Private Sub tim_CID_Timer()
  If lbl_CID.Caption > "" Then
    tim_CID.Enabled = False
    Exit Sub
  End If
  On Error Resume Next
  a$ = gobjReceivedCallInfo.CallInfoString(CIS_CALLERIDNAME)
  b$ = gobjReceivedCallInfo.CallInfoString(CIS_CALLERIDNUMBER)
  lbl_CID.Caption = a$ + vbCrLf + b$
  On Error GoTo 0
End Sub

[Antonariy]

Нужно забить стрелку и разобраться по-мокрому? Без базара, только проблемы решаем конкретные, а не абстрактные.

PS: Код ни о чем не говорит.

[nic0013]

Хорошо ...!
Конкретная проблема: откуда в процедуре gobjTAPIWithEvents_Event взять значение pEvent? Как перейти на эту процедуру из загрузки формы?

[RayShade]

nic0013

Взять книжку и сперва прочитать о том, что такое события, как работает этот механизм в приложениях, а уже потом искать исходники и пытаться в них что то понять.

[Antonariy]

Никак не перейти. Эта процедура — событие, и оно генерируется телефонным устройством.

У меня есть рабочий код, который мониторит входящие и исходящие звонки и определяет номера, но он работает с офисной АТС и далеко не факт, что будет так же работать с другим устройством. И выложить смогу только через неделю, если не забуду. А пока могу только дать руководство, следуя которому я написал тот код:

1. открывыем все линии на мониториг
2. отлавливаем входящий звонок (событие LINE_APPNEWCALL)
3. отлавливаем на этой линии изменение состояния (событие LINE_CALLSTATE)
4. если состояние звонка LINE_CALLSTATE_OFFERING, читаем запоминаем звонок как входящий
5. отлавливаем событие LINE_CALLINFO на открытых линиях
6. если в полученном событии звонок равен запомненому, и если статус LINECALLINFOSTATE_CALLEDID, тогда RedirectingID в структуре CALLINFO есть искомый номер

[nic0013]

почему то по этому событию (звонит телефон!) оно у меня не исполняется, можно узнать почему?
линию выбрал правильно ... а вот телефонный номер не могу отловить ...
позвонить могу, а вот отловить номер не получается?

[Antonariy]

Код: Выделить всё

'Public WithEvents gobjTAPIWithEvents As TAPI

Потому что объявление объекта, ловящего события, какой-то умник закомментировал. Option Explicit — хорошая защита от таких ситуаций.

[nic0013]

дык даже когда разкоментировал, и при звонке не ловиться телефон ...!

[Antonariy]

А событие хоть срабатывает?

[nic0013]

дык вот именно, что событие не срабатывает ...
у нас 3 линии ...
все 3 линии проверил событие не срабатывает ...
через dialer делаю звонки идут и можно посмотреть номер телефона ...
а нужно сделать через VB, но ничего что-то не выходит ...

[Antonariy]

С каким устройством работаешь? Как сопрягается с компом? Короче, опиши телефонию.

И попробуй добавить в

Код: Выделить всё

Const TAPI3_CALL_EVENTS = _
  TE_CALLMEDIA Or _
  TE_CALLNOTIFICATION Or _
  TE_CALLSTATE Or _
  TE_DIGITEVENT

остальные события.

Еще скачай эту прогу, нажми кнопку Trace и посмотри что она выдаст.

[nic0013]

Ericsson BP250, подключенно com port ...

[nic0013]

и что то при добавлении событий не может сработать это событие gobjTAPIWithEvents_Event ...
а программка Trace - у нас просто своя есть ...
называется blTrace - там все нормально трассируется ...

[Antonariy]

Тогда жди до субботы, раньше я рядом с этим кодом не появлюсь.