PureBasic Forums - English

Code: Select all

UseZipPacker()

Path$ = #PB_Compiler_Home + "examples/sources/Data/" ; path to the PureBasic examples data/media files
PackFile$ = GetTemporaryDirectory() + "PureBasicTest.zip"  ; path to the pack file which should be created and opened later
If CreatePack(0, PackFile$)
  AddPackFile(0, Path$ + "world.png", "world.png")
  AddPackFile(0, Path$ + "test.pref", "test.pref")
  AddPackFile(0, Path$ + "CdPlayer.ico", "CdPlayer.ico")
  AddPackFile(0, Path$ + "Background.bmp", "Background.bmp")
  ClosePack(0)
  Debug "PackFile successfully created: " + PackFile$
Else
  Debug "Error creating the pack file!"
EndIf

Path$ = GetTemporaryDirectory() + "PureBasicTest/"  ; path to a directory into which the pack files should be extracted
If OpenPack(0, PackFile$)
  If CreateDirectory(Path$) Or FileSize(Path$) = -2
    If ExaminePack(0)
      While NextPackEntry(0)
        text$ = PackEntryName(0)
        If text$ = "CdPlayer.ico"
          UncompressPackFile(0, GetTemporaryDirectory()+ text$)
          Break
        EndIf
      Wend
    EndIf
    ClosePack(0)
  Else
    Debug "Error while creating the folder '" + Path$ + "' to unpack the archive contents!"
  EndIf
Else
  Debug "Error opening the pack file!"
EndIf

Code: Select all

If ExaminePack(PreloadPack)
			PackEntryStart = 0
			While NextPackEntry(PreloadPack)
				PackEntrySize = PackEntrySize(PreloadPack)
				PackEntryName = PackEntryName(PreloadPack)
				;Debug "PackEntryName: " + PackEntryName
				;Debug "PackEntrySize: " + Str(PackEntrySize)

				*PackEntry = AllocateMemory(PackEntrySize * 3)
				If UncompressPackMemory(PreloadPack, *PackEntry, PackEntrySize) = -1
					MessageRequester("Error", PackEntryName + " could not decompress.", #PB_MessageRequester_Error)
					FreeMemory(*PackEntry)
					FreeMemory(*PreloadBuffer)
					EndProgram()
				Else
					;Debug "Entry:" + PackEntryName + " decompressed."
					If CatchImage(#PB_Any, *PackEntry) = 0
						MessageRequester("Error", PackEntryName + " could not catch image.", #PB_MessageRequester_Error)
						FreeMemory(*PackEntry)
						FreeMemory(*PreloadBuffer)
						EndProgram()
					EndIf
				EndIf
				PackEntryStart = PackEntryStart + PackEntrySize
			Wend
			Else
				MessageRequester("Error", "Failed to examine Preload.bin!", #PB_MessageRequester_Error)
				FreeMemory(*PreloadBuffer)
				EndProgram()
			EndIf

Code: Select all

;Load and catch an image from a zip

#PACKPLUGIN = #PB_PackerPlugin_Zip
UseZipPacker()
UsePNGImageDecoder()
UsePNGImageEncoder()
Define myimage_id.i

;-PROCEDURE
;****************************************************
;LOADS AND CATCHES A SPECIFIC IMAGE FROM A PACKFILE
;RETURNS :#FALSE ON ERROR
;         VALID IMAGE ID ON SUCCESS
;****************************************************
Procedure.i imageloadfrompack(packname.s,entryname.s)
  Protected packid.i, Size.i, *Buffer, Catched_Image_ID.i,Result.i
  If Not FileSize(packname.s) : Debug "Packfile not found: " + packname.s + "." : ProcedureReturn #False :EndIf
  packid.i = OpenPack(#PB_Any,packname.s,#PACKPLUGIN)
  If Not packid : Debug packname.s + " is not a valid pack file, or corrupted." :  ProcedureReturn #False : EndIf
  If Not ExaminePack(packid) : Debug "Error While examining the pack.":ClosePack(packid) : ProcedureReturn #False : EndIf
  
  While NextPackEntry(packid)
    If PackEntryName(packid) = entryname.s
      Size.i = PackEntrySize(packid,#PB_Packer_UncompressedSize)
      *Buffer = AllocateMemory(Size.i)
      If Not *Buffer : Debug "Could not allocate memory" : ClosePack(packid) : ProcedureReturn #False : EndIf
      result.i = UncompressPackMemory(packid,*Buffer,Size.i,name.s)
      If result <> size : Debug "Something wrong while uncompressing, size differs." : FreeMemory(*Buffer) : ClosePack(packid) : ProcedureReturn #False : EndIf
      Catched_Image_ID = CatchImage(#PB_Any,*Buffer,Size)
      ClosePack(packid)
      FreeMemory(*Buffer)
      If Not IsImage(Catched_Image_ID) : Debug "Packentry might be not an image, or need to use some imageplugin to catch" : ProcedureReturn #False : EndIf
      ProcedureReturn Catched_Image_ID
    EndIf
  Wend
  
  Debug "Could not find "+ entryname.s + " in pack " + packname.s+ "."
  ClosePack(packid)
  ProcedureReturn #False
EndProcedure





;-EXAMPLE USAGE      
;CHANGE THE NAMES TO A CORRECT ZIPFILE AND ENTRYNAME    
myimage_id = imageloadfrompack("MiniWorldSprites.zip","mountains.png")
SaveImage(myimage_id,"hello.png",#PB_ImagePlugin_PNG)

Code: Select all

;Load and catch all images from a zip, stores the ID-s in an array.
EnableExplicit
#PACKPLUGIN = #PB_PackerPlugin_Zip
UseZipPacker()
UsePNGImageDecoder()
UsePNGImageEncoder()

Global Dim Images_h(0)

;-PROCEDURE
Procedure.i load_all_images_from_pack(packname.s)
  Protected packid.i, Size.i, *Buffer, Catched_Image_ID.i,Result.i
  If Not FileSize(packname.s) : Debug "Packfile not found: " + packname.s + "." : ProcedureReturn #False :EndIf
  packid.i = OpenPack(#PB_Any,packname.s,#PACKPLUGIN)
  If Not packid : Debug packname.s + " is not a valid pack file, or corrupted." :  ProcedureReturn #False : EndIf
  If Not ExaminePack(packid) : Debug "Error While examining the pack.":ClosePack(packid) : ProcedureReturn #False : EndIf
  
  While NextPackEntry(packid)
      Size.i = PackEntrySize(packid,#PB_Packer_UncompressedSize)
      *Buffer = AllocateMemory(Size.i)
      result.i = UncompressPackMemory(packid,*Buffer,Size.i)
      Images_h(ArraySize(images_h())) = CatchImage(#PB_Any,*Buffer,Size)
      FreeMemory(*Buffer)      
      ReDim Images_h(ArraySize(Images_h())+1)
  Wend
  ClosePack(packid)
EndProcedure

;-EXAMPLE USAGE      
;CHANGE THE NAMES TO A CORRECT ZIPFILE AND ENTRYNAME    
OpenConsole("Test")
load_all_images_from_pack("MiniworldSprites2.zip")

PrintN("ID-s of loaded images")
PrintN("")

Define i.i
For i = 0 To ArraySize(images_h())-1
  PrintN("Image_handle_"+RSet(Str(i),2,"0")+": "+Str(Images_h(i)))
Next i

PrintN(Str(ArraySize(Images_h()))+" images loaded.")

Input()
End