WinRar Komponente? oder ähnliches

[fl63]

Hallo

Ich suche eine Komponente mit der ich in der Lage bin *.rar Dateien aus zB.Text Dateien zu packen.
Die Rar Komponente von Weazy packt offenbar keine Dateien, oder irre ich mich. Kann mir jemand helfen?

[Die Muhkuh]

Du kannst die Unrar.dll ansteuern, dafür gibt's schon verschiedene Units. Die Forensuche hilft ;)

[fl63]

Ich bin Anfänger. Eine dll ansteuern übersteigt meine Fähigkeiten.

[SubData]

Eine kostenlose und gleichzeitig legale Methode RAR-Dateien zu erstellen gibt es nicht.
(Abgesehen von WinRAR in der Testversion)

[Die Muhkuh]

I'm sorry. Ich hab "entpacken" gelesen und nicht packen. Mit der Unrar.dll kannst Du sowieso nur entpacken. Ansonsten siehe Ronnys Aussage.

[fl63]

Schade! Dann muß ich mich mit zip oder anderen Archivern auseinandersetzen.
Ich hatte die Hoffnung mit rar arbeiten zu können da es eine sehr hohe Kompression hat.

[holliesoft]

Hi,

7zip hat höhere Kompressionsraten und ist OpenSource.
Es gibt div. Wrapper für die 7Zip DLL (u.a. in der JCL enthalten)

Gruß
Patrick

[OldGrumpy]

7-Zip hat eine teilweise deutlich überlegene Kompression, das Format ist zudem komplett dokumentiert und frei, umfangreiche Programmierschnittstellen dazu gibt es ebenfalls und wenn ich mich nicht ganz täusche auch schon eine Komponente die das Packen/Entpacken mit 7-Zip kapselt. Such mal hier im Forum. Ich benutze WinRAR inzwischen immer seltener...

Edit: jaja, der rote Kasten :)

[fl63]

7Zip habe ich bisher als dll Datei gefunden und auch als Programm mt Oberfläche.
Für die dll Datei fehlt mir das Wissen um sie anzusteuern. Kann mir vielleicht dabei noch jemand helfen?

[Die Muhkuh]

Hier gibt's eine Komponente dafür. Vielleicht lässt sich damit was anfangen. Ausprobiert hab ich diese selbst noch nicht.

[fl63]

Vielen Dank ich versuche mal diese Komponente zu installieren.

[fl63]

Die Installation dieser Komponente erfolgt problemlos. Aber das DemoProgramm :pale: :pale:
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:

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)

[franktron]

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)[/quote]

Der 2. Link in Google http://www.birtles.org.uk/programming/

[fl63]

War Tippfehler meinerseits habe izma getippt statt lzma.