delphi BytesToFile

2022-10-31 12:30:00 网络 Delphi

本文整理自网络，侵删。

 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;

相关阅读 >>

crc32.pas 第二版

Delphi 长文件路径转换短文件路径

Delphi 获取windows系统网卡mac地址

Delphi的整数性能测试

Delphi inttostr 将“整数型”转换成“字符型”

Delphi 过卡巴2009和沙盘启发杀毒的Delphi源代码

在Delphi中基于内容检测图片格式（非扩展名）

Delphi加载驱动的代码演示

Delphi中的处理事件 application.processmessages

设定Delphi环境选项

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