עזרה באקסס סימני שאלה במקום עברית בשימוש בJson

[ארי4791]

שלום וברכה.
יש לי פונקציה לשלוח API (סליקת אשראי בקשר) דרך VBA באקסס.
אבל כל מה שאני כותב בעברית הוא מציג בתור סימני שאלה.
בתוכנה אחרת (לא אקסס) זה עובד, מה שאומר שהבעיה היא אצלי בקוד.
יש למישהו רעיון איך לפתור את העניין?
תודה

הקוד שלי הוא:

Public Function transaction()
Dim oHttp As Object
Dim TextBody As String

Set oHttp = CreateObject("MSXML2.XMLHTTP")

TextBody = "https://kesherhk.info/ConnectToKesher/ConnectToKesher?Json={""userName"":""1234567890"",""password"":""abcdef1234"",""func"":""SendTransaction"",""format"":""json"","""
TextBody = TextBody & "tran"":{""Address"":""שם רחוב"",""ApiKey"":""ABC123"",""City"":""עיר"",""CreditNum"":""4580000000001234"",""Token"":null,"""
TextBody = TextBody & "Expiry"":""2101"",""Cvv2"":""123"",""Total"":100,""Currency"":1,""CreditType"":1,""Phone"":""0521234567"",""ParamJ"":""J4"",""TransactionType"":""debit"",""Comment1"":""הערה 1"","""
TextBody = TextBody & "FirstName"":""שם פרטי"",""LastName"":""שם משפחה"",""ProjectNumber"":""1"",""Mail"":""<לא ניתן לפרסם מיילים באופן פומבי>""}}&format=json"

oHttp.Open "GET", TextBody, False

oHttp.send TextBody
Debug.Print oHttp.responseText
End Function

יש לציין שהקוד עובד, זאת אומרת האשראי נגבה כמו שצריך, רק הנתונים הופכים לסימני שאלה.
שוב תודה!

 

[מאה100]

אולי צריך לקודד את הקובץ באיזה UTF 8 או משהו כזה.

 

[ארי4791]

ואיך עושים את זה?

 

[מתמצא]

תוסיף בין ה open ל send את השורה הזאת

       oHttp.SetRequestHeader "Content-Type", "multipart/form-data;Charset=UTF-8; convertAudio=1;boundary=a832972453175"

 

[ארי4791]

לא עוזר.

 

[ארי4791]

@מתמצא אולי יש לך עוד רעיון?
אני פשוט תקוע אם זה.
תודה!

 

[מתמצא]

מהו המקור של הקוד הזה?

 

[ארי4791]

חלקו קיבלתי מקשר, וחלקו המצאה שלי....
למה?
הוא כזה גרוע?

 

[מתמצא]

השורה הנ"ל שציינתי עוזרת כששולחים ב POST
קשר הורו לך לשלוח ב GET דוקא?

 

[ארי4791]

כן.
יש משהו דומה בשביל GET?

 

[מתמצא]

אז אולי תפרט מה קשר אמרו לך ומה הוספת מעצמך
באופן עקרוני -
אחד ההבדלים בין GET ל POST זה שב GET הבקשה נשלחת בגוף ה URL, זאת אומרת בשורת הכתובת, לכן יתכנו שיבושים בטקסט שנשלח בו, לעומת זאת ב POST הבקשה נשלחת כיחידה בפני עצמה כך שאפשר לשלוט על הטקסט שישלח בה

 

[ארי4791]

זה מה שאני קיבלתי מהם:

https://kesherhk.info/ConnectToKesher/ConnectToKesher?Json={"userName":"XXXX","password":"‏XXXXX","func":"SendTransaction","format":"json","tran":{"Address":"address_test","ApiKey":" XXX","City":"city_test","CreditNum":"","Token":null,"Expiry":"","Cvv2":"","Total":100,"Currency":1,"CreditType":1,"Phone":"","ParamJ":"J4","TransactionType":"debit","Comment1":"","FirstName":"fname_test","LastName":"lname_test","ProjectNumber":"92","Mail":""}}&format=json

אני הכנסתי את זה לVBA לבד.

 

[ארי4791]

יש למישהו בבקשה איך לעזור לי?
הנתונים הם כאלה, יש לי את הכתובת GET שאני צריך לשלוח לה את הנתונים.
ושאני שולח דרך תוכנה כלשהי זה עובד מצוין, וכן אם אני כותב את זה ידנית בכתובת URL זה גם עובד.
אבל כשאני שולח דרך אקסס, כל מה שכתוב בעברית נהפך לסימני שאלה.
מישהו מכיר בעיה כזאת ואיך אפשר לפתור אותה?
תודה רבה רבה.

 

[אפר]

יש למישהו בבקשה איך לעזור לי?
הנתונים הם כאלה, יש לי את הכתובת GET שאני צריך לשלוח לה את הנתונים.
ושאני שולח דרך תוכנה כלשהי זה עובד מצוין, וכן אם אני כותב את זה ידנית בכתובת URL זה גם עובד.
אבל כשאני שולח דרך אקסס, כל מה שכתוב בעברית נהפך לסימני שאלה.
מישהו מכיר בעיה כזאת ואיך אפשר לפתור אותה?
תודה רבה רבה.

אולי תנסה להמיר את זה לקידוד של דפדפן (20% לרווח וכו')

 

[ארי4791]

ניסיתי, לא עובד.

 

[ארי4791]

הצלחתי!!!
השתמשתי בMSXML2.ServerXMLHTTP60 וזה עובד מצוין כולל העברית.
תודה לכולם!