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 字符串转换为视频二进制文件
猜你喜欢
转载自www.cnblogs.com/rtcmw/p/10302034.html
今日推荐
周排行