Текущий архив: 2008.02.10;
Скачать: CL | DM;

Вниз

Запись в файл   Найти похожие ветки 

← →
Виктор007   (2007-07-04 14:52) [0]

Здравствуйте. Помогите перевести этот код на API. Работу с файлами никак разобрать не могу, столько параметров фунциям надо передавать.

procedure SaveFile(FileName:String);
var F:File of Byte;
i:integer;
begin
AssignFile(F,FileName);
ReWrite(F);
for i:=0 to FileSize-1 do Write(F,FileData[i]);
CloseFile(F);
end;

---

← →
MBo ©   (2007-07-04 15:04) [1]


HFF := CreateFile(PChar(FileName), GENERIC_READ + GENERIC_WRITE,
  FILE_SHARE_WRITE, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
if HFF = INVALID_HANDLE_VALUE then
  raise Exception.Create("Cannot create file " + FileName);
WriteFile(HFF, FileData[0], Length(FileData)*SizeOf(FileData[0]), Written, nil);
CloseHandle(HFF);


---

← →
Викетор1985   (2007-07-04 15:05) [2]

спасибо! буду разбираться.

---

← →
clickmaker ©   (2007-07-05 09:28) [3]

> if HFF = INVALID_HANDLE_VALUE then
>   raise Exception.Create("Cannot create file " + FileName);

лучше RaiseLastWin32Error

---

← →
DVM ©   (2007-07-05 10:31) [4]

> Здравствуйте. Помогите перевести этот код на API

Все указанные выше функции они обертки для функций API. В чем смысл перевода?

---

Страницы: 1 вся ветка

Текущий архив: 2008.02.10;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.046 c