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

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

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

не получается прочитать последние 4 байта файла [D7, WinXP]

redlord © (2004-10-14 19:25:00)
всем привет.
помогите разоьраться почему ниже приведенным кодом
не получается прочитать последние 4 байта файла
файл прога читает но полученные данные не соответствуют дествительности
var
infosize:longint;
fin:tfilestream;
begin
Fin:=tfilestream.Create('c:proba.aaa',$0);//fmOpenRead);
fin.Seek(soFromend,4);
Fin.Readbuffer(infosize,4);
Fin.Free;
Edit1.text:=inttostr(infosize);

MBo (2004-10-14 19:41:00) [1]
>Palladin © (14.10.04 19:37) [4]
во-во ;))

MBo (2004-10-14 19:38:00) [2]
код в общем верный, замечания лишь можно сделать об использовании конкретных чисел вместо предопределенной константы и SizeOf

>но полученные данные не соответствуют дествительности
чем подтвердишь?

Palladin (2004-10-14 19:37:00) [3]
мда пока прочитаешь пока напишешь... тут уже все решат...
торможу...

Palladin (2004-10-14 19:35:00) [4]
почему ты так думаешь?

redlord (2004-10-14 19:34:00) [5]
так и есть перепутал. спасибо

begin...end (2004-10-14 19:32:00) [6]
По-моему, ты перепутал местами параметры Origin и Offset. К тому же, в случае Origin = soFromEnd должно быть Offset <= 0 (см. Help).

Наверх

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