Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 3 Próxima »

Função: Encode64

Converte uma string texto ou binária (Contendo caracteres da tabela ASCII) para uma nova string codificada segundo o padrão BASE64

Encode64 ( < cToConvert> ) --> cRet

 

NomeTipoDescriçãoObrigatórioReferência
cToConvertCaracterIndica a string ASCII que será convertida para BASE64X 

 

cRet
    (caracter)
  • Retorna a string codificada em BASE64.

Essa função formatar o texto codificado, conforme as especificações RFC para base 64, para que cada linha da mensagem passada por parâmetro não ultrapasse 76 caracteres. Sendo assim, após os 76 caracteres, a mensagem terá uma quebra de linha inserida.

Para mais informações, acesse o endereço: http://www.faqs.org/rfcs/rfc1522.html.


#define CRLF Chr(13) + Chr(10)
//+----------------------------------------------------------------------------+
//|Exemplo de uso da função Encode64 e Decode64 |
//+----------------------------------------------------------------------------+
User Function Exemplo()
Local cTexto := ""
Local cEncode64 := ""
Local cDecode64 := ""
Local cMensagem := ""
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."
cEncode64 := Encode64(cTexto)
cDecode64 := Decode64(cEncode64)
cMensagem := "Pangrama origem: [" + cTexto + "]"
cMensagem += CRLF + "Texto -> Texto64: [" + cEncode64 + "]"
cMensagem += CRLF + "Texto64 -> Texto: [" + cDecode64 + "]"
Return MsgInfo(cMensagem, "Exemplo")
Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10

Informações adicionais

https://pt.wikipedia.org/wiki/Base64

  • Sem rótulos