Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не могу считать файл в буфер!

Frozzen © (2004-12-10 18:45:00)
Уже взял текст с хелпа

var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer;
begin
if OpenDialog1.Execute then
begin
try
iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);

for i := 0 to iBytesRead-1 do
begin
ShowMessage(IntToStr(Integer(Buffer[i])));

при таком обращении выдает ошибку
и дебагером содержимое буфера не отображает

end;
finally
FreeMem(Buffer);
end;
end;

8ung (2004-12-10 19:17:00) [1]
iBytesRead := FileRead(iFileHandle, Buffer ^ , iFileLength);
Посмотри, что в примере написано, а что у меня!

Fay (2004-12-10 19:15:00) [2]
2 8ung (10.12.04 19:14) [6]
Где?!!!
8)

8ung (2004-12-10 19:14:00) [3]
Ошибка!
iBytesRead := FileRead(iFileHandle, Buffer ^, iFileLength);

DiamondShark (2004-12-10 19:10:00) [4]
Ну что ж... От очепяток никто не застрахован.

Fay (2004-12-10 19:01:00) [5]
В 5-ке тоже 8)

Frozzen (2004-12-10 18:58:00) [6]
Delphi6 help на функцию FileRead example

Frozzen (2004-12-10 18:57:00) [7]
Delphi6 help на функцию FileRead example

DiamondShark (2004-12-10 18:52:00) [8]
Не обманывай, ни с какого "хелпа" такую ерунду взять нельзя.

iBytesRead := FileRead(iFileHandle, Buffer ^, iFileLength);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »