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

Reply via email to