Delphi xe2 de codage/décodage de base 64

Vous ne spécifiez pas ce genre de données que vous essayez d'encoder ou de décoder. Le DecodeBase64 et EncodeBase64 fonctions utilise la EncodeStream et DecodeStream en interne, en théorie, vous pouvez utiliser ces fonctions sont basées sur les flux d'encoder ou de décoder n'importe quel type ou de données (après d'utiliser un flux de données pour stocker les données).

Pour encoder/décoder des chaînes de caractères utiliser le EncodeString et DecodeString fonctions directement.

function  EncodeString(const Input: string): string;
function  DecodeString(const Input: string): string;

Pour les cours d'eau utilisation EncodeStream et DecodeStream

procedure EncodeStream(Input, Output: TStream);
procedure DecodeStream(Input, Output: TStream);

Échantillon pour EncodeBase64

function  DecodeBase64(const Input: AnsiString): TBytes;
function  EncodeBase64(const Input: Pointer; Size: Integer): AnsiString;

Par exemple pour encoder un fichier et retourner une chaîne de caractères à l'aide de la EncodeBase64 fonction, vous pouvez essayer ceci (vous pouvez bien évidemment utiliser EncodeStream fonction directement aussi).

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

Maintenant d'utiliser le DecodeBase64 fonction il suffit de passer déjà une chaîne codée et la fonction va retourner un To (tableau d'octets).