Interested in a training?
Contact us for a trainings and events or meet us at Real World in Orlando, Florida.

MBS Real Studio 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 REALbasic Plugins - Christians Software aus Nickenich