Problem: Entpacken. (gelöst)

[Mok]

Hi
Ich hab so'n kleines Prog geschrieben, mit dem man Datei(en) packen kann. Dann hab ich noch eines geschrieben, mit dem man entpacken kann. Funzt aber nicht (war ja klar...) wie geht's richtig? was ist falsch? warum?

Also erstmal das Prog, mit dem man Packt (da dürfte kein Problem sein):

Code: Alles auswählen

If CreatePack("Dateien.pack")
  AddPackFile("beispiel.txt",1)
  AddPackFile("Tabelle.xls",5)
  ClosePack()
  MessageRequester("Info","Alle Dateien wurden erfolgreich gepackt!",0)
Else
  MessageRequester("Fehler","Die Dateien konnten nicht gepackt werden!"+Chr(13)+"Möglicherweise konnte 'Dateien.pack' nicht erstellt werden.",16)
EndIf
End

Und jetzt den "Ent"packer:

Code: Alles auswählen

If OpenPack("Dateien.pack")
  Adresse = NextPackFile()
  
  ;Tja... da gehört wohl was rein!
  ;aber was??
  
  MessageRequester("Info","Alle Dateien erfolgreich entpackt!",0)  
Else
  MessageRequester("Fehler!","Die Dateien konnten nicht entpackt werden!",16)
  End
EndIf

End

Hab schon alles mögliche probiert, aber irgendwie...

Na ja, ich hoffe ihr antwortet mir wie gewöhnlich schon in den ersten 10 Minuten, und sag schon mal ein herzliches Danke im Voraus

Gruß, Wolfram

[KeyKon]

einfach CreateFile und dann mit WriteData(FileID,Addresse,PackFileSize()) alles reinschreiben CloseFile und fertig die zauberei^^

[Mok]

Danke
...für die schnelle antwort (5min.)

EDIT:
Moment,

einfach CreateFile und dann mit WriteData(FileID,Addresse,PackFileSize()) alles reinschreiben CloseFile und fertig die zauberei^^

WriteData() hat aber nur 2 Parameter! Außerdem erhalte ich die Meldung This memory buffer is not initialized (null).

[KeyKon]

Immer gern

[a14xerus]

WriteData() hat aber nur 2 Parameter! Außerdem erhalte ich die Meldung This memory buffer is not initialized (null).

WriteData(#Datei, *Speicherpuffer, ZuSchreibendeLaenge)

und "Adresse" sollte man natürlch noch zuweisen -.-'

sons halt parameter anpassen

[HeX0R]

WriteData() hat aber nur 2 Parameter! Außerdem erhalte ich die Meldung This memory buffer is not initialized (null).

Das passiert eben, wenn man nicht angibt, dass man mit einer veralteten PureBasic Version arbeitet...

[Mok]

WriteData() hat aber nur 2 Parameter! Außerdem erhalte ich die Meldung This memory buffer is not initialized (null).

Das passiert eben, wenn man nicht angibt, dass man mit einer veralteten PureBasic Version arbeitet...

Na ja... 3.94 rulezz^^

Ne, aber jetzt ernst! Wie mach ich das Entpacken jetzt richtig?

[KeyKon]

Das Sollte 3.94-fähig sein...

Code: Alles auswählen

If OpenPack("Dateien.pack") 
  *Adresse = NextPackFile() 
  If CreateFile(0,"entpack.txt")
    WriteData(*Adresse,PackFileSize())
    CloseFile(0)
  EndIf
  
  MessageRequester("Info","Alle Dateien erfolgreich entpackt!",0)  
Else 
  MessageRequester("Fehler!","Die Dateien konnten nicht entpackt werden!",16) 
  End 
EndIf 

btw Wiso noch 3.94? 4.x geht doch viel mehr ab

[Mok]

Das Sollte 3.94-fähig sein...

Code: Alles auswählen

...
*Adresse = NextPackFile()
  If CreateFile(0,"entpack.txt")
    WriteData(*Adresse,PackFileSize())
    CloseFile(0)
  EndIf
...

btw Wiso noch 3.94? 4.x geht doch viel mehr ab

Hab ja schon was Ähnliches gehabt , ich habe nur die zwei *s vor Adresse vergessen...
Wieso ich noch 94 progge? Na ja, frage ich mich selbst manchmal, aber ich hab mal die 4.1 beta geloadet und ausprobiert... und irgendie muss man sich an die 4er auch wieder extra gewöhnen. Was ist eigentlich der Unterschied zwischen der 94er und der 4er? Weniger Bugs? Mehr, oder genauere Befehle?

Na ja, irgendwann bin ich gezwungen, 4 zu proggen

mfg, Wolfi

PS: Freu' mich schon auf Version 5.x

[Kiffi]

aber ich hab mal die 4.1 beta geloadet und ausprobiert...

die 4.1 liegt mittlerweile als Stable vor.

Ich würde Dich bitten, Deine PB-Version in Deine Signatur einzutragen.

Grüße ... Kiffi