delphi - Base64 到二进制 (Delphi)

Question

我使用了您回答的 Binary to Base64 函数: Binary to Base64 (Delphi)

我成功将文件编码为base64字符串并将其写入MsSQL2008数据库，但我想问一个问题:如何使用 EncdDecd.pas 再次将此文件写入磁盘？

Answer 1

一如既往，大卫的回答很充分。尽管我无法抗拒使用最近的 Delphi 版本中的一些优点来提供稍微不同的解决方案。

procedure DecodeFile(const base64: AnsiString; const FileName: string);
var
  stream: TBytesStream;
begin
  stream := TBytesStream.Create(DecodeBase64(base64));
  try
    stream.SaveToFile(Filename);
  finally
    stream.Free;
  end;
end;