minizip dll

[ts-soft]

Zitat von Jac de Lad

@ts-soft: Wenn du es hinkriegst, dass man bestimmte Verzeichnisse nicht mit entpacken kann, dann werde ich mit Gamsav auf deine DLL umsteigen

Das hinzubekommen ist wohl eher Deine Aufgabe
Pseudocode:

j = ZIP_GetFilesCount()
For i = 1 to j
  Name = ZIP_GetFileInfo()
  If Dir in Name
    ZIP_ExtractFile()
  EndIf
Next

Gruß
Thomas

[Jac de Lad]

Damit kann ich auch einzelne Verzeichnisse aus dem Namen löschen?

[ts-soft]

Zitat von Jac de Lad

Damit kann ich auch einzelne Verzeichnisse aus dem Namen löschen?

Der relative Pfad ist doch im Namen enthalten. Den überprüfst Du, ob das nicht zu entpackende Verzeichnis enthalten ist und lässt es dann beim entpacken aus. ExtractFile entpackt doch nur einzelne Dateien. ExtractArchiv entpackt immer alles, da kann man nichts beeinflussen.

Dateinamen in einem ZipArchiv werden immer mit einem relativen Pfad gespeichert, es gibt dort keine Ordner. Deshalb kann man auch keine leeren Ordner entpacken.

Verzeichnis/bla.bmp
Verzeichnis/weiteresVerzeichnis/blub.bmp
root.bmp

Gruß
Thomas

//edit:

$I minizip.inc

Declare hMinizip&, sZIP$, iCount&, bFile#, sFile$
Dim bFile#, 260

hMinizip& = UseDLL("minizip.dll")

sZIP$ = @LoadFile$("Wähle ZipArchiv", "*.zip")

