Encode image return 0 PB5.2 beta
Posted: Fri Jul 26, 2013 5:28 pm
Can someone tell me why under PB5.11 encodeimage return properly the address
of memory but under PB5.2 beta always return 0.
If *this\Dbase\QuerytblMachineDiagram(MachineId,@machineDiagram)
If machineDiagram\diagram
ImageNr = CatchImage(#PB_Any,machineDiagram\diagram)
If ImageNr
imaged = CreateImage(#PB_Any,ImageWidth(ImageNr),ImageHeight(ImageNr),24) ;,$FFFFFF)
If imaged
StartDrawing(ImageOutput(imaged))
Box(0,0,ImageWidth(ImageNr),ImageHeight(ImageNr),$FFFFFF)
DrawImage(ImageID(ImageNr),0,0)
StopDrawing()
If imaged
*imgbuffer = EncodeImage(imaged,#PB_ImagePlugin_PNG,#PB_Image_FloydSteinberg,8)
MessageRequester("Test line","Memory : " + Str(*imgbuffer))
If *imgbuffer
DoSomething()
; ShowMemoryViewer(*imgbuffer,MemorySize(*imgbuffer))
EndIf
SetGadgetState(*this\GdgtMachImage,ImageID(imaged))
EndIf
EndIf
EndIf
EndIf
EndIf
of memory but under PB5.2 beta always return 0.
If *this\Dbase\QuerytblMachineDiagram(MachineId,@machineDiagram)
If machineDiagram\diagram
ImageNr = CatchImage(#PB_Any,machineDiagram\diagram)
If ImageNr
imaged = CreateImage(#PB_Any,ImageWidth(ImageNr),ImageHeight(ImageNr),24) ;,$FFFFFF)
If imaged
StartDrawing(ImageOutput(imaged))
Box(0,0,ImageWidth(ImageNr),ImageHeight(ImageNr),$FFFFFF)
DrawImage(ImageID(ImageNr),0,0)
StopDrawing()
If imaged
*imgbuffer = EncodeImage(imaged,#PB_ImagePlugin_PNG,#PB_Image_FloydSteinberg,8)
MessageRequester("Test line","Memory : " + Str(*imgbuffer))
If *imgbuffer
DoSomething()
; ShowMemoryViewer(*imgbuffer,MemorySize(*imgbuffer))
EndIf
SetGadgetState(*this\GdgtMachImage,ImageID(imaged))
EndIf
EndIf
EndIf
EndIf
EndIf