3.30 Packer problem

[403]

hi,
wenn ich mit CreatePackFile() eine datei erstelle und mit AddPackFile() eine Datei hinzufügen will, bleibt die Datei 0 Byte groß, egal was für eine Datei hinzufügen will. Warum ist das so und wie kann ich das ändern?

[edel]

Auch nach dem schliessen der Datei ?

[xperience2003]

kannst mal sehen, wie gut der packer ist ^^

spass bei seite
wird denn das file gefunden?

Code: Alles auswählen

 CreatePack("packed.dat") 
    AddPackFile("deinfile.bmp") 
 ClosePack() 

[ts-soft]

@xperience2003
Die fehlenden If sind nicht gut, weil so findet man die Fehler nicht

@403
Immer Prüfen, dann weiß man meist auch woran es liegt.
Code?
Was für Dateien?

Der Packer hat Probleme bei bereits gepackten Dateiformaten:
png, zip, rar usw. und das Pack bleibt dann leer! Jedenfalls war es bei
älteren Versionen so. Merkt man, wenn AddPackFile() 0 zurückgibt!

Gruß
der Hellseher (wo ist der Code )

[403]

@ edel
ja, auch danach

@xperience2003

Code: Alles auswählen

CreatePack("pack.pbp")
    inputad$ = OpenFileRequester("Ad File","","*.*",0)
     AddPackFile(inputad$)
ClosePack()

[403]

ich hab s schon mit .exe;.jpg;.bmp;.txt versucht. manchmal gibt er Result==0 zurück, manchmal Result<>0.

[STARGÅTE]

ich glaube in 3.3 war das Packen bei Files verbugt, das heißt es wäre besser:

Du lädts die Datei erst in Memory und packst dann den Memory und dann schreibst du es in deine eigene Packdatei.

[403]

sry die frage, bin noch n newbie:
Wie geht das??

[ts-soft]

sry die frage, bin noch n newbie:
Wie geht das??

Hier mal für PB 4.xx, mußte also noch anpassen.
Ungetested, nur zur Orientierung!

Code: Alles auswählen

If OpenFile(0, bla.s)
  Size.l = Lof(0)
  Mem = AllocateMemory(Size)
  ReadData(0, Mem, Size)
  CloseFile(0)
  
  If CreatePack("meinPack.dat")
    If AddPackMemory(Mem, Size)
      FreeMemory(Mem)
    EndIf
    ClosePack()
  EndIf
EndIf

PS: Als newbee solltest Du auch im Anfängerforum posten

[403]

thx