Примеры Tapi 3

[Создатель]

Просто ужасно необходмы исходники на любом языке, демострирующие подключение через tapi 3.
Или любые статьи на эту тему. В msdn все вокруг да около, а конкретного примера соединения через модемы нет

[Pantalone]

Нашел?

[Antonariy]

Есть, плохо искал.

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

Dim objTAPI As TAPI3Lib.TAPI

Private Sub Form_Load()
Dim addr As ITAddress
    objTAPI.Initialize
    For Each addr In objTAPI.Addresses
        'среди них найдется модем
        Exit For
    Next
   
Dim cc As ITBasicCallControl
    Set cc = addr.CreateCall("911", 0, TAPIMEDIATYPE_AUDIO) 'не помню смысл второго параметра
    cc.Connect
End Sub

И в нете полно примеров. Гугление по всяким ITAddress, ITBasicCallControl дает массу результатов.