7zip Delphi-Wrapper

[uwetr]

Hallo,

ich würde gerne ein paar 7zip-Archive mittels Lazarus auspacken.
Am liebsten würde ich dazu die 7zip.dll benutzen für die es einen Delphi-Wrapper unter https://code.google.com/p/d7zip/downloads/list gibt.

Nun bin ich aber absoluter Lazarus-Neuling und hab keinerlei Ahnung wie/ob man den Delphi-Wrapper in Lazarus verwenden kann ...

Kann/mag mir hier jemand bei der Aufgabenstellung helfen?


Viele Grüße,
Uwe

[Warf]

Schon mal versucht einfach unter unit den Switch

Code: Alles auswählen

{$MODE DELPHI}

hinzuzufügen?

wenn nicht versuche mal Lazarus Menü->Werkzeuge->Delphi Umwandlung->Delphi in Lazarus Unit umwandeln (oder so)

keine Ahnung wie gut das funktioniert, aber kannst es mal ausprobieren, wenn das reicht muss man sich nicht ewig lang hinsetzen und das übersetzen

[knight]

Schaue dir doch mal die Quelltexte von diesem Programm an: https://de.wikipedia.org/wiki/PeaZip

knight

[Michl]

Am liebsten würde ich dazu die 7zip.dll benutzen für die es einen Delphi-Wrapper unter https://code.google.com/p/d7zip/downloads/list gibt.

Ich habe zwar überhaupt keine Ahnung davon, habe es aber mal intuitiv probiert und es funktioniert tadellos (Mode Delphi und eine offene Klammer im Quellcode entfernt):

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  Archive: I7zInArchive;
begin
  OpenDialog1.Filter:='All Files|*.7z';
  if OpenDialog1.Execute then begin
    Archive:=CreateInArchive(CLSID_CFormat7z);
    Archive.OpenFile(OpenDialog1.FileName);
    if SelectDirectoryDialog1.Execute then
      Archive.ExtractTo(IncludeTrailingPathDelimiter(SelectDirectoryDialog1.FileName));
  end;
end; 

(Heaptrc meckert nicht, Files werden entpackt)

PS: ich finde Crossposts unschön!

[MAC]

Alternative zum einbinden der dll,
Es gibt auch eine Komandozeilenversion von 7zip (7za.exe) mit der man einfaches packen und entpacken kann.

http://wiki.freepascal.org/Executing_External_Programs

http://www.7-zip.de/download.html (7-zip extra)

[uwetr]

Hi,

Schon mal versucht einfach unter unit den Switch

Code: Alles auswählen

{$MODE DELPHI}

hinzuzufügen?

wenn nicht versuche mal Lazarus Menü->Werkzeuge->Delphi Umwandlung->Delphi in Lazarus Unit umwandeln (oder so)

keine Ahnung wie gut das funktioniert, aber kannst es mal ausprobieren, wenn das reicht muss man sich nicht ewig lang hinsetzen und das übersetzen

ähhhh, das war ja echt einfach
Funktioniert prima!

Vielen Dank an Alle für Eure Hilfe, speziell an Michl!
(undundund: cross post: ich wusste nicht das die beiden Communities so eng verzahnt sind )

Gruß,
Uwe