@Chris: Klasse, danke ...
Also, ich habe weiter gebastelt,... und jetzt hängt es an der Tapi-Negociation...
auch wie ich denke, das es weitergehen müsste, habe ich mal dazu geschrieben,....
Allerdings ist mir völlig klar, das das Script voll mit Fehlern ist,.... das Problem bleibt weiterhin das gleich,... ich kapiere nicht wie ich mit den ganzen Handels umgehen soll.
Ich habe als vorläufige Notlösung jetzt eine Variante mit nem externen Programm (Phoner und autostart) gebastelt,.... für erstmal geht das,.... aber da kriege ich nur eine Linie auf einmal ans laufen. Auf jeden Fall kann ich damit meine Hardware testen aber als entgültige Lösung ist das ein bischen dünn.
Aber wohlmöglich habe ich mich mit dem Tapi-Zeuch etwas übernommen.....
Bin also weiterhin für jede Hilfe Dankbar.
(und sollte jemand Spass daran haben,... mir ein bischen mehr bei dem TAPI part zu helfen,...da könnte ich mich mit z.B. ner Kiste gutem Cahorwein oder so revanchieren. (Ja, aus Frankreich!
)
Grüsse,
Sebastian
Code: Alles auswählen
;Nur mal ein kleiner Test zum besseren Verständniss....
lphLineApp.l
hInstance.l
lpdwNumDevs.l
lphLine.l
lphCall.l
hline.l
m_APIversions.l
m_ExtAPIversions.l
m_ApplicationVersion .l ;'some TAPI calls need this instead of negotiated API version
m_LowAPI.l ;'default TAPI 1.3 (&H00010003)
m_HiAPI.l ; 'default TAPI 3.0 (&H00030000)
m_LastTAPIError.l
phonenumber.s = "201"
; das sind die TApi vorgaben, die ich nicht eingetragen bekomme....
; m_LowAPI = &H00010003 ; erstmal ausgestellt, da es sonst nicht kompiliert
; m_HiAPI = &H00010003
Dim m_APIversions.l(1)
Dim m_ExtAPIversions(1)
Procedure getlowapi()
LowAPI = m_LowAPI
EndProcedure
Procedure gethiapi()
HiAPI = m_LowAPI
EndProcedure
Procedure LineIniCallback(hDevice, dwMsg, dwCallbackInstance, dwParam1, dwParam2, dwParam3)
Debug hdevice
Debug dwMsg
Debug dwCallbackInstance
Debug dwParam1
Debug dwParam2
Debug dwParam3
; Hier wird Ihre Callback Prozedur abgearbeitet.
EndProcedure
;******* hier gehts los...
test = lineInitialize_(@lphLineApp, hInstance, @LineIniCallback(), "Test", @lpdwNumDevs)
Debug test
Debug lphLineApp
Debug lpdwNumDevs
;****** so, bis hierher alles super, nochmal Danke Chris
;todo: tapi negoc
If test <> 0
m_LastTAPIError = test
Else
If lpdwNumDevs < 1
Debug " no lines!"
EndIf
;negotiate and cache API versions for each line
ReDim m_APIversions.l(lpdwNumDevs - 1)
ReDim m_ExtAPIversions(lpdwNumDevs - 1)
For line = 0 To lpdwNumDevs - 1
test = lineNegotiateAPIVersion_(@lphLineApp, 0, m_LowAPI, m_HiAPI, @m_APIversions(line), lxid)
Debug "Rückgabe Tapi Negociation Line:"+ Str(line) + " " + Str(test)
If test <> 0
m_APIversions(line) = 0 ;no compatible API negotiated for this line
test = 0
Else ; das benötige ich glaube ich nicht
;also cache extension version (dev-specific features) if available
;,m_ExtAPIversions(line).dwExtensionID0 = lxid.dwExtensionID0
;,m_ExtAPIversions(line).dwExtensionID1 = lxid.dwExtensionID1
;,m_ExtAPIversions(line).dwExtensionID2 = lxid.dwExtensionID2
; ,m_ExtAPIversions(line).dwExtensionID3 = lxid.dwExtensionID3
;TODO! add call to lineNegotiateExtVersion()
;and save the highest negotiated version as our app version
If m_APIversions(line) > m_ApplicationVersion
m_ApplicationVersion = m_APIversions(line)
EndIf
EndIf
Next
EndIf
If test = 0 ;
;wieder die Vorgaben aus meinem TAPIBrowser hLineApp=x800003ff , dwDeviceID=x0 , lphLine=x2780d0, dwAPIVersion=x20000, dwExtVersion=x0,dwCallbackInstance=x0, dwPrivileges=x1dw,MediaModes=x10,lpCallParams=x0
test = lineOpen_(@hLineApp, 0, @lphLine, @dwAPIVersion,dwExtVersion, @LineIniCallback(), dwPrivileges, dwMediaModes, lpCallParams)
Debug "Rückgabe Lineopen:" +Str(test)
EndIf
test=0
If test = O
;und endlich wird gewählt...
If phonenumber = "" ;just get dialtone
test = lineMakeCall_(@hLine, @lphCall,"",@dwCountryCode,lpCallParams)
Else ;dial a number
test = lineMakeCall_(@hLine, @lphCall, phonenumber, @dwCountryCode,lpCallParams)
EndIf
If test > 0
;now placing call - completion will be signalled by a LINE_REPLY event in the callback
;store positive request identifier in class member variable for use in the callback handler
m_RequestingCall = test
Else
m_LastTAPIError = test
Debug "Fehler beiLinemakecall: "+ Str(m_LastTAPIError)
EndIf
EndIf
Insofern war mein "Witz" eher ein "Test" und die Falle scheint zugeschnappt. 
