DelphiでBase64符号、複合化

太田アベル

2011年6月29日・更新 2013年10月12日・ 1分で読めます

DelphiでBase64を使用したい場合、Delphi2009以降は標準で便利なユニットが付いています。

使い方を説明します。

エンコード

usesに「EncdDecd」を追加します。

var

 Stream: TMemoryStream;

 begin

 Stream := TMemoryStream.Create;

 Stream.LoadFromFile(FileName);

 Memo1.Lines.Text := EncodeBase64(Stream.Memory, stream.Size);

 Stream.Free;

 end;

デコード

var

  Stream: TFileStream;

  B: TBytes;

begin

  Stream := TFileStream.Create(FileName, fmCreate);

  B := DecodeBase64(Memo1.Lines.Text);

  Stream.Write(B[0], Length(B));

  Stream.Free;

end;

見ての通り例外処理はぜーんぜん行っていませんので、適宜追加してください。

#Base64 #Delphi