WinRar Komponente? oder ähnliches

[fl63]

Vielen Dank ich versuche mal diese Komponente zu installieren.

[fl63]

Die Installation dieser Komponente erfolgt problemlos. Aber das DemoProgramm
Hat vielleicht schon mal jemand damit gearbeitet und kann mir nen Tip geben, wie man Dateiverzeichnisse ohne OpenDialog Zipt??

[Satty67]

Das Demo-Programm ist mehr ein Test der Komponente. Da wird auf LW C: ein Ordner angelegt (7zTest oder so ähnlich) der wohl zum aus/einpacken verwendet wird. (auspacken ganz sicher, packen müsste ich erst Zuhause nachschauen)

Fand die Demo aber ganz brauchbar (besser als nichts), um wenigstens die funktionsweise der Basis-Funktionen zu sehen. Bin aber vor ein paar Tagen nur so "drüber geflogen"

[fl63]

Soweit wie ich das begriffen habe wird eine 7z Datei auf C: angelegt. Daraufhin gibt es zwei Möglichkeiten:
a) Es werden alle Dateien aus dem Verzeichnis \Demo gepackt
b) Es könne Dateien über OpenDialog gepackt werden.

Die Version über OpenDialog funktioniert einwandfrei. Punkt a funktioniert überhaupt nicht.
Es müssen doch nur die Kommentarzeichen geändert werden. Oder sehe ich das falsch?

[Satty67]

Also das sollte man ja sofort sehen. Da hat sich in der Demo ein kleiner Fehler eingeschlichen, mit dem Ordnernamen.

In newarchiveClick() muss RootDir C:\Demo sein und Files.AddString('c:\demo\*.*'). Einer von beiden Ordnern hies \demo2, was falsch war (weis aber jetzt nicht mehr welcher).

Files.AddString('c:\demo\*.*') fügt dann alle Dateien und Dateien in Unterordnern aus C:\Demo dazu

[fl63]

Anbei der leicht bearbeitete Text der Demo

Delphi-Quellcode:

procedure TForm1.test7zdemoClick(Sender: TObject);
var i:integer;
begin
// opendialog1.InitialDir := 'c:\';
// if not opendialog1.Execute then exit;  // kein Opendialog

//Set archive filname
 sevenzip1.SZFileName := 'c:\testvcl1.7z';

//Set Volumesize
// sevenzip1.VolumeSize := strtoint(volsize.text);

//Set rootdir for recuresive folder (if wanted)
 sevenzip1.AddRootDir := 'c:\demo';

// If password7z.Text <> '' then Sevenzip1.Password := password7z.Text;

//Clear filelist
 sevenzip1.Files.Clear;
 sevenzip1.Files.AddString('C:\Demo\*.*');

// for i := 0 to opendialog1.Files.count-1 do
//  sevenzip1.Files.AddString(opendialog1.Files[i]);

//add files
  Sevenzip1.Add;

// Show result
 //label1.caption := inttostr(i);

end;

Bis zur Erstellung der 7z Datei funktioniert es. Ich finde keinen Fehler im Text. Dennoch hat die Archivdatei 0 Byte Größe. Was wohl darauf hindeutet, daß keine Dateien gepackt werden.
Woran liegt das??? Vielleicht kann mir doch noch jemand helfen.

[Bomberbb]

Ich kann auch noch SQX empfehlen. Arbeite damit nur. Ist etwas unbekannt, hat aber gute Packraten.

Source mit dll und Delphi-Demo:

www.sqx-archiver.org

[fl63]

Schade!
das sich mit 7zip Komprimierung niemand weiter auskennt. Muß ich wahrscheinlich doch mit LHA Packen.
LHA hat annähernd den gleichen Komprimierungsgrad wie 7zip, ist aber, weil Shareware, sehr teuer.

[franktron]

Zitat von fl63:

Schade!
das sich mit 7zip Komprimierung niemand weiter auskennt. Muß ich wahrscheinlich doch mit LHA Packen.
LHA hat annähernd den gleichen Komprimierungsgrad wie 7zip, ist aber, weil Shareware, sehr teuer.

Es gibt aber eine Kombo für 7z ich habe auch für Lazarus eine 7z Library gefunden.

Einfach lzma und Delphi (Lazarus) in Google eingeben.

[fl63]

[/quote]

Es gibt aber eine Kombo für 7z ich habe auch für Lazarus eine 7z Library gefunden.

Einfach lzma und Delphi (Lazarus) in Google eingeben.[/quote]


Habe ich gesucht und leider nicht gefunden.

In wie weit kann ich diese Komponente überhaupt im gewöhnlichen Delphi nutzen?? (Lazarus --> Delphi)