|
#1
|
||||
|
||||
UnZip to Stream
Никто не пробовал разархивировать только один файл из зипа в стрим?
плиз компоненты и у самого есть, но разбираться нет времени.. киданете сорец срочно.. Нет повести печальнее на свете, чем повесть о заклиневшем Resete. |
#2
|
||||
|
||||
Да... как обычно проблемиа оказалась в лени....
для компонента VCLZip 3.03 Код:
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.... проще простого Нет повести печальнее на свете, чем повесть о заклиневшем Resete. |