CURLUpload Source

Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/ 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
MsgBox "Failed to load the CURL library."
end if

u=new upload
u.Buffer="Hello World!"

u.OptionUserPassword="your name and password"

dim e as integer



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



Return s

End Function
End Class

Watch other Xojo videos:

ThumbnailMBS Xojo Plugin, June 2021 News


27:58 minutes
ThumbnailMBS Xojo Plugins 21.1


23:12 minutes
ThumbnailInstalling a Xojo Web App Server


28:19 minutes
ThumbnailMBS Plugin Installation Win


22:03 minutes
ThumbnailMBS Plugin Installation Mac


25:17 minutes
ThumbnailXDC 2020 MBS Plugins Presentation


38:59 minutes

MBS Xojo tutorial videos

Start Chat