Binaire vers Base64 (Delphi)

Question

comment puis-je obtenir le contenu d'un fichier exe et le convertir en Base64 encodage?

Modifier

J'utilise D2010 et je veux savoir comment est-ce possible exactement?

• open an exe file
• convert its content into base64

Answer 1

Dans Delphi 2009/2010/XE, il y a l'unité EncdDecd.pas (Soap.EncdDecd.pas pour Delphi XE2) contenant les fonctions EncodeBase64 et DecodeBase64. Vous pouvez charger le fichier exe dans un memorystream puis appeler 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

Dans les anciennes versions de Delphi, vous pouvez utiliser synapse ( lien ici )

Mettez simplement synacode.pas dans vos utilisations e appelez EncodeBase64/EncodeBase64.

À votre santé