Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

не получается прочитать последние 4 байта файла   Найти похожие ветки 

 
redlord   (2004-10-14 19:25) [0]

всем привет.
помогите разоьраться почему ниже приведенным кодом
не получается прочитать последние 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);


 
begin...end ©   (2004-10-14 19:32) [1]

По-моему, ты перепутал местами параметры Origin и Offset. К тому же, в случае Origin = soFromEnd должно быть Offset <= 0 (см. Help).


 
redlord   (2004-10-14 19:34) [2]

так и есть перепутал. спасибо


 
Palladin ©   (2004-10-14 19:35) [3]

почему ты так думаешь?


 
Palladin ©   (2004-10-14 19:37) [4]

мда пока прочитаешь пока напишешь... тут уже все решат...
торможу...


 
MBo ©   (2004-10-14 19:38) [5]

код в общем верный, замечания лишь можно сделать об использовании конкретных чисел вместо предопределенной константы и SizeOf

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


 
MBo ©   (2004-10-14 19:41) [6]

>Palladin ©   (14.10.04 19:37) [4]
во-во ;))



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.035 c
1-1098173227
xman
2004-10-19 12:07
2004.10.31
Не отображать Hint`ы в TreeView над объектами


4-1096180093
___^}{@eRo^___
2004-09-26 10:28
2004.10.31
Создание Рабочего стола


1-1098161466
zero-g
2004-10-19 08:51
2004.10.31
Удаление файлов по маске


14-1097432161
Abuzer
2004-10-10 22:16
2004.10.31
Какой выбрать хост?


14-1097508581
Koala
2004-10-11 19:29
2004.10.31
Может кто подскажет название игры, несколько лет ищу....





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский