Phantom Zip v2.0

[Matze]

Zitat:

Zitat von -Phantom- (Beitrag 1037272)

Jetzt werde ich wahrscheinlich lernen wie man mit dll's arbeitet

Danke der API kriegst du davon eigentlich nichts mit, es sei denn, du versuchst deren Code zu verstehen. ;)

[-Phantom-]

Ich finde die "7z.dll" nirgendwo. Ich hab die 7.-zip.dll gefunden. Aber ich weiß nun nicht wie ich das machen muss. ( muss ich dafür ein neues Thema öffnen ?)
Das ist mein Versuch : ( nicht böse sein wenn das total daneben ist hab noch nie mit Dll's rum hantiert )

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject) stdcall;
external '7-zip.dll';
begin
   with CreateInArchive(CLSID_CFormatZip) do
   begin
     OpenFile('C:\Users\Administrator\Desktop\test.zip');
     ExtractTo('C:\Users\Administrator\Desktop\test');
 end;
end;

Als Fehler kommt das er "CreateInArchive", "Openfile", und "Extractto" nicht kennt

[cookie22]

die dll ist mit im archiv. ;)

[-Phantom-]

Welche Dll und welches Archiv?

muss ich dafür 7zip runterladen oder so was? Und mal ne frage kann man mit der Dll nur 7z und .zip Dateien entpacken?

[Matze]

Zitat:

Zitat von -Phantom- (Beitrag 1037322)

Welche Dll und welches Archiv?

7Zip-Archiv. Gibt glaub auch ne portable Version. Guck auf der Webseite nach.

Zitat:

Zitat von -Phantom- (Beitrag 1037322)

Und mal ne frage kann man mit der Dll nur 7z und .zip Dateien entpacken?

Ich vermute, die Dll kann das, was 7Zip auch kann: zip, 7z, tar.gz, rar, ... entpacken. Packen meines Wissens in 7z und zip.

[cookie22]

die dll ist hier mit drin.

http://code.google.com/p/d7zip/downloads/list

du kannst mit der dll auch gzip und bzip entpacken, wird aber in der unit nicht unterstützt glaub ich.

[-Phantom-]

ne frage ist bei meinem Versuch nur die DLL falsch oder auch was anderes?

[cookie22]

kenne die unit nicht wirklich, aber es sollte so aussehen. nicht vergessen sevenzip.pas einzubinden.

Delphi-Quellcode:

uses ..., sevenzip;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with CreateInArchive(CLSID_CFormatZip) do
 begin
   OpenFile('c:\test.zip');
   ExtractTo('c:\test');
 end;
end;

[-Phantom-]

Danke. Es klappt. Ich hab es auch schon mit einer .rar Datei ausprobiert. Und wozu ist die .dll nun da?
Bis jetzt musste ich sie ja noch nicht einbinden oder ähnliches

[Matze]

Das macht die sevenzip.pas, die du eingebunden hast.
Daher meinte ich, dass du mit der dll nicht direkt arbeiten musst.

Schaue dir die sevenzip.pas einfach mal an und verwende sie nicht "blind". ;)