PB_Includes
/
lweb
1
0
Fork 0
Code Issues 3 Pull Requests Projects 1 Releases 2 Wiki Activity

MapToJSONString Redo 

Was working on a older codebase ...
This commit is contained in:
René Linder 2020-11-27 11:58:18 +01:00
parent 57f76e95cd
commit eea5f589af
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lweb.pbi
View File

@ -1111,7 +1111,7 @@ Module lhs_web
ProcedureReturn 0
EndProcedure
Procedure.s MapStringToJSONString(Map ConvertMap.s())
Procedure.s MapToJSONString(Map ConvertMap.s())
Protected MyJSON
Protected.s Response
MyJSON = CreateJSON(#PB_Any)

2
lweb_header.pbi
View File

@ -90,7 +90,7 @@ DeclareModule lhs_web
Declare start_server()
Declare.s register_client_handler(Route.s, Callback.i, AppPrototype.i = #handler_proto_get, RouteType.i = #handler_sub)
Declare.s mimetype(file.s)
Declare.s MapStringToJSONString(Map ConvertMap.s())
Declare.s MapToJSONString(Map ConvertMap.s())
Declare IsIPStringValid(Adress.s)
EndDeclareModule

6
server_example.pb
View File

@ -56,7 +56,7 @@ Procedure.s Sample_Header(Map Header.s())
Response(lhs_web::#cha_R_StringBase64) = Encoded
Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html")
Response(lhs_web::#cha_R_http_head_status) = "200 OK"
ZumSenden = lhs_web::MapStringToJSONString(Response())
ZumSenden = lhs_web::MapToJSONString(Response())
Debug "ZumSenden: " + ZumSenden
ProcedureReturn ZumSenden
EndProcedure
@ -80,7 +80,7 @@ Procedure.s Formular_Test(Map Header.s(), ContentData.s)
Response(lhs_web::#cha_R_StringBase64) = Encoded
Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html")
Response(lhs_web::#cha_R_http_head_status) = "200 OK"
ZumSenden = lhs_web::MapStringToJSONString(Response())
ZumSenden = lhs_web::MapToJSONString(Response())
Debug "ZumSenden: " + ZumSenden
ProcedureReturn ZumSenden
@ -111,7 +111,7 @@ Procedure.s Php_Test(Map Header.s(), ContentData.s)
Response(lhs_web::#cha_R_StringBase64) = Encoded
Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html")
Response(lhs_web::#cha_R_http_head_status) = "200 OK"
ZumSenden = lhs_web::MapStringToJSONString(Response())
ZumSenden = lhs_web::MapToJSONString(Response())
Debug "ZumSenden: " + ZumSenden
ProcedureReturn ZumSenden
EndProcedure