| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись в файл [D7, WinXP]

Виктор007 ©   (2007-07-04 14:52:00) 

Здравствуйте. Помогите перевести этот код на 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;

---

DVM   (2007-07-05 10:31:00) [1]

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

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

---

clickmaker   (2007-07-05 09:28:00) [2]

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

лучше RaiseLastWin32Error

---

Викетор1985   (2007-07-04 15:05:00) [3]

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

---

MBo   (2007-07-04 15:04:00) [4]


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);


---

Наверх