Скачать: CL | DM;

Чтение из файла   Найти похожие ветки 

← →
seacat   (2002-05-17 11:14) [0]

Написал процедуру чтения из файла
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 ошибка "Нет доступа к памяти"
В чем может быть дело?

---

← →
Song ©   (2002-05-17 11:16) [1]

Пушкин А.С. знает

---

← →
Игорь Шевченко ©   (2002-05-17 11:21) [2]

Поправьте строчку на

FileRead(fHandle, Buffer^, fFileLength);

С уважением,

---

← →
seacat   (2002-05-17 11:48) [3]

Спасибо, все заработало ;))

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c