MBS Xojo Plugin Tutorial Videos

CURLDownload Source

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = E&xit
  Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
  // Event implementations
  Sub Open()
    dim c as Download
    
    c=new Download
    c.OptionURL="http://monkeybreadsoftware.de/images/logo.jpg"
    
    dim e as integer
    
    e=c.Perform
    
    Backdrop=JPEGStringToPictureMBS(c.buf, true)
    
    Title=Str(e)
  End Sub
End Class

Class Download
Inherits CURLMBS
  // Properties
  Dim buf As string
  
  
  
  // Event implementations
  Function Write(data as string) As integer
    buf=buf+data
    
    Return lenb(data)
    
  End Function
End Class


 

All movies