[WD23] JSONVersVariant (Exemple) ??? October 01, 2021 01:06PM |
Registered: 5 years ago Posts: 236 |
MaReq is restRequest LaResponse is restResponse vReponseVariant is Variant MaReq.URL = " [www.cbbh.ba] " LaResponse = RESTSend(MaReq) vReponseVariant=JSONToVariant(UTF8ToAnsi(LaResponse.Content)) //JSONVersVariant(UTF8ToAnsi(LaResponse.Content)) sJSon is ANSI string = UTF8ToAnsi(LaResponse.Content) soit vjs = JSONVersVariant(sJSon) POUR TOUT _Membre DE vjs..Member SI _Membre..Membre..Occurrence = 0 ALORS Trace("Le membre " + _Membre..Nom + " a la valeur " + _Membre..Valeur) SINON Trace("Le membre " + _Membre..Nom + " a " + _Membre..Membre..Occurrence + ... " autres membres") //ParcoursMembresVariant(_Membre) FIN FIN PROCEDURE INTERNE ParcoursMembresVariant(x) POUR TOUT _Membre DE x..Membre SI _Membre..Membre..Occurrence = 0 ALORS Trace(Répète("--", ChaîneOccurrence(dbgInfo(dbgPile), RC)) + ... "Le membre " + _Membre..Nom + " donje sranje " + _Membre..Valeur) SINON Trace(Répète("--", ChaîneOccurrence(dbgInfo(dbgPile), RC)) + ... "Le membre " + _Membre..Nom + " a " + _Membre..Membre..Occurrence + ... " autres membres...") ParcoursMembresVariant(_Membre) FIN FIN FIN
Error at line 176 of Click BTN_NoName1 process. JSONToVariant function called. Invalid JSON format ----- Technical Information ----- Project : INFOS WL call: Process of 'Click BTN_NoName1' (WIN_VISION_VALUTE.BTN_NoName1), line 176, thread 0 'JSONToVariant' function, syntax 0 What happened? Invalid JSON format Error code: 40129 Level: fatal error Dump of the error of 'wd230xml.dll' module (23.0.29.0). Debugging information: Fonction (0,325) Additional Information: EIT_PILEWL : Click BTN_NoName1 (WIN_VISION_VALUTE.BTN_NoName1), line 176 Local Procedure Tree_Klik (WIN_MENI.PROCEDURE.Tree_Klik), line 434 Selecting a row of TREE_Robno (WIN_MENI.TREE_Robno), line 2 Click BTN_PRIJAVA (WIN_PRIJAVA.BTN_PRIJAVA), line 27 Exit from EDT_PASWORD (WIN_PRIJAVA.EDT_PASWORD), line 5 Initializing INFOS (), line 274 EIT_DATEHEURE : 01/10/2021 13:11:44 EIT_TYPE_WDFILE : <2> EIT_IDCODE : <18> Help
Argus
Re: [WD23] JSONVersVariant (Exemple) ??? October 01, 2021 02:50PM |
Re: [WD23] JSONVersVariant (Exemple) ??? October 01, 2021 04:17PM |
Registered: 5 years ago Posts: 236 |
Re: [WD23] JSONVersVariant (Exemple) ??? October 01, 2021 08:24PM |
Registered: 5 years ago Posts: 192 |
Re: [WD23] JSONVersVariant (Exemple) ??? October 01, 2021 08:28PM |
Registered: 5 years ago Posts: 192 |
sJSON is string myJSON is Variant IF HTTPRequest("[www.cbbh.ba] THEN sJSON = HTTPGetResult() Info(sJSON) myJSON = sJSON myJSON = JSONToVariant(sJSON) Trace(myJSON.Date) // Trace(myJSON.Comments) does not work for some reason Trace(myJSON.Number) Trace(CR) FOR i = 1 TO myJSON.CurrencyExchangeItems..Occurrence Trace(myJSON.CurrencyExchangeItems.Country) Trace(myJSON.CurrencyExchangeItems.NumCode) Trace(myJSON.CurrencyExchangeItems.AlphaCode) Trace(myJSON.CurrencyExchangeItems.Units) Trace(myJSON.CurrencyExchangeItems.Buy) Trace(myJSON.CurrencyExchangeItems.Middle) Trace(myJSON.CurrencyExchangeItems.Sell) Trace(CR) END ELSE Error() END
Re: [WD23] JSONVersVariant (Exemple) ??? October 01, 2021 11:57PM |
Registered: 5 years ago Posts: 236 |
Re: [WD23] JSONVersVariant (Exemple) ??? October 04, 2021 10:13AM |
Registered: 5 years ago Posts: 236 |