VB Script Com Interface liefert Keine Daten
Ich will mit Visual Basic Script auf die folgende com Schnitstelle zugreifen
Und dies mit der folgenden Funktion
Das Script läuft auch ohne Feher durch. Aber im Data String sind die vom com Interface gelieferten Daten nich drinn. Wen ich den Aufruf request
ohne Klammern aufrufe gibt es eine type mismatch error zur laufzeit
was mache ich falsch ?
Ich will mit Visual Basic Script auf die folgende com Schnitstelle zugreifen
C-Quellcode
- interface INmsDbData : IDispatch
- {
- [id(1)] HRESULT Do ( [in] long id, [in] BSTR version, [in] BSTR sender, [in] BSTR login, [in] BSTR selection, [out, retval] long* retval);
- [id(2)] HRESULT Request ( [in] long id, [in] BSTR version, [in,out] BSTR sender, [in] BSTR login, [in] BSTR selection, [in, out] BSTR* data , [out, retval] long* retval );
- [id(3)] HRESULT OnTicket ( [in] BSTR dialNumber, [in] BSTR recordType, [in] BSTR calculatedCharge, [in] BSTR currency, [in] BSTR chargePulseInfo, [in] BSTR timeStamp, [in] BSTR duration, [in] BSTR digits, [out, retval] long* retval );
- [id(4)] HRESULT sendCmd ( [in] BSTR cmd, [in, out] BSTR* result );
- [id(5)] HRESULT sendCmdBinary ( [in] BSTR clientName, [in] BSTR userName, [in] BSTR cmd, [in, out] BSTR* result );
- [id(6)] HRESULT Request64 ( [in] long id, [in] BSTR version, [in,out] BSTR sender, [in] BSTR login, [in] BSTR selection, [in, out] BSTR* data , [in, out] BSTR data64, [out, retval] long* retval );
- };
Und dies mit der folgenden Funktion
VB.NET-Quellcode
- Private Sub Request_2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Request_2.Click
- Dim r As Integer
- Dim data As String
- ErrorText.Text = ""
- If obj Is Nothing Then obj = CreateObject("NmsTaskDbSv.64Bit_NmsDbData")
- 'UPGRADE_WARNING: Couldn't resolve default property of object obj.Request. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
- r = obj.Request(15102, "1.0", "DatO", "customerservice/customer", "ACCOUNT=" & Par_2_1.Text, (data))
- If (r = 0) Then
- Result_2.Text = data
- Else
- ShowLastError()
- End If
- End Sub
Das Script läuft auch ohne Feher durch. Aber im Data String sind die vom com Interface gelieferten Daten nich drinn. Wen ich den Aufruf request
ohne Klammern aufrufe gibt es eine type mismatch error zur laufzeit
was mache ich falsch ?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TAK“ ()