Binario a Base64(Delphi)

encoding delphi-2010

Question

¿Cómo puedo obtener el contenido de un archivo exe y convertirlo en codificación Base64 ?

Editar

Uso D2010 y quiero saber cómo es posible exactamente?

• open an exe file
• convert its content into base64

Answer 1

En Delphi EncdDecd.pas / XE existe la unidad EncdDecd.pas ( Soap.EncdDecd.pas para Delphi XE2) que contiene las funciones EncodeBase64 y DecodeBase64 . Puede cargar el archivo exe en un flujo de memoria y luego llamar a EncodeBase64.

function EncodeFile(const FileName: string): AnsiString;
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  try
    stream.LoadFromFile(Filename);
    result := EncodeBase64(stream.Memory, stream.Size);
  finally
    stream.Free;
  end;
end;

Answer 2

En las versiones antiguas de Delphi, puedes usar synapse ( enlace aquí )

Simplemente ponga synacode.pas en sus usos. Llame a EncodeBase64 / EncodeBase64.

Aclamaciones