Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MBS Xojo Plugin Tutorial Videos

CURLTwitter Source

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

Class Window1
Inherits Window
// Controls
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
Sub TextChange() Handles Event
info.text=str(140-Message.text.len)

End Sub
End ControlInstance
ControlInstance
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim c as new MyCURL

c.OptionURL="http://twitter.com/statuses/update.xml"
c.OptionUserPassword=Username.text+":"+password.text
c.optionpost=true
c.OptionPostFields = "status="+Message.text

dim e as integer = c.Perform

if e<>0 then
MsgBox "Error: "+str(E)
end if

End Sub
End ControlInstance
End Class

Class MyCURL
Inherits CURLMBS
// Event implementations
Function Write(data as string) As integer
System.DebugLog data
Return lenb(data)

End Function
End Class


All movies




Links
MBS Xojo PDF Plugins