iCount& =  ZIP_GetFilesCount(Addr(sZIP$))
WhileLoop 1, iCount&
  bFile# = ZIP_GetFileInfo(Addr(sZIP$), &Loop, 0)
  sFile$ = String$(bFile#, 0)
  ' Hier vergleichen und ggflls. entpacken
  Print sFile$
EndWhile

Dispose bFile#
FreeDLL hMinizip&
WaitInput

[Jac de Lad]

Achso, jetzt verstehe ich. Danke.

[ts-soft]

Zitat von Jac de Lad

Achso, jetzt verstehe ich. Danke.

Puuh, naja, ich bin eben kein Erklärer .
Und Beispiele in XProfan erfordern immer fleißiges Hilfe studieren, wo ich zu
Faul zu bin.

Die Sache mit den Unterstrukturen hab ich jetzt auch rausgefunden. Man läßt
die Angabe der Unterstruktur einfach weg, gibt stattdessen dessen Member
an. Allerdings komme ich noch nicht an den Member: FileName$(260)
Aber der wird von der Funktion ja sowieso direkt zurückgegeben, somit sind
alle Werte erreichbar, falls mal benötigt.

Gruß
Thomas

[Bangkok]

Hallo Thomas,

Also bei mir kommt es immer zu einem schweren Absturz,wenn ich Zipfiles mit Verzeichnissen entpacken will.
Vielleicht bracht man dazu mehr Speicher, mein Notebook hat nicht viel Speicher. Hast du das entpacken von
Verzeichnissen schon getestet ?

Ich benutze folgende Form

ZIP_ExtractArchiv(addr(zipfile$),addr(outpath$),1,0)

desweiteren gibt diese Funktion bei mir bei einem Archiv mit nur einem File darin true zurück, bei mehreren Files
aber false, obwohl einwandfrei entpackt wird.

Die Funktion ZIP_DirAdd() funktioniert, aber außerhalb der Norm, Wenn ich ein Verzeichinss packe wird es ins Rootverzeichnis des
des zipfiles gepackt, das heißt das Verzeichnis selbst erscheint nicht im Zipfile. Wenn ich mit einem Zipprogramm packe erscheint
das Verzeichnis im Zipfile. Wenn ich dann 2 Verzeichnisse in eine Datei packe, werden die dadurch untrennbar vermischt.
Hoffe du weißt was ich meine.

Die Parameter von ZIP_UnpackMemory() sind mir nicht klar, da nicht erklärt.

[ts-soft]

Zitat von Bangkok

Hallo Thomas,

Also bei mir kommt es immer zu einem schweren Absturz,wenn ich Zipfiles mit Verzeichnissen entpacken will.
Vielleicht bracht man dazu mehr Speicher, mein Notebook hat nicht viel Speicher. Hast du das entpacken von
Verzeichnissen schon getestet ?

Es ist alles getestet, aber nicht mit XProfan.

Zitat von Bangkok

Ich benutze folgende Form

ZIP_ExtractArchiv(addr(zipfile$),addr(outpath$),1,0)

desweiteren gibt diese Funktion bei mir bei einem Archiv mit nur einem File darin true zurück, bei mehreren Files
aber false, obwohl einwandfrei entpackt wird.

Ich brauche schon einen Beispielcode und vor allem das Archiv zum testen.
1. Wenn ich selber Beispiele bastel, funktionieren die Erfahrungsgemäß
2. Es werden nicht alle Zip-Archive unterstützt, nur PKZIP 2 kompatible.
Wenn Winzip und Konsorten irgendwelche ungenormten Erweiterungen nutzen, werden diese nur sehr eingeschränkt unterstützt, da es keine Informationen zu diesen Erweiterungen gibt.
3. Ich habe Freitag Prüfung und nur eingeschränkt Zeit.

Zitat von Bangkok

Die Funktion ZIP_DirAdd() funktioniert, aber außerhalb der Norm, Wenn ich ein Verzeichinss packe wird es ins Rootverzeichnis des
des zipfiles gepackt, das heißt das Verzeichnis selbst erscheint nicht im Zipfile. Wenn ich mit einem Zipprogramm packe erscheint
das Verzeichnis im Zipfile. Wenn ich dann 2 Verzeichnisse in eine Datei packe, werden die dadurch untrennbar vermischt.
Hoffe du weißt was ich meine.

Ich weiß was Du meinst, aber das ist Absicht. Diese DLL soll ja kein
Packprogramm ersetzen, sondern Programmieren dienlich sein .
Bei Deiner Variante könnte ich nicht mit nur einem Packbefehl ein
komplettes Archiv erstellen, das auch Dateien im Root enthält.
Erstell einfach einen Ordner oberhalb, dann hast Du das gewünschte
Resultat.

Zitat von Bangkok

Die Parameter von ZIP_UnpackMemory() sind mir nicht klar, da nicht erklärt.

Eigentlich sollte *source, *dest selbsterklärend sein, vorausgesetzt Du
weißt das dieses * für einen Pointer steht. *source ist also der Bereich, wo
das gepackte etwas enthalten ist *dest ist der Bereich wo das ungepackte
etwas hinein soll

Die meisten denken bei ZIP immer nur an das Archivfileformat, aber in
erster Linie ist es ein Packformat. Es ist nicht zwingend erforderlich, das
dort ein Container mit Headern mit Informationen wie Dateiname,
Verzeichnis, Attribute usw. existiert.

Angenommen Du verwaltest die Einstellungen Deines Programmes in einem
strukturierten Bereich, so könntest Du beim Programmende diesen Bereich
speichern. Wenn dieser aber sehr gross ist, könntest Du diesen Bereich
auch erstmal in einen anderen Bereich packen und diesen gepackten
speichern. Hierbei aber nicht vergessen, die orginalgrösse mitzuspeichern,
sowie einen Check auf korruption, z.B. CRC32 oder MD5Fingerprint wäre
sinnvoll um "Illeagal Memory Access" zu vermeiden.

Die Rohdaten aus einer Listview könntest Du so z.B. gepackt speichern.

Kurzfassung: Für ZipArchive ist der Befehl nutzlos.

Gruß
Thomas

[Bangkok]

Hallo Thomas,

das mit dem * wusste ich nicht

Zum entpacken, ich habe einfach den Inhalt deines Zipfiles minizip_dll.zip entpackt in ein Verzeichnis kopiert und mit ZIP_DirAdd() gepackt und dann versucht zu entpacken, da ist ja das Unterverzeichnis Source drin. Also kein fremdes Programm verwendet, so dass Formatunterschiede keine Rolle spielen

Einfaches beispiel zum entpacken.

$I minizip.inc
var zip& = usedll("minizip.dll")

cls

var file$ = loadfile$("Archiv öffnen","*.ZIP")

var path$ = Choosedir$("Verzeichnis zum entpacken wählen")

print ZIP_ExtractArchiv(addr(file$),addr(path$),1,0)

freedll zip&

waitinput

Das mit dem ZipDirAdd() verstehe ich nicht, wo der Vorteil liegt
Ich packe das Verzeichnis "C:\Temp" und das Verzeichnis "C:\Test" in eine Datei. Die beiden Verzeichnisse werden nun in dem Zipfile vermischt. Beim entpacken werden nun gleichnamige Dateien sogar überschrieben, weil die Pfadangabe dann fehlt. Wenn z.B. in beiden Verzeichnissen eine Readme.txt ist bleiben die zwar im Zipfile erhalten. Aber beim entpacken wird eine dann überschrieben.

[ts-soft]

Zitat von Bangkok

Das mit dem ZipDirAdd() verstehe ich nicht, wo der Vorteil liegt
Ich packe das Verzeichnis "C:\Temp" und das Verzeichnis "C:\Test" in eine Datei. Die beiden Verzeichnisse werden nun in dem Zipfile vermischt. Beim entpacken werden nun gleichnamige Dateien sogar überschrieben, weil die Pfadangabe dann fehlt. Wenn z.B. in beiden Verzeichnissen eine Readme.txt ist bleiben die zwar im Zipfile erhalten. Aber beim entpacken wird eine dann überschrieben.

Kopiere c:\temp in c:\zip und c:\test auch. Dann packe nur noch c:\zip

Das andere werde ich mir die Tage mal anschauen.

Gruß
Thomas

[Bangkok]

Zitat von ts-soft

Kopiere c:\temp in c:\zip und c:\test auch. Dann packe nur noch c:\zip

Na ja, das ist aber kein work around, da eine Packdll ja nicht für den Eigengebrauch ist, sondern um seine Programme bei Bedarf mit Zip-Funktionen auszustatten. Das heißt ein User bedient dann das Programm und der dürfte für den Umweg kein Verständnis haben, da er es von Zipprogrammen besser kennt.

Ich muss dann wohl eine Routine entwerfen um die Verzeichnisse einzuladen in der Form:

ZIP_FileAdd(ZipHandle&, "c:\ordner\", "ordner", 9, 0)
ZIP_FileAdd(ZipHandle&, "c:\ordner\earth.bmp","ordner\earth.bmp",9,0)

Das funktioniert kann aber in Profan sehr langsam werden, da eine rekursive Suche eingebaut werden muss.

[ts-soft]

Den Fehler mit ZIP_ExtractArchive() konnte ich jetzt nachvollziehen. Passiert
sobald Unterverzeichnisse im Archiv sind.
Wird aber noch ein bissel dauern bis ich den Fehler beseitigen kann, mir fehlt
erstmal die Zeit

Gruß
Thomas

[Frabbing]

Ansonsten funktioniert die Dll in meinem Malware Whisperer völlig anstandslos. Bin sehr zufrieden damit!

[ts-soft]

Hab den Download mal aktualisiert, hatte einen Bugfix für Frank eingebaut,
aber vergessen upzuloaden.

[Frabbing]

[THFR]

Hilfe, ich habe ein Problem mit dem Zeichensatz. Wie erhalte ich ä,ü,ö, usw. ?
Gruß
Thomas