Zipファイルから無圧縮ファイルをStreamに展開するには？ (ID:46023)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ソースを全部チェックしたわけでは無いのでなんとも言えませんし、 圧縮ソフトによる違いがあるかもしれませんが Lhaplusの無圧縮zipからのストリームへの読み込み動作は確認しました。 XE2+VCL TFeZipFile = class(TZipFileEx)<-DekoさんのHP参照です。 procedure TFeZipFile.GetStream(aStream: TStream; aIndex: Integer); var aInStream:TMemoryStream; aLH:TZipHeader; begin aInStream := TMemoryStream.Create; Read(aIndex,TStream(aInStream),aLH); aStream.CopyFrom(aInStream, FileInfo[aIndex].UncompressedSize); aInStream.Free; end;