[Ferra]

Никто не пробовал разархивировать только один файл из зипа в стрим?

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

[Ferra]

Да... как обычно проблемиа оказалась в лени....

для компонента VCLZip 3.03

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var  TMS : TMemoryStream;  i   : Integer; begin TMS:=TMemoryStream.Create; VCLUnZip.ZipName:='Themes\'+FName; VCLUnZip.ReadZip; i:=0;  with VCLUnZip do   while i < Count do    if UpperCase(ExtractFileExt(Filename[i])) = '.XML' then        begin        UnZiptoStreamByIndex( TMS, i );        break;        end         else inc(i); end;

Находит первый в архиве файл "xml" и раазрхивирует его в TMS....
проще простого