Forum

Hallo,

da ich noch keinen zufrieden stellenden Gedankenansatz zur "Auslagerung" von Abfragen auf einen Server (Perl o.Ä.) habe, bastel ich an der Access-Lösung weiter...

Davon ab, dass es in den letzten Tagen immer wieder zu Hängern und Abstürzen kam (Am Samstag wurde lediglich vom ersten Einsatz der "Start" gemeldet. Alle folgenden Statusmeldungen kamen nie - auch nicht auf web.gps-explorer.de an!), habe ich (mal wieder) ein Problem mit einer neu eingebauten Kommunikation (hier Nachrichten abfragen).
Vermutlich fehlt nur wieder etwas (Entscheidendes), dass in der Online-Dokumentation nur nicht steht...
Hier mein Quellcode:

...
'feste Parameter
Set moAX = Forms("frmEinsatzblatt".GPSoverIP_APIAccess_AX.Object
Set oParameter = New clsParameter
oParameter.Server = "live.apioverip.de"
oParameter.AddModule ("message"
oParameter.AddAction ("list"
oParameter.AddMode ("1"
oParameter.AddUser gsCStr(rst("Benutzername")
oParameter.AddPwdRaw gsCStr(rst("Passwort")
'variable Parameter
oParameter.AddParam "deviceid", gsCStr(rst("DeviceID")
oParameter.AddParam "limit", ("6"
lRet = moAX.POST(oParameter) <= Fehler hier
If lRet <> 1 Then
GoTo Fehler
End If
Do While moAX.Waiting
DoEvents
Loop
lRet = moAX.Result
If Left(lRet, 10) <> "return:=-1" Then GoTo Server
...
Es folgt an der markierten Stelle Fehler 13 (Typen unverträglich)!
Ich fülle die User etc. Variablen wie üblich:
rst("Benutzername"= "250068"
rst("passwort"="xxxxxx"
rst("deviceid"="605456"
Den Rest habe ich aus der Online-Doku!

Wo mag diesmal das Problem liegen?

Viele Grüße

Hallo,

Kann das nicht evt. Eine fehlende / falsche Deklaration von oParameter sein?

Dim lRet As Long
Dim oParameter As clsParameter
Set oParameter = New clsParameter

Ist in dem Objekt auf Ihrem Formular denn auch was“ drin, oder ist es leer?

Ich habe übrigens mal die Funktion des Versendes ausgelagert. Dazu habe ich in einem Modul die benötigten Funktionen gekapselt, habe ein Form gemacht, in welchem ich die Funktionen zum Aufruf und der Rückgabe der Daten als public deklariert habe. Enn ich nun in dem Modul die Methoden zur Kommunikation aufrufe, öffne ich das Form unsichtbar, gebe die Parameter über die public-Funktionen rein, erledige die Kommunikation, schließe das Fenster wieder und das Modul gibt dann den Rückgabewert zurück.

Evtl. ist das ein Ansatz, damit Sie nicht in jedem einzelnen Form, in dem Sie die Kommunikation benötigen, alles erneut programmieren müssen…