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 系统任务栏 窗口状态显示进度

Delphi 压缩与修复access数据库

Delphi net.httpclient正则批量获取网页代码中的数值

Delphi xe5实现按android的back键无法退出关闭程序

Delphi 2009 中的泛型

Delphi 模糊查询和字段查询

Delphi 进程之间传递cmd参数

Delphi 根据经纬度计算地球上两点之间的距离

Delphi 如何取得键盘每个键

Delphi实现进制转化（2进制，8进制，10进制，16进制）

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

转载请注明出处：木庄网络博客 » Delphi中二进制文件数据存文件方法