Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.18;
Скачать: CL | DM;

Вниз

Чтение из файла. В чем ошибка?   Найти похожие ветки 

 
Dilezzz   (2003-09-07 14:48) [0]

var F1:file;
P:Pchar;
FS:integer;
begin
if OpenDialog1.Execute then
begin
assignfile(F1,OpenDialog1.FileName);
reset(F1,1);
fs:=FileSize(F1);
getmem(str,fs);
blockread(F1,str,fs);
closefile(F1);
end;


Вылетает ошибка i/o error 998 (что это?) на строчке
blockread(F1,str,fs);


 
Chris   (2003-09-07 15:09) [1]

http://mech.math.msu.su/~vfnik/WinApi/other/errorcodes.html


 
Dilezzz   (2003-09-07 15:23) [2]

Chris, и чего?


 
muravey ©   (2003-09-07 15:41) [3]

а ты help смотрел?
исправь blockread(F1,str,fs)на blockread(F1,str^,fs);


 
Chris   (2003-09-07 16:03) [4]

Из справки по Delphi. GetMem example

var
F: file;
Size: Integer;
Buffer: PChar;
begin
AssignFile(F, "test.txt");
Reset(F, 1);
try
Size := FileSize(F);
GetMem(Buffer, Size);
try
BlockRead(F, Buffer^, Size);
ProcessFile(Buffer, Size);
finally
FreeMem(Buffer);
end;
finally
CloseFile(F);
end;

end;



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
6-58798
Noro
2003-07-17 22:06
2003.09.18
Передача данных: Клиент-Сервер, Сервер-Клиент


14-58877
Golovanov
2003-08-29 20:08
2003.09.18
Вниманию пользователей провайдера МТУ-интел


1-58708
Vitalygavrilov
2003-09-08 10:36
2003.09.18
Как недопустить повторной загрузки программы


9-58503
MeF88
2003-03-04 11:46
2003.09.18
Камерный энгайн


1-58624
Abikos
2003-09-05 15:14
2003.09.18
Как переключится в окно ???