diff --git a/server_example.pb b/server_example.pb index 2501528..db56f1f 100644 --- a/server_example.pb +++ b/server_example.pb @@ -121,9 +121,13 @@ Procedure.s Formular_Test(Map Header.s(), ContentData.s) Wend lhs_log::Out("TBD:"+TBD) lhs_log::Out("contentData:"+ContentData) - Text = "
Alle Client Headers
"+TBD+"

ConentJSON


"+ContentData+"" - *Text = AllocateMemory(StringByteLength(Text)) - PokeS(*Text, Text) + ContentData = URLDecoder(ContentData, #PB_UTF8) + Text = ~"" + + "" + + ~"" + + "Alle Client Headers"+TBD+"

ConentJSON


"+ContentData+"" + *Text = AllocateMemory(StringByteLength(Text, #PB_UTF8)) + PokeS(*Text, Text, -1, #PB_UTF8) lhs_log::Out("Unencoded:"+PeekS(*Text, -1 , #PB_UTF8)) Encoded = Base64Encoder(*Text, MemorySize(*Text)) lhs_log::Out("Encoded: " + Encoded) @@ -155,8 +159,8 @@ Procedure.s Php_Test(Map Header.s(), ContentData.s) CloseProgram(Php) ; Schließt die Verbindung zum Programm EndIf Text = Phpresult - *Text = AllocateMemory(StringByteLength(Text)) - PokeS(*Text, Text) + *Text = AllocateMemory(StringByteLength(Text, #PB_UTF8)) + PokeS(*Text, Text, -1, #PB_UTF8) lhs_log::Out("Unencoded:"+PeekS(*Text, -1 , #PB_UTF8)) Encoded = Base64Encoder(*Text, MemorySize(*Text)) lhs_log::Out("Encoded: " + Encoded)