is there something I am doing wrong here?
I am getting an IMA on the ProcedureReturn (or endprocedure, if I take out the return).
the debug output works normally.
what could it be that is happening?
(I am using PB 4.5b4, win7, x86, PureZip DLL)
I created the file with PureZIPDLL_AddFiles, could this be a cause? but the archive can be read. I can even open it with 7zip and it looks fine.
If I enable the purifier...it all works fine with no errors. no purifier and I get the IMA.
Code: Select all
XIncludeFile "PureZIP_DLL_2_INCLUDE.pb"
;open existing
Define MyZIP.s = "C:\" + "test.zip"
Procedure.i GetZIPinfo(zipPath.s) ;This requires the PureZIP userlib
;Returns array of the filenames contained in zip archive
Protected myFileInfo.PureZIP_FileInfo
Protected r.l, count.l
If PureZIPDLL_Archive_Read(zipPath)
r = PureZIPDLL_Archive_FindFirst()
count = 0
While r = #UNZ_OK
PureZIPDLL_Archive_FileInfo(@myFileinfo)
Debug "Filename: " + myFileinfo\FileName
Debug "Comp Size: " + Str(myFileinfo\CompressedSize)
Debug "UnComp Size: " + Str(myFileinfo\unCompressedSize)
r = PureZIPDLL_Archive_FindNext()
count + 1
Wend
PureZIPDLL_Archive_Close()
EndIf
ProcedureReturn 1 ;<---------- Error occurs here
EndProcedure
Debug GetZIPinfo(myZIP)
Code: Select all
Filename: image0.png
Comp Size: 18858
UnComp Size: 25222
Filename: image1.png
Comp Size: 22287
UnComp Size: 24921
Filename: image2.png
Comp Size: 24254
UnComp Size: 26375
Filename: image0.bmp
Comp Size: 26241
UnComp Size: 30054
Filename: image1.bmp
Comp Size: 23821
UnComp Size: 30054
Filename: image2.bmp
Comp Size: 26060
UnComp Size: 30054
also, not looping produces the same error.
Code: Select all
XIncludeFile "PureZIP_DLL_2_INCLUDE.pb"
;open existing
Define MyZIP.s = "C:\" + "test.zip"
Procedure.i GetZIPinfo(zipPath.s) ;This requires the PureZIP userlib
;Returns array of the filenames contained in zip archive
Protected myFileInfo.PureZIP_FileInfo
Protected r.l, count.l
If PureZIPDLL_Archive_Read(zipPath)
r = PureZIPDLL_Archive_FindFirst()
count = 0
While r = #UNZ_OK
PureZIPDLL_Archive_FileInfo(@myFileinfo)
Debug "Filename: " + myFileinfo\FileName
Debug "Comp Size: " + Str(myFileinfo\CompressedSize)
Debug "UnComp Size: " + Str(myFileinfo\unCompressedSize)
Break
r = PureZIPDLL_Archive_FindNext()
count + 1
Wend
PureZIPDLL_Archive_Close()
EndIf
ProcedureReturn 1 ;<---- error still occurs here
EndProcedure
Debug GetZIPinfo(myZIP)