本文整理自网络,侵删。
//二进制存文件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下载程序并且urldownloadtofile的进度提示
更多相关阅读请进入《Delphi》频道 >>