Phantom Zip v2.0

[-Phantom-]

Hey Leute,

ich habe mir mal die Zeit genommen meinen Entpacker weiter zu entwickeln.

Funkionen:

- .zip Archiv erstellen
- .zip Archiv entpacken
- Dateien in dem .zip Archiv einfügen/Löschen
- Dateien in dem .zip Archiv ausführen
- Bestimmte Werte anzeigen

( was soll der Entpacker sonst auch noch können ? xD )

Naja ich habe 2 verschiedene Versionen gemacht. Eine indem Designs drin sind, aber durch die Designs
erscheint beim starten des Programmes immer eine Meldung das ich eine bestimmte Komponente benutze. Das hat mich so genervt das ich auch eine Standard Version gemacht habe.

Man kann in der Setup auswählen welche Version man herunterladen und installieren will.

Design Version = 3,29 MB
Standard Version = 1,84 MB

Bitte entschuldigt meine Rechtschreibfehler. Ich bin nicht grader der "King" in Rechtschreibung.

PS: Die Installation Datei habe ich auch Selber geschrieben

Gruß
Mathias

[Matze]

Zitat von -Phantom-:

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 von -Phantom-:

Welche Dll und welches Archiv?

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

Zitat von -Phantom-:

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".