Hallo,

bei mir wird eine bestimmt Datei nicht übertragen.
Die Datei wird erkannt (IN Verzeichnis) und dann versucht der HLD sie zu übertragen.
Beim Debuggen kommt aus eurer Funktion GetData folgende WebException – 500 –interner Serverfehler:

Hat da jemand eine Idee, was den Fehler auf eurer Seite auslöst?

Ich habe die Datei mal editiert und aus „Frau“ ein „Herrn“ gemacht und dann wird sie übertragen ????

Vielen Dank

Manfred Kasko

Hallo Herr Kasko,

können Sie uns die Aufrufparameter mal schicken?
Dann debuggen wir das hier mal durch.

Hallo,

meine aktuelle Funktion: die Variablen f1 bis f19 können Sie mit den Daten aus den TXT Dateien füllen.

Dim result As String
Dim arr As New Dictionary(Of String, String)

Dim byt As Byte() = System.Text.Encoding.Default.GetBytes(f14 & " " & f15 & " " & f16 & Chr(10) & f10 & Chr(10) & f11 & Chr(10) & f12 & Chr(10) & f13 & Chr(10) & f17 & Chr(10) & "GeschäftspartnerID: " & f18)
Dim format As [String]= "yyyy-MM-dd hh:mm:ss"
Dim str As [String]= DateAdd(DateInterval.Hour, 2, Now).ToString(format)

Dim _f7 As String = f7
_f7 = Replace(_f7, "ä", "ae"
_f7 = Replace(_f7, "ü", "ue"
_f7 = Replace(_f7, "ö", "oe"
_f7 = Replace(_f7, "ß", "ss"
_f7 = Replace(_f7, "Ä", "Ae"
_f7 = Replace(_f7, "Ü", "Ue"
_f7 = Replace(_f7, "Ö", "Oe"

Dim _f19 As String = f19
_f19 = Replace(_f19, "ä", "ae"
_f19 = Replace(_f19, "ü", "ue"
_f19 = Replace(_f19, "ö", "oe"
_f19 = Replace(_f19, "ß", "ss"
_f19 = Replace(_f19, "Ä", "Ae"
_f19 = Replace(_f19, "Ü", "Ue"
_f19 = Replace(_f19, "Ö", "Oe"

arr.Add("module", "job"
arr.Add("action", "save"
arr.Add("mode", "manual"
arr.Add("type", "plain"
arr.Add("user", pv_Account)
arr.Add("pwd", pv_Passwort)
arr.Add("templateid", ""
arr.Add("uniqueid", f1 & " " & f2 & " " & f3)
arr.Add("name", _f19)
arr.Add("description", Convert.ToBase64String(byt))
arr.Add("street", f8)
arr.Add("housenumber", f9)
arr.Add("code", f6)
arr.Add("city", _f7)
arr.Add("district", ""
arr.Add("state", ""
arr.Add("country", "DE"
arr.Add("sms", ""
arr.Add("email", ""
arr.Add("reminder", ""
arr.Add("duetime", str)
arr.Add("geofencing", ""
arr.Add("geomessage", ""
arr.Add("geoemail", ""
arr.Add("geosms", ""
arr.Add("lat", ""
arr.Add("lon", ""
arr.Add("extensions", ""

result = ApiGetData(arr)
If result = "" Then
result = "return:=-1"
Else
result = ApiUnzip(result)
End If

Können Sie uns mal den String schicken ?

Convert.ToBase64String(byt))

Wenn ich mich recht entsinne, gab es da ein Problem, dass .NET ab und zu bei Base64 Probleme hat.

TVAgV9xMIDAwMDEKRnJhdQpIZWR3aWcgS+RmZXJi9mNrCktpcmNocGxhdHogNAo5NzIyOCBSb3R0ZW5kb3JmCgpHZXNjaORmdHNwYXJ0bmVySUQ6IDAwMDcxNjM0Mzk=

Das Problem ist das +-Zeichen im Base64-String.

Der String muss bei einem get url-encoded werden,
damit die Daten komplett ankommen.
Ansonsten würde das +-Zeichen in ein Leerzeichen umgesetzt werden und damit der Base64-String unterbrochen werden.

Ahhhh, alles klar.

Vielen Dank für die Info