PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → Solution Httprequest + HttpGetResult return Chines/Japones in iOS Apple
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, :D

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! :merci:

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 :o

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
//Remove acentos e codigos chineses e japoneses
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)// SEM ACENTO

//Remove acentos e codigos chineses e japoneses
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")// adicionado por celio
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()

// Variable
bufResHTTP is Buffer
sHTTPResult isstring

// Retrieves the result of the query
bufResHTTP=HTTPGetResult(httpResult)

// Result in UTF8 em iOS Apple
IFIniOSMode() =TrueORIniOSSimulatorMode() =TrueORIniOSEmulatorMode() =True
IFStringCount(bufResHTTP, “ISO-8859-1,IgnoreCase) =0THEN
sHTTPResult=UTF8ToString(bufResHTTP)
ELSE
sHTTPResult=AnsiToUnicode(bufResHTTP)
END
ELSE IFInAndroidMode() =TrueORInAndroidSimulatorMode() =TrueORInAndroidEmulatorMode() =True
// Result in Android
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/