TOTVSTEC

Á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 5 Próxima »

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

Sintaxe

Encode64( < cToConvert > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cToConvert

caractere

Indica a string ASCII que será convertida para BASE64

X

 

Retorno

Nome

Tipo

Descrição

cRet

caractere

Retorna a string codificada em BASE64.

Observações

Essa função formata 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.

Informações adicionais

Exemplos

Exemplo 1
#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")

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10

Veja também

  • Sem rótulos