Xojo Developer Conference
Join us from 25th to 27th April 2018 in Denver.

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




Links
MBS FileMaker Plugins