Hier z.B. Code zum senden eines Tweets (Basic Authentification):
Delphi-Quellcode:
try
IdHTTPTwitter := TIdHTTP.Create;
stURL := '
http://' + username + '
:' + password + '
@twitter.com/statuses/update.xml?status=' + song;
StringList := TStringList.Create;
IdHTTPTwitter.Request.Username := username;
IdHTTPTwitter.Request.Password := password;
IdHTTPTwitter.Request.BasicAuthentication := True;
IdHTTPTwitter.Post(stURL, StringList);
except
on E:
exception do
ShowMessage('
Error : ' + e.
Message);
end;
Leider ist oAuth relativ kompliziert, so dass ich da kein Beispiel zu bringen kann.