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

Вниз

Помогите пожалуйста   Найти похожие ветки 

 
Vladimir   (2002-12-29 14:59) [0]

У меня проблема с функцией FileRead. Она не считывает из открытого файла в буфер.

Ниже приведён листинг кода:

var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer;
begin
try
iFileHandle := FileOpen("D:\Test.txt", fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem( iFileLength + 1));
iBytesRead := FileRead( iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);

ShowMessage(IntToStr(Integer(Buffer[5])));
//rEdit.Text := rEdit.Text + IntToStr(Integer(Buffer[i]));
finally
FreeMem(Buffer);
end;
end;


Помогите пожалуйста.


 
sask ©   (2002-12-29 15:16) [1]

1. iBytesRead := FileRead( iFileHandle, Buffer^, iFileLength);
2. Поставь try после выделения памяти под буфер.
(а то может получиться нехорошая вещь - если до выделения памяти произойдет исключение)



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

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

Наверх




Память: 0.46 MB
Время: 0.012 c
1-28867
Гость из солнечной Алматы
2003-01-27 12:51
2003.02.10
Процентная похожесть строк.


1-28734
anod
2003-01-31 15:19
2003.02.10
Цвет текста в меню


3-28653
Ret
2003-01-23 15:20
2003.02.10
BDE не находит объект.


14-29085
Феликс
2003-01-24 01:44
2003.02.10
Кому нравятся модели?


1-28847
Zirus
2003-02-03 05:21
2003.02.10
Колесо