PureBoard

Verfasst: **22.03.2007 21:53**

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?

Verfasst: **22.03.2007 22:15**

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

Verfasst: **22.03.2007 22:34**

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

Verfasst: **23.03.2007 00:04**

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

PureBoard

OpenPack() - Immer Rückgabe #True?

OpenPack() - Immer Rückgabe #True?