Interested in a training?
Contact us for a trainings and events or meet us at Real World in Orlando, Florida.

MBS Real Studio Plugin Tutorial Videos

CURLUpload 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 u as Upload
    
    if curlmbs.LoadLibrary("libcurl.dll") then
      ' ok
    else
      MsgBox "Failed to load the CURL library."
    end if
    
    u=new upload
    u.Buffer="Hello World!"
    
    u.OptionUpload=true
    u.Optionurl="sftp://monkeybreadsoftware.de/test.txt"
    u.OptionUserPassword="your name and password"
    
    dim e as integer
    
    e=u.Perform
    
    Title=Str(e)
    
  End Sub
End Class

Class Upload
Inherits CURLMBS
  // Properties
  Dim Buffer As string
  
  
  
  // Event implementations
  Function Read(count as integer) As string
    dim s as string
    
    s=leftb(buffer,count)
    
    buffer=midb(buffer,count+1)
    
    Return s
    
  End Function
End Class

All movies

Loading


Links
MBS Real Studio Plugins - Christians Software aus Nickenich