Главная страница
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.018 c
8-28939
NailMan
2002-09-26 05:06
2003.02.10
Узнать информацию о видео-файле


1-28743
Checist [root]
2003-02-01 02:30
2003.02.10
Запись в файл


14-29018
Cobalt
2003-01-21 21:16
2003.02.10
Delphi<->Kylix3


1-28817
Шишкин Илья
2003-01-31 20:44
2003.02.10
Как изменить цвет значков в Windows98


14-28988
Думкин
2003-01-22 14:45
2003.02.10
Города