Problem beim entpacken

Für allgemeine Fragen zur Programmierung mit PureBasic.
fabulouspaul
Beiträge: 120
Registriert: 01.04.2011 21:59

Problem beim entpacken

Beitrag von fabulouspaul »

Hallo Gemeinde,

ich bin nicht sicher, ob Bug oder Feature:

Code: Alles auswählen

EnableExplicit

UseZipPacker()

Enumeration
  #zip_handle
EndEnumeration

Global *buffer

OpenPack(#zip_handle, "Test.zip")
ExaminePack(#zip_handle)
While NextPackEntry(#zip_handle)
  If PackEntryType(#zip_handle) = #PB_Packer_File And PackEntrySize(#zip_handle) > 0
    Debug "Dateiname vor entpacken: " + PackEntryName(#zip_handle)
    
    *buffer = AllocateMemory(PackEntrySize(#zip_handle))
    UncompressPackMemory(#zip_handle, *buffer, PackEntrySize(#zip_handle), PackEntryName(#zip_handle))   ; <- Macht Fehler
    ; UncompressPackMemory(#zip_handle, *buffer, PackEntrySize(#zip_handle))   ; <- Macht keinen Fehler
    FreeMemory(*buffer)
    
    Debug "Dateiname nach entpacken: " + PackEntryName(#zip_handle)
  EndIf
  
Wend
ClosePack(#zip_handle)
End
Gibt man beim Entpacken also den optionalen Namen der zu entpackenden Datei an, kann man danach diesen Namen mit PackEntryName() nicht mehr auslesen.
Lässt man den Namen beim Entpacken weg, ist alles wie erwartet.

Muss das so?