DelZip / 7-Zip / ...

[Luckie]

Zitat:

Zitat von stho

und die Hilfe von 7-zip hab ich mir auch angeschaut nur leider habe ich darin nicht ansatzweise etwas gefunden was mir bei meinem problem weiter hilft... :wall:

7-Zip Hilfe -> Kapitel "Command Line Version User's Guide"
Sogar alles mit Beispielaufrufen. Was willst du mehr?

[stho]

So, ich habs nun nach qualvollen Versuchen geschafft die Komponente TSevenZip zu installieren...

Werde mich jetzt mal daran versuchen... *hoff*

:dp:

[stho]

So, habe mich mal etwas damit beschäftigt und für alle nachfolgenden die Probleme haben:

Ich habe TSevenZip / Sevenzip genutzt:

Delphi-Quellcode:

          sevenzip1.Files.clear;
          sevenzip1.ExtrBaseDir := edit5.text;
          sevenzip1.ExtractOptions := sevenzip1.ExtractOptions + [ExtractOverwrite];

          SevenZip1.SZFileName := edit5.text + '\' + Hauptfile;

          try
            SevenZip1.Extract;
            memo2.lines.add(timeToStr(now) + ': Entpacken komplett!');
          except
            on e : Exception do
            begin
              memo2.lines.add(timeToStr(now) + ': Entpacken fehlerhaft!');
              memo2.lines.add(timeToStr(now) + ': ERROR: ' + e.message);
              ShellExecute(0, 'open', PChar(Edit5.text), nil, nil, SW_ShowNormal);
              exit;
            end;
          end;

----------

Anmerkung:
Edit5.Text = Zielverzeichniss (Beispiel: C:\test)
Hauptfile = Archiv.7z.001 (Sevenzip nennt die Archivdateien immer so... keine Ahnung wieso...)