本文整理自网络,侵删。
procedure BytesToFile(bData:TByteArray; sPath:string);varhFile: THandle;dWritten: DWORD;begin hFile := CreateFile(PChar(sPath), GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); if hFile <> 0 then begin SetFilePointer(hFile, 0, nil, FILE_BEGIN); WriteFile(hFile, bData[0],Length(bData), dWritten, nil); CloseHandle(hFile); end;end;
相关阅读 >>
github上通过星级评估排名前10的最受欢迎的开源Delphi项目
Delphi adoconnection1 连接excel表格读取数据
更多相关阅读请进入《Delphi》频道 >>