HTTP POST Twitter Status Update

Demonstrates how to send a status update to Twitter. (i.e. post a tweet)

Download Chilkat HTTP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATHTTPLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
success: Integer;
req: TChilkatHttpRequest;
response: IChilkatHttpResponse;

begin
http := TChilkatHttp.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := http.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

//  Set the login/password for Twitter Authentication:
http.Login := 'myLogin';
http.Password := 'myPassword';

req := TChilkatHttpRequest.Create(Self);
req.AddParam('user','myUsername');
req.AddParam('status','The text of my status update / tweet');

response := http.PostUrlEncoded('http://twitter.com/statuses/update.xml',req.DefaultInterface);
if (response = nil ) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
  end
else
  begin
    if (response.StatusCode = 200) then
      begin
        Memo1.Lines.Add('Tweet Successful!');
      end
    else
      begin
        Memo1.Lines.Add(response.BodyStr);
      end;

  end;

end;