Бинарный в Base64 (Delphi)

Question

как я могу получить содержимое файла exe и преобразовать его в Base64 кодировку?

Изменить

Я использую D2010 и хочузнать, как это возможно точно?

• open an exe file
• convert its content into base64

Answer 1

В Delphi 2009/2010 / XE есть блок EncdDecd.pas (Soap.EncdDecd.pas для Delphi XE2), содержащий функции EncodeBase64 и DecodeBase64.Вы можете загрузить exe-файл в поток памяти и затем вызвать 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

В древних версиях Delphi вы можете использовать synapse ( ссылка здесь )

Просто вставьте synacode.pas в ваши обращения и вызовите EncodeBase64 / EncodeBase64.

Приветствия