掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.