Главная страница
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.026 c
1-28854
Grizl
2003-01-30 12:03
2003.02.10
Запутался в указателях.. =(


4-29165
Big_Rom
2002-12-27 20:21
2003.02.10
как програмно поменять размер страницы принтера


1-28805
d_oleg
2003-01-29 21:10
2003.02.10
TBitBtn и Xp themes


3-28609
Ihtiandr
2003-01-20 17:58
2003.02.10
clientdataset1.ApplyUpdates(-1);


3-28683
HazMat
2003-01-24 09:35
2003.02.10
Sql Server удалённо