(Delphi DLL) Twitter OAuth -- Tweet to Your Own Account

Demonstrates how to send a tweet (status update) to your own Twitter account using pre-known credentials, which includes:

1. Consumer Key
2. Consumer Secret
3. Access Token
4. Token Secret

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpRequest, HttpResponse;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
req: HCkHttpRequest;
resp: HCkHttpResponse;

begin
success := False;

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := CkHttp_Create();

CkHttp_putOAuth1(http,True);
CkHttp_putOAuthVerifier(http,'');
CkHttp_putOAuthConsumerKey(http,'my-consumer-key');
CkHttp_putOAuthConsumerSecret(http,'my-consumer-secret');
CkHttp_putOAuthToken(http,'my-access-token');
CkHttp_putOAuthTokenSecret(http,'my-token-secret');

// Send the same status update as shown in this example:
// https://dev.twitter.com/docs/api/1.1/post/statuses/update

// IMPORTANT: Make sure this app has read/write access.  
// Otherwise it cannot post an update (i.e. tweet) to the Twitter account.

req := CkHttpRequest_Create();
CkHttpRequest_AddParam(req,'status','Maybe he''ll finally find his keys. #peterfalk');

CkHttpRequest_putHttpVerb(req,'POST');
CkHttpRequest_putContentType(req,'application/x-www-form-urlencoded');

resp := CkHttpResponse_Create();
success := CkHttp_HttpReq(http,'https://api.twitter.com/1.1/statuses/update.json',req,resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

if (CkHttpResponse_getStatusCode(resp) = 200) then
  begin
    // Display the JSON response.
    Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));
  end
else
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
  end;

CkHttp_Dispose(http);
CkHttpRequest_Dispose(req);
CkHttpResponse_Dispose(resp);

end;