AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

mit 7z zips anzeigen

Ein Thema von Alter Mann · begonnen am 7. Jun 2010 · letzter Beitrag vom 8. Jun 2010
Antwort Antwort
Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
934 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

mit 7z zips anzeigen

  Alt 7. Jun 2010, 12:53
Hallo

ich habe hier die SevenZip-VCL Komponente und möchte den Inhalt von normalen Zip-Archiven
anzeigen (bzw. *.tar, *.bzip). Doch irgendwie verweigert sie den Dienst. Muss bei diesen Archiven
etwas an den Voreinstellungen geändert werden, oder gibt es ein anderen Weg?

Danke

PS Ein Codebeispiel sparr ich mir hier, da ja nur der Dateiname zugewiesen wird.
  Mit Zitat antworten Zitat
DenSchub

Registriert seit: 4. Jun 2006
Ort: Balingen
209 Beiträge
 
#2

AW: mit 7z zips anzeigen

  Alt 7. Jun 2010, 13:44
Um welche VCL-Komponente geht es? Die TSevenZipVCL tut bei mir einwandfrei. Was heißt
Zitat von Alter Mann:
irgendwie verweigert sie den Dienst
?

Eine bestimmte Fehlermeldung?
Dennis Schubert
Ground Zero is nichts gegen mein Schreibtisch.

Geändert von DenSchub ( 7. Jun 2010 um 15:28 Uhr)
  Mit Zitat antworten Zitat
Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
934 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: mit 7z zips anzeigen

  Alt 7. Jun 2010, 14:05
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
Angehängte Dateien
Dateityp: zip 7zTest.zip (2,4 KB, 7x aufgerufen)
  Mit Zitat antworten Zitat
DenSchub

Registriert seit: 4. Jun 2006
Ort: Balingen
209 Beiträge
 
#4

AW: mit 7z zips anzeigen

  Alt 7. Jun 2010, 15:39
Mal abgesehen davon, dass die TSevenZip wohl nicht Unicode-Kompatibel ist (bzw mir mit inkompatiblen Typen-Fehlermeldungen abschmieren), gehe ich davon aus, dass diese Komponente, wie es der Name vermuten lässt, wirklich nur für 7z geeignet ist.
Wenn du mit ZIPs arbeiten willst, schau dir doch mal die DelphiZip-Komponenten an (Im Delphi-Treff gibt es eine nette Einführung dazu)
Dennis Schubert
Ground Zero is nichts gegen mein Schreibtisch.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#5

AW: mit 7z zips anzeigen

  Alt 7. Jun 2010, 16:04
7zip selber sollte intern mit UTF-8 arbeiten.

Kann aber sein, daß die Headerübersetzungen schlecht sind oder daß die Originalheader schon dahingehend nicht ausgelegt waren.

PChar statt PAnsiChar usw.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
DenSchub

Registriert seit: 4. Jun 2006
Ort: Balingen
209 Beiträge
 
#6

AW: mit 7z zips anzeigen

  Alt 7. Jun 2010, 16:20
Problemstelle ist folgender Code in der SevenZipVCL.pas (1108):
Delphi-Quellcode:
SearchHandle := FindFirstFile( PAnsiChar( Ansistring( fn ) ), FindDataA );
//kommentar, um inline-code zu deaktivieren :P
Delphi meldet mir:
DCC
[DCC Fehler] SevenZipVCL.pas(1108): E2010 Inkompatible Typen: 'AnsiChar' und 'Char'


Allerdings wird nur LZMA und PPMD unterstützt, womit wir wieder bei Post #4 wären.
Dennis Schubert
Ground Zero is nichts gegen mein Schreibtisch.
  Mit Zitat antworten Zitat
Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
934 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#7

AW: mit 7z zips anzeigen

  Alt 8. Jun 2010, 11:12
Hi,

nachdem ich ein wenig gesucht habe ist mir aufgefallen, das in den JEDI's alle notwendigen
Datei vorhanden sind. Damit hat sich alles erledigt.

Danke
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz