Delphi中二进制文件数据存文件方法


本文整理自网络,侵删。

 
//二进制存文件
function SaveFileByByteAr(AByteAr: TByteDynArray; AFileName: string): Boolean;
var
  LBuf: TMemoryStream;
begin
  Result  := false;
  LBuf := TMemoryStream.Create;
  try
    LBuf.SetSize(Length(AByteAr));
    Move(AByteAr[0], LBuf.memory^, Length(AByteAr));
    LBuf.Seek(0, soFromBeginning);
    LBuf.SaveToFile(AFileName);
    Result  := true;
  finally
    LBuf.Free;
  end;
end;

//流转二进制数据
function GetByteArByStream(AStream: TMemoryStream): TByteDynArray;
var
  Len: Integer;
begin
  Len := AStream.Size;
  SetLength(Result, Len);
  Move(AStream.Memory^, Result[0], Len);
end;

相关阅读 >>

Delphi 将listview保存为txt

Delphi 10 seattle中的画布上绘制字符

Delphi firedac 连接sql server一些要注意的地方

Delphi 实现对xml文件的读写操作

cnwizards cnpack ide 专家包

Delphi 获取网卡mac代码可用2020.01.22

Delphi tstringlist的用法

Delphi tstringlist 自带 split 用法

Delphi twebbrowser:确定带有框架的页面何时完成

Delphi:取得浏览器地址,网址(支持ie,firefox)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...