Сохранение массива байтов в файл

[niki2012]

Необходимо сохранить массив байтов в файл, вроде можно как-то в поток перегнать а потом уже в файл, подскажите... (желательно с кодом)

А еще плз подскажите как можно открыть exe'шник в массив байтов

[p51x]

AssignFile, Write, BlockWrite, ReSet, Read, BlockRead... или API

[Serge_Bliznykov]

добавлю к словам p51x

через TFileStream тоже можно... (TFileStream.Read TFileStream.Write )

[veniside]

Сообщение от niki2012

Необходимо сохранить массив байтов в файл

мы ж в винде, или где?

procedure saveBuf(buf: pointer; size: cardinal);
var
  h: tHandle;
  realSize: DWORD;
begin
  h := CreateFile(fileName, GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_NEW, 0, 0);
  if (INVALID_HANDLE_VALUE <> h) then try
    WriteFile(h, buf, size, @realSize, nil);
  finally
    CloseHandle(h);
  end;
end;

Сообщение от niki2012

вроде можно как-то в поток перегнать

угу.. и в поток, и в строку, и в XML и в картинку. Вопрос, зачем.

Сообщение от niki2012

А еще плз подскажите как можно открыть exe'шник в массив байтов

Всё тоже самое, только всесто CREATE_NEW ставим OPEN_EXISTING и вместо WriteFile() вызываем ReadFile().

[GunSmoker]

var
  A: array of Byte;
  FS: TFileStream;
begin
  // Сохранение:
  FS := TFileStream.Create('C:\1.exe', fmCreate);
  try
    if Length(A) > 0 then
      FS.WriteBuffer(Pointer(A)^, Length(A));
  finally
    FreeAndNil(FS);
  end; 

  // Загрузка:
  FS := TFileStream.Create('C:\1.exe', fmOpenRead);
  try
    SetLength(A, FS.Size);
    if FS.Size > 0 then
      FS.ReadBuffer(Pointer(A)^, FS.Size);
  finally
    FreeAndNil(FS);
  end; 
end;