web-dev-qa-db-ja.com

Binary to Base64(Delphi)

exeファイルのコンテンツを取得してBase64エンコーディングに変換するにはどうすればよいですか?

編集

私はD2010を使用していますが、それがどのように正確に可能なのか知りたいのですが?

  • open an exe file
  • convert its content into base64
19
Kermia

Delphi 2009/2010/XEには、関数EncdDecd.pasおよびSoap.EncdDecd.pasを含むユニットEncodeBase64(Delphi XE2の場合は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;
60
Uwe Raabe

Delphiの古いバージョンでは、synapseを使用できます( ここにリンク

synacode.pasを使用して、EncodeBase64/EncodeBase64を呼び出します。

乾杯

9
Rod Lima