讀一個jar包，解壓其中的指定檔案，代碼如下：
name := extractfilename(TOpenDialog1.FileName);
path := extractfiledir(TOpenDialog1.FileName);
vclnzp1.ZipName:=path+'\'+name;
vclnzp1.ReadZip;
vclnzp1.DoAll := True;
vclnzp1.OverwriteMode := Always;
vclnzp1.RetainAttributes := True;
vclnzp1.ReplaceReadOnly := True;
vclnzp1.RecreateDirs:=True;//創建目錄
Astream:=TMemoryStream.Create;
if(vclnzp1.UnZipToStream(AStream,'pdp\plugin_info.xml')=0) then
begin
INFO_Warning('您所選擇的不是標準插件JAR包，請重新選擇');
Exit;
end
else
begin
try
AStream.Position := 0;
MsgUpdate_Memo.Lines.LoadFromStream(AStream);
finally
Astream.Free;
end;
jar包格式為a.jar\pdp\plugin_info.xml和a.jar\pdp\rebate\若干檔案夾和檔案，目前問題是：如果只有a.jar\pdp\plugin_info.xml，沒問題；如果2者并存（檔案和檔案夾都存在），讀到的流里就有很多垃圾資料，請問大牛們該如何處理
uj5u.com熱心網友回復：
使用的是編輯器是delphi7,vclzip版本是vclpro4511轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/123439.html
標籤：VCL組件開發及應用
上一篇：dbgridEH 問題