Распаковка архива. Формат нестандартный.

[mihali4]

Дельфи я конечно знаю не идеально, но неплохо. Просто с файлами нет опыта работы.

Простите, но это явно из области фантастики. Поэтому успокойтесь и последуйте совету мудрого Гудвина - Квэнди...

[RoadTrain]

Сообщение от Квэнди

Раз возникает такая проблема, не надо вам начинать с этого, изучите спокойно типы данных, конвертирование и т.д., потом беритесь за это

ну типы данных то я знаю... а вот с конвертированием проблема... не подскажете, где можно почитать???

[mihali4]

Сообщение от RoadTrain

ну типы данных то я знаю... а вот с конвертированием проблема... не подскажете, где можно почитать???

В самом низу этой странички есть ссылка "Клуб программистов Delphi".
Жмете на нее и попадаете на наш сайт, где есть раздел "Книги".

[RoadTrain]

Сообщение от mihali4

В самом низу этой странички есть ссылка "Клуб программистов Delphi".
Жмете на нее и попадаете на наш сайт, где есть раздел "Книги".

Спасибо!

[RoadTrain]

есть проблемка! я считываю данные из архива циклом. какой цикл следует использовать,чтобы учитывать достижение конца файла?

[RoadTrain]

с постусловием, видимо...

[BOBAH13]

Логично сделать описание ( структуру ) в начале файла ( архива ). Где и будут описаны данные и ссылки на структуры файлов. Таким образом можно добавить типа crc32 или 16 ( для проверки целостности архива ) после начинать читать в цикле for to do. Почему все именно так, я сделал такой вывод в оформлении структуры файлов из собственного опыта.

[RoadTrain]

возможно Вы не так поняли. Мне надо распаковать архив, структура которого заранее известна. с чем я в общем-то уже справился. Спасибо всем форумчанам!

[RoadTrain]

возможно я конкретно туплю, но мне никак не допереть, как прочитать из файла float ... вот например файл... первые 4 байта 0300 0000 [hex] я читаю:

var test:real;
.......
begin
assignfile(f,OpenDialog1.filename);
   FileMode:=0; reset(f,1); FileMode:=2;
   blockread (f,test,4);
........
end;
........
Edit5.text:=floattostr(test);

и в итоге вместо 4.203895393e-045 получаю 1,48219693752374E-323
как можно добиться соотвествия?..

[BOBAH13]

Бог ты мой юзайте SizeOf(Тип данных).

blockread (f,test,sizeof(test)); флоат же с плавающей запятой, это точно не 4 байта