|
Solution Httprequest + HttpGetResult return Chines/Japones in iOS Apple |
Débuté par adrianoboller, 15 oct. 2014 21:45 - 3 réponses |
| |
| | | |
|
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 15 octobre 2014 - 21:45 |
Hi Guys,
I was going through would be a problem with my ANDROID and iOS (Apple iphone/ipad) mixed design, on a single project.
In Android at all ok to use the webservice query and submit data using HttpRequest + HttpGetResult same as in examples
BUT he sent in iOS (Apple ipad/iPhone) right and came back in Chinese/Japones!!!!!!!!
After three days of several attempts managed to find a solution!
Httprequest = use the same there as in the examples of PCSoft to make the request to webservices and websites.
BUT HttpGetResult = Developed a global procedure to treat this problem
PROCEDURE Android_IOS_HTTPGetResult() // Variable bufResHTTP is Buffer sHTTPResult is string
// Retrieves the result of the query bufResHTTP = HTTPGetResult(httpResult) // Result in UTF8 em iOS Apple IF IniOSMode() = True OR IniOSSimulatorMode() = True OR IniOSEmulatorMode() = True IF StringCount(bufResHTTP, “ISO-8859-1”, IgnoreCase) = 0 THEN sHTTPResult = UTF8ToString(bufResHTTP) ELSE sHTTPResult = AnsiToUnicode(bufResHTTP) END ELSE IF InAndroidMode() = True OR InAndroidSimulatorMode() = True OR InAndroidEmulatorMode() = True // Result in Android sHTTPResult = bufResHTTP END RESULT sHTTPResult
100% ok in Android and iOS on a single project.
Return ANSI Code Legivel |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 20 juin 2015 - 21:48 |
BufferTexto is Buffer = Texto IF StringCount(BufferTexto, “ISO-8859-1”, IgnoreCase) = 0 THEN Texto = UTF8ToString(BufferTexto) ELSE Texto = AnsiToUnicode(BufferTexto) END
|
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 20 juin 2015 - 21:48 |
Procedure Remove_Acento( Texto )
Texto = NoAccent(Texto)
ChangeCharset(charsetOccidental)
BufferTexto is Buffer = Texto IF StringCount(BufferTexto, “ISO-8859-1”, IgnoreCase) = 0 THEN Texto = UTF8ToString(BufferTexto) ELSE Texto = AnsiToUnicode(BufferTexto) END
Texto = Replace(Texto,"xE1","a") Texto = Replace(Texto,"xE3","a") Texto = Replace(Texto,"xEA","e") Texto = Replace(Texto,"xE9","e") Texto = Replace(Texto,"xED","i") Texto = Replace(Texto,"xF3","o") Texto = Replace(Texto,"xF4","o") Texto = Replace(Texto,"xFA","u") Texto = Replace(Texto,"xE7","c") Texto = Replace(Texto,"xC1","A") Texto = Replace(Texto,"xCD","I") Texto = Replace(Texto,"r$"," R$ ")
Texto = Replace(Texto,Charact(34),"")
Texto=Replace(Texto,"A£","a") Texto=Replace(Texto,"ã","a") Texto=Replace(Texto,"£","") Texto=Replace(Texto,"á","a") Texto=Replace(Texto,"é","e") Texto=Replace(Texto,"Ã","i") Texto=Replace(Texto,"ó","o") Texto=Replace(Texto,"ú","u") Texto=Replace(Texto,"Ã","A") Texto=Replace(Texto,"A","A") Texto=Replace(Texto,"É","E") Texto=Replace(Texto,"Ã","I") Texto=Replace(Texto,"Ó","O") Texto=Replace(Texto,"Ú","U")
Texto=Replace(Texto,"Â","A") Texto=Replace(Texto,"Ô","O") Texto=Replace(Texto,"A•","O") Texto=Replace(Texto,"Õ","O") Texto=Replace(Texto,"¡","") Texto=Replace(Texto,"â","a") Texto=Replace(Texto,"¢","") Texto=Replace(Texto,"õ","o") Texto=Replace(Texto,"µ","O") Texto=Replace(Texto,"Áº","u") Texto=Replace(Texto,"Aº","u") Texto=Replace(Texto,"º","u") Texto=Replace(Texto,"Ã","A") Texto=Replace(Texto,"ƒ","") Texto=Replace(Texto,"Ê","E") Texto=Replace(Texto,"©","") Texto=Replace(Texto,"ê","e") Texto=Replace(Texto,"ª","") Texto=Replace(Texto,"ô","o") Texto=Replace(Texto,"´","") Texto=Replace(Texto,"Aµ","O") Texto=Replace(Texto,"µ","") Texto=Replace(Texto,"ó","O") Texto=Replace(Texto,"³","") Texto=Replace(Texto,"A“","O") Texto=Replace(Texto,"“","") Texto=Replace(Texto,"Aº","U") Texto=Replace(Texto,"º","") Texto=Replace(Texto,"ç","c") Texto=Replace(Texto,"§","") Texto=Replace(Texto,"Ç","C") Texto=Replace(Texto,"‡","") Texto=Replace(Texto,"ãO","AO") Texto=Replace(Texto,"£","") Texto=Replace(Texto,"É","E") Texto=Replace(Texto,"‰","") Texto=Replace(Texto,"Ã%","E") Texto=Replace(Texto,"A£","a") Texto=Replace(Texto,"£","") Texto=Replace(Texto,"","") Texto=Replace(Texto,"¡","") Texto=Replace(Texto,"¢","") Texto=Replace(Texto,"~a","a") Texto=Replace(Texto,"ã","a") Texto=Replace(Texto,"á","a") Texto=Replace(Texto,"à","a") Texto=Replace(Texto,"â","a") Texto=Replace(Texto,"ä","a")
Texto=Replace(Texto,"~e","e") Texto=Replace(Texto,"é","e") Texto=Replace(Texto,"è","e") Texto=Replace(Texto,"ê","e") Texto=Replace(Texto,"ë","e")
Texto=Replace(Texto,"~i","i") Texto=Replace(Texto,"í","i") Texto=Replace(Texto,"ì","i") Texto=Replace(Texto,"î","i") Texto=Replace(Texto,"ï","i")
Texto=Replace(Texto,"~o","o") Texto=Replace(Texto,"õ","o") Texto=Replace(Texto,"ó","o") Texto=Replace(Texto,"ò","o") Texto=Replace(Texto,"ô","o") Texto=Replace(Texto,"ö","o")
Texto=Replace(Texto,"~u","u") Texto=Replace(Texto,"ú","u") Texto=Replace(Texto,"ù","u") Texto=Replace(Texto,"û","u") Texto=Replace(Texto,"ü","u")
Texto=Replace(Texto,"ç","c") Texto=Replace(Texto,"Ç","C")
Texto=Replace(Texto,"~A","A") Texto=Replace(Texto,"Ã","A") Texto=Replace(Texto,"Á","A") Texto=Replace(Texto,"À","A") Texto=Replace(Texto,"Â","A") Texto=Replace(Texto,"Ä","A")
Texto=Replace(Texto,"~E","E") Texto=Replace(Texto,"É","E") Texto=Replace(Texto,"È","E") Texto=Replace(Texto,"Ê","E") Texto=Replace(Texto,"Ë","E")
Texto=Replace(Texto,"~I","I") Texto=Replace(Texto,"Í","I") Texto=Replace(Texto,"Ì","I") Texto=Replace(Texto,"Î","I") Texto=Replace(Texto,"Ï","I")
Texto=Replace(Texto,"~O","O")
Texto=Replace(Texto,"Õ","O") Texto=Replace(Texto,"Ó","O") Texto=Replace(Texto,"Ò","O") Texto=Replace(Texto,"Ô","O") Texto=Replace(Texto,"Ö","O")
Texto=Replace(Texto,"~U","U") Texto=Replace(Texto,"Ú","U") Texto=Replace(Texto,"Ù","U") Texto=Replace(Texto,"Û","U") Texto=Replace(Texto,"Ü","U")
RESULT(Texto) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 651 messages Popularité : +175 (223 votes) |
|
Posté le 24 mars 2016 - 20:46 |
Prezados,
Caso de problema com acentuação, use:
Esse comando chegou a testar?
retorno is string = UFT8toString(textocomacento)
USE O COMANDO UTF8ToString OU AnsiToUnicode
ProcedureWS_Android_IOS_HTTPGetResult()
bufResHTTP is Buffer sHTTPResult isstring
bufResHTTP=HTTPGetResult(httpResult)
IFIniOSMode() =TrueORIniOSSimulatorMode() =TrueORIniOSEmulatorMode() =True IFStringCount(bufResHTTP, “ISO-8859-1”,IgnoreCase) =0THEN sHTTPResult=UTF8ToString(bufResHTTP) ELSE sHTTPResult=AnsiToUnicode(bufResHTTP) END ELSE IFInAndroidMode() =TrueORInAndroidSimulatorMode() =TrueORInAndroidEmulatorMode() =True
sHTTPResult=bufResHTTP END
RESULTsHTTPResult
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.blogspot.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|