OpenPack() - Immer Rückgabe #True?

[Kai]

OpenPack() gibt bei mir immer #True zurück,
und wenn ich dann ne Datei öffne, die kein Archiv ist,
gibt es erstma bei NextPackFile() nen Invalid Memory Acces.

Code: Alles auswählen

filepath$ = OpenFileRequester("Öffnen", "", "Alle Dateien|*.*", 0)

hPack.l = OpenPack(filepath$)

Debug hPack

If hPack
 unpackdir$ = GetHomeDirectory() + "Desktop\"
 adress.l   = NextPackFile()
 
 While adress <> 0
  size   = PackFileSize()
  
  nr + 1
  tmpfile.l = CreateFile(#PB_Any, unpackdir$ + Str(nr) + ".tmp")
   
   Debug Str(adress) + " - " + Str(size)
   
   WriteData(tmpfile, adress, size)
   CloseFile(tmpfile)
  
  adress = NextPackFile()
 Wend

 ClosePack()
Else
 MessageRequester("Fehler","Keine gültige Datei", #MB_OK|#MB_ICONERROR)
EndIf

Kann das wer bestätigen oder Mach ich was falsch?

[ts-soft]

Das #True sagt nur aus, das die Datei erfolgreich geöffnet wurde, die
PackRoutinen in PB haben keinen extra Check.
Aus diesem Grunde gibts es auch verschiedene Routinen von GPI um dieses Manko zu beseitigen.

Findeste für PB4 im IncludePack:
http://www.purebasic.fr/german/viewtopi ... ncludepack

PackContainer_Include.pbi wäre zu empfehlen.

Ansonsten kann man unter Windows auch UDRes nehmen, was
Speicherfreundlicher ist, wobei die Dateien als Windows-Resource in die Exe
gepackt werden:
http://www.purebasic.fr/english/viewtopic.php?t=22610

[Thalius]

Wenn Du dir eine eigen Funktion zum check bauen willst. Checke doch einfach den HEADER der geöffneten datei. Und vergleiche die HEX Werte ( öffne mal ne .pak datei im hexeditor ) als ASCII steht in den Paks da "JCGal2" oder so.. ( habe imo keine pak datei zur hand ) - vergleiche einen solchen header mit der geöffneten Datei und du kannst mal davon ausgehen dass es sich um ein pak-archiv handelt.

Thalius

[Kai]

Joa danke, dann werd ich mal sehen wie ich das mache.