ich wollte die PureZip Lib für mein Programm nutzen und habe von http://www.rsbasic.de/backups/
PureZIP_500.zip genommen und installiert.
Alle Datei sind in den PB-verzeichnis kopiert.
Beim kompilieren folgenden PB (aus http://purebasic.fr/german/viewtopic.php?f=16&t=10175) oder aus PB- Examples, bekomme ich die Meldung:
[COMPILER] PureBasic Bibliothek fehlt: Misc (benötigt von der 'PureZIP_LIB_230_CheckCRC' Bibliothek)
Code: Alles auswählen
Procedure.b OpenDB(File$, passwort$) ; verschlüsselte Datei entpacken
FileNoExt$ = StringField(File$,1,".") ; Dateiname ohne Extension
DBDir$ = GetPathPart(File$) ; Verzeichnis der Datenbank
PackFile$ = FileNoExt$ + ".zip" ; Name des Archives
PureZIP_SetArchivePassword(passwort$)
If FileSize(File$) > 0 ;{ Datei schon entpackt
ProcedureReturn #True ; Entpacken nicht nötig
ElseIf FileSize(File$) = 0 ; Nulldatei z.B. wg. falschem Passwort
DeleteFile(File$) ; ungültige Datei entfernen
EndIf ;}
FileNumberInArchive.l = PureZIP_FindFile(PackFile$, GetFilePart(File$), #False)
If FileNumberInArchive <> -1 ; Datei im Archiv gefunden
If PureZIP_ExtractFile(PackFile$, FileNumberInArchive, DBDir$, #False) = #False ; Ins Verzeichnis DBDir$ entpacken
DeleteFile(DBDir$+GetFilePart(File$)) ; Datei (0 Byte) löschen, wenn Passwort falsch war
MessageRequester(" Datenbank","Datei konnte nicht geöffnet werden. Passwort falsch?"+Chr(10)+"("+GetFilePart(File$)+")", #MB_OK|#MB_ICONWARNING)
ProcedureReturn #False
EndIf
Else
MessageRequester(" Datenbank","Datei '"+GetFilePart(File$)+"' wurde nicht gefunden."+Chr(10)+"("+GetFilePart(PackFile$)+")", #MB_OK|#MB_ICONWARNING)
ProcedureReturn #False
EndIf
ProcedureReturn #True
EndProcedure
Procedure.b CloseDB(File$, passwort$) ; Datei packen
FileNoExt$ = StringField(File$,1,".") ; Dateiname ohne Extension
PackFile$ = FileNoExt$ + ".zip"
If FileSize(File$) > 0 ; zu packende Datei existiert und keine 0 Byte-Datei
If FileSize(PackFile$) <> -1
DeleteFile(FileNoExt$+".zip") ; altes Archiv entfernen, wenn vorhanden
EndIf
PureZIP_SetArchivePassword(passwort$)
If PureZIP_AddFile(PackFile$, File$, #PureZIP_DontStorePath)
If PureZIP_FindFile(FileNoExt$+".zip", GetFilePart(File$), #False) <> -1 ; Test ob Datei im Archiv
DeleteFile(File$) ; Löschen der Datei
Else
ProcedureReturn #False
EndIf
Else
ProcedureReturn #False
EndIf
Else
ProcedureReturn #False
EndIf
ProcedureReturn #True
EndProcedure