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

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

  Stream := TBytesStream.Create(Bytes);
  try
    Stream.SaveToFile('video.mp4');
  finally
    FreeAndNil(Stream);
  end;

end;

 


作者: oldfarmer
出处: http://www.cnblogs.com/rtcmw/
欢迎探讨交流 DELPHI 相关技术,QQ:64445322 QQ群:734515869
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

posted @ 2019-01-22 09:40  塞翁失身  阅读(248)  评论(0编辑  收藏  举报