Hi,
wie geschrieben:
Delphi-Quellcode:
...
procedure TForm1.aFileOpenExecute(Sender : TObject);
begin
if OpenDlg.Execute then
begin
SevenZip1.SZFileName := OpenDlg.FileName;
SevenZip1.List;
end;
end;
...
procedure TForm1.SevenZip1Listfile(Sender: TObject; Filename: WideString;
Fileindex, FileSizeU, FileSizeP, Fileattr, Filecrc: Int64;
Filemethod: WideString; FileTime: Double);
var
LI : TListItem;
begin
if fileattr = fadirectory then exit;
LI := lvArchive.Items.Add;
LI.Caption := extractfilename(filename);
LI.SubItems.Add(extractfilepath(filename));
LI.SubItems.Add(inttostr(Fileattr));
LI.SubItems.Add(inttostr(filesizep));
LI.SubItems.Add(inttostr(filesizeu));
LI.SubItems.Add(inttohex(filecrc,8));
LI.SubItems.Add(filemethod);
LI.SubItems.Add(Datetimetostr(filetime));
end;
Wähle ich ein SevenZip-Archiv aus, dann wird der Inhalt auch angezeigt.
Bei einem 'normalen' Zip-File jedoch nicht.
Vielleicht kannst du dir die App mal anschauen und mir dann schreiben
was ich falsch mache.
Danke