Histórico da Página

User Function Exemplo_ConvertEncoding123765623
 
  cTexto := "à noite, vovô kowalsky vê o ímã cair no pé do pingüim "
  cTexto += "queixoso e vovó põe açúcar no chá de tâmaras do jabuti feliz."
  cEncodeUTF8 := cTexto
   
  oUni1 := tUnicode():New()
  local rc1 := oUni1:ConvertEncoding( cEncodeUTF8, 'cp1252', 'utf-8' )
  cDecodeUTF8 := cEncodeUTF8
  local rc2 := oUni1:ConvertEncoding( cDecodeUTF8, 'utf-8', 'cp1252' )
 
  cMensagem := "Pangrama origem: [" + cTexto + "]"
  cMensagem += CRLF + "Texto -> UTF8: [" + cEncodeUTF8 + "]"
  cMensagem += CRLF + "UTF8 -> Texto: [" + cDecodeUTF8 + "]"
 
  ConOut(cMensagem)
 
Return