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

2021-06-18 19:13

阅读:566

标签:coding   ide   free   create   mp4   file   ESS   视频   creat   

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;

 

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

标签:coding   ide   free   create   mp4   file   ESS   视频   creat   

原文地址:https://www.cnblogs.com/rtcmw/p/10302034.html


评论


亲,登录后才可以留言!