delphi BytesToFile

本文整理自网络，侵删。

 
procedure BytesToFile(bData:TByteArray; sPath:string);
var
hFile:    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;
 

相关阅读 >>

Delphi dbgrid应用

什么是Delphi firemonkey

Delphi实现音频传输

Delphi xe 安卓开发黑屏的另一种解决办法

Delphi encddecd 加密解密

github上通过星级评估排名前10的最受欢迎的开源Delphi项目

Delphi adoconnection1 连接excel表格读取数据

Delphi 得到文件创建时间，修改时间，访问时间

Delphi 2007 使用shelltreeview控件

Delphi 切换开关 toggleswitch1

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

转载请注明出处：木庄网络博客 » delphi BytesToFile