Главная страница
    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.036 c
4-1096049657
Justas
2004-09-24 22:14
2004.10.31
Окно произвольной формы


1-1097753020
Tormoz
2004-10-14 15:23
2004.10.31
Определить, каким образом вызвана форма...


14-1097247361
fag2000
2004-10-08 18:56
2004.10.31
Помогите перевести PHP strftime в человеческие дату и время.


3-1096532944
Koala
2004-09-30 12:29
2004.10.31
вопрос по RxDBLookUpCombo


4-1095926220
lehich
2004-09-23 11:57
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский