Read a jar package, unpack the specified file, the code is as follows:
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;//create a directory
Astream:=TMemoryStream. Create;
If (vclnzp1. UnZipToStream (AStream, 'the PDP \ plugin_info XML)=0) then
The begin
INFO_Warning (' of your choice is not a standard plug-in JAR package, please choose again ');
The Exit;
End
The else
The begin
Try
AStream. Position:=0;
MsgUpdate_Memo. Lines. LoadFromStream (AStream);
The finally
Astream. Free;
end;
Jar package format for a. ar \ PDP \ plugin_info XML and a. ar, PDP, rebate, a number of folders and files, now the question is: if only a. ar \ PDP \ plugin_info XML, no problem. If the 2 (all files and folders), read with lots of garbage data flow, please recognize. What should I do

CodePudding user response:

Using the editor is delphi7, vclzip version is vclpro4511