Gerhard Bunzel schrieb am Freitag, 7. September 2012 um 12:12:03 UTC+2:
Jean-Juc,
...maybe this will help you....
On http://www.knowvo.com you will find a working TAPI-sample from Giny without ActiveX. Do a search with 'TAPI'.
HTH
Gerhard
"Jean-Luc Stassen" <igsoft...@gmail.com> schrieb im Newsbeitrag news:55899b0b-8385-4d52...@googlegroups.com...
Hello,
I try to get this active X working, but I have a problem with de "Collections"
Here is the example in Visual Fox Pro
Private Sub Form_Load()
Dim line As ITAPILine
mTAPIEx.Initialize 'Initialize
For Each line In mTAPIEx.Lines 'enumerate the line devices
If (line.Caps.Line_Features And LINE_FEATURE_MAKECALL) > 0 Then CbLines.AddItem line.DeviceName
CbLines.ItemData(CbLines.ListCount - 1) = line.DeviceID
End If
Next
If CbLines.ListCount > 0 Then CbLines.ListIndex = 0
End Sub
I try in Vo something like this, but no success:
METHOD PB_APPEL( ) CLASS W_TAPIWIN
local oTLine as object
local oLine as object
local oItapiLines as object
local i as dword
local ocall as object
local aLines as array
oItapiLines := self:oTapi:Lines // OK work, the oleobject is well initalized
aLines:={}
for i:=1 to oItapiLines:count // ok count = 7 AAdd(aLines,oItapiLines:[Line,i]) // not ok, i also try :[Item,i] ou [Lines,i] ==> member not found
next
The access Lines normaly return a collection of ITAPILine interfaces
Any idea ?
Thanks,
Jean-Luc
-------------------------------------------------
Gerhard,
Jean-Juc,
...maybe this will help you....
On http://www.knowvo.com you will find a working TAPI-sample from Giny without ActiveX. Do a search with 'TAPI'.
is this sample available anwhere else ?
Armin
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)