Delphi 将视频 Base64 字符串转换为视频二进制文件

Posted 2021-02-05 rtcmw

var
  VideoBytes: TBytes;
  VideoStream: TBytesStream;
begin
  with System.NetEncoding.TBase64Encoding.Create do
  try
    VideoBytes := Decode(System.IOUtils.TFile.ReadAllBytes(‘video.txt‘));
  finally
    Free;
  end;

  VideoStream := TBytesStream.Create(VideoBytes);
  try
    VideoStream.SaveToFile(‘video.mp4‘);
  finally
    FreeAndNil(VideoStream);
  end;

end;