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;

相关阅读 >>

Delphi listbox自动获取列表框中的组件焦点

Delphi strtofloat 将“字符型”转换成“浮点型”

Delphi自动检测u盘插入、拔出及获取u盘盘符

Delphi 中将tmemorystream转换为'string'

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