Packer Lib
Verfasst: 15.02.2009 13:20
Hi,
gibt es soetwas wie eine Packer Lib?
Ich habe schon die ZIP Lib von gonzales gefunden allerdings Spuckt die nen Error bei:
Hier:
Er sagt das es das weder eine Procedure/Macro/Linked List ist!
Ich hab die Lib installiert den Comolier und sogar Windows neugestartet!
Gruß
JENS
gibt es soetwas wie eine Packer Lib?
Ich habe schon die ZIP Lib von gonzales gefunden allerdings Spuckt die nen Error bei:
Code: Alles auswählen
Procedure CallbackForTest(file.s, PerCent.f)
Debug StrF(PerCent, 2) + "%"
EndProcedure
;
myFileinfo.PureZIP_FileInfo
PureZIP_SetCallback(@CallbackForTest())
;
MyZIP.s = "C:\PureBasic393\Program\PureZIP\essai1\test.zip"
MyFilesToZIP.s = "C:\PureBasic393\Program\PureBriefLZ\*.*"
MyZIPOutPut.s = "C:\PureBasic393\Program\PureZIP\essai3\"
; Create archive
Debug PureZIP_AddFiles(MyZIP, MyFilesToZIP, #PureZIP_StorePathAbsolute, #PureZIP_Recursive)
; Extract files from archive
Debug PureZIP_ExtractFiles(MyZIP, "*.*", MyZIPOutPut, #True)
; Count files in archive
Debug PureZIP_GetFileCount(MyZIP)
; Add memory bank to archive
Debug PureZIP_AddMemory(MyZIP, "MemoryTest.txt", @MyZIP, Len(MyZIP))
; On file more in archive :
Debug PureZIP_GetFileCount(MyZIP)
; Get files information
For i = 0 To PureZIP_GetFileCount(MyZIP) - 1
Debug PureZIP_GetFileInfo(MyZIP,i , @myFileinfo)
Debug "Number " + Str(i)
Debug "Filename: " + myFileinfo\FileName
Debug "Compressed Size: " + Str(myFileinfo\CompressedSize)
Debug "Uncompressed Size: "+ Str(myFileinfo\unCompressedSize)
Debug "--------------"
Next
Code: Alles auswählen
PureZIP_SetCallback(@CallbackForTest())
Ich hab die Lib installiert den Comolier und sogar Windows neugestartet!
Gruß
JENS