Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.27;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.009 c
1-88469
Лёша
2002-05-17 22:31
2002.05.27
Просмотр HTML


6-88587
BMax
2002-03-14 08:05
2002.05.27
Сохранение с Интернета


1-88434
Бывалый
2002-05-17 12:11
2002.05.27
TAdvStringGrid - центрирование ячеек.


14-88610
keymaster
2002-04-18 23:58
2002.05.27
NFTS


7-88656
pvn
2002-03-02 19:44
2002.05.27
WriteFile(hPort, S, StrLen(S), actual_bytes, nil)