CURLUpload Source


Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/macsw.de/webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244
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



Watch other Xojo videos:

ThumbnailMBS Xojo Plugin, June 2021 News

(English)

27:58 minutes
ThumbnailMBS Xojo Plugins 21.1

(English)

23:12 minutes
ThumbnailInstalling a Xojo Web App Server

(English)

28:19 minutes
ThumbnailMBS Plugin Installation Win

(English)

22:03 minutes
ThumbnailMBS Plugin Installation Mac

(English)

25:17 minutes
ThumbnailXDC 2020 MBS Plugins Presentation

(English)

38:59 minutes




Links
MBS Xojo tutorial videos

Start Chat