CURLTwitter 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
// 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



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 PDF Plugins

Start Chat