Hallo Forum ,
ich versuche Daten an die Facebook Graph API zu mit dem HTTP Client aus Excel zu senden. Leider habe ich ein Encoding Problem, sodass Sonderzeichen und Umlaute in Facebook nicht richtig dargestelt werden . Ich formatiere mir ein JSON in einem einfachen String den dann in ein Bytearray konvertiere ;
Dim sPostData as String
Dim bSendBuffer() As Byte
sPostData = "Das ist mein JSON Content... in dem zb ÜÖÄ vorhanden sind "
bSendBuffer = StrConv(sPostData, vbFromUnicode)
Dim xmlhttp As New MSXML2.XMLHTTP30
With xmlhttp
.Open "POST", sUrl, False
.setRequestHeader "Content-Type", "multipart/form-data;" _
& "boundary=" & BOUNDARY
.send bSendBuffer
End With
Ich habe bereits versucht beim Content-Type hinter From data utf-8 oder iso-8859-1 zu stellen, was aber keinen Effekt hat... Im Internet habe ich ein paar hinweise auf einen adodb.stream gefunden, damit bin ich aber auch nicht weiter gekommen. Es wird viel beschrieben, dass es Probleme mit Enconding bei empfangenen Inhalten gibt, aber ich habe niemand gefunden, der beschreibt, dass die Daten auf dem Server falsch encodiert ankommen...