Главная страница
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
14-29020
kostya2000
2003-01-23 18:14
2003.02.10
Я на Мастаке скоро сутками буду просиживать!!!!!


14-29064
Ru
2003-01-24 16:56
2003.02.10
Вера в компьютер или современный фетишизм


14-29045
ZeroDivide
2003-01-24 14:33
2003.02.10
Запорол CD при прожиге. Надо восстановить.


14-29007
ATLAS
2003-01-25 16:22
2003.02.10
Win32 API декларирование


6-28970
Scorpion [BC]
2002-12-18 19:45
2003.02.10
Как через локальную сеть общаться по микрофону?