Histórico da Página

#define CRLF Chr(13) + Chr(10)
#include "fileio.ch"
//+----------------------------------------------------------------------------+
//|Exemplo de uso da função Encode64 e Decode64                               Local cMensagem |
//+----------------------------------------------------------------------------+
User Function Exemplo()
Local cTexto := ""
Local cEncode64 := ""
Local cLeitura1cDecode64 := ""
Local cMensagem := ""
Local cLeitura2cLeitura1 := ""
Local cLeitura2 := ""
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 + "]"
  MsgInfo(cMensagem, "Exemplo")
  

  // Leio o arquivo c:\temp\tst.jpg compactando e transformando em BASE64
  cEncode64 := Encode64(,"c:\\temp\\tst.jpg",.T.,.F.)
  
  // Faço o Decode do BASE64 direto para o arquivo tst_1.jpg (a descompactação já é tratada automaticamente)
  cDecode64 := Decode64(cEncode64,"c:\\temp\\tst_1.jpg",.F.)
  
  // Para testes/comparações. leio os dois arquivos
  fHdl := fOpen("c:\\temp\\tst.jpg",FO_READ,,.F.)
  if fHdl = -1
    conout("Erro ao abrir arquivo.")
    return
  endif
  nLen := fSeek(fHdl,0,FS_END)
  fSeek(fhdl, 0)
  fRead(fHdl, cLeitura1, nLen)
  fClose(fHdl)
  
  fHdl_1 := fOpen("c:\\temp\\tst_1.jpg",FO_READ,,.F.)
  if fHdl_1 = -1
    conout("Erro ao abrir arquivo.")
    return
  endif
  nLen := fSeek(fHdl_1,0,FS_END)
  fSeek(fhdl_1, 0)
  fRead(fHdl_1, cLeitura2, nLen)
  fClose(fHdl_1)
  
  // Como foi um Encode64 e Decode64 os arquivos precisar ser iguais!
  if (cLeitura1 == cLeitura2)
    conout("Encode64/Decode64 realizado com sucesso")
  endif

Return