http://gambaswiki.org/bugtracker/edit?object=BUG.1044&from=L21haW4-
Comment #1 by Fabien BODARD:
In fact you can check if "myImage" contain an image object :
Public Sub Form_Open()
Dim myimage As New Image
Dim mydata As String
Dim tmpfile As String = "/tmp/myimage.jpg"
myimage.Resize(100, 100)
myimage.Fill(Color.black)
myimage.Save(tmpfile)
mydata = File.Load(tmpfile)
mydata = Left(mydata, Len(mydata) - 100)
File.Save(tmpfile, mydata)
Try myimage = Image.Load(tmpfile)
If Error Then
Debug "Error while loading the image"
Endif
if not myImage then Debug "Image is not loaded"
End
Is this way solve your problem ?
Fabien BODARD changed the state of the bug to: NeedsInfo.
------------------------------------------------------------------------------
Developer Access Program for Intel Xeon Phi Processors
Access to Intel Xeon Phi processor-based developer platforms.
With one year of Intel Parallel Studio XE.
Training and support from Colfax.
Order your platform today.http://sdm.link/xeonphi
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
