Главная страница
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.01 c
1-88409
Ron
2002-05-16 21:06
2002.05.27
TDBEdit


1-88507
MystiX
2002-05-14 21:30
2002.05.27
Hooks


4-88692
OlegK
2002-03-26 19:16
2002.05.27
Как зашатдаунить приложение?


1-88503
DeMoN-777
2002-05-15 17:11
2002.05.27
Помогите пожалуйста


3-88368
Taciturn
2002-05-02 20:25
2002.05.27
Печать записи БД