| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Чтение из файла [D6, Win2k]
seacat © (2002-05-17 11:14:00)Написал процедуру чтения из файла
ar
Form1: TForm1;
fhandle: integer;
ffilelength: integer;
buffer: pchar;
iBytesRead: integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
fhandle:=fileopen(opendialog1.FileName,fmShareDenyNone);
fFileLength := FileSeek(fHandle,0,2);
fileseek(fhandle,0,0);
getmem(buffer,fFileLength + 1);
FileRead(fHandle, Buffer, fFileLength);
fileclose(fhandle);
end;
end;
При исполнении строки FileRead(fHandle, Buffer, fFileLength) происходит 998 ошибка "Нет доступа к памяти"
В чем может быть дело?
seacat (2002-05-17 11:48:00) [1]Спасибо, все заработало ;))
Игорь Шевченко (2002-05-17 11:21:00) [2]Поправьте строчку на
FileRead(fHandle, Buffer^, fFileLength);
С уважением,
Song (2002-05-17 11:16:00) [3]Пушкин А.С. знает
| |
