Текущий архив: 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.47 MB
Время: 0.02 c
