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