TTwitter私家版 111106。
ダウンロードはこちらから。
http://twc.xrea.jp/junk/TTwitter/
ユーザータイムラインに対応
オリジナルでは未実装のまま放置されてたTTwitterMultiTimeline.GetTimelineを実装しました。
TTwitter.Timelines.Usersで任意ユーザーのタイムラインを取得できます。
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; Timeline: TTwitterTimeline; begin // 指定したユーザーのツイートをTMemoに表示するサンプル Timeline := Twitter1.Timelines.Users['lynatan']; Timeline.GetTimeline; for i := 0 to Timeline.TweetCount-1 do begin with Timeline[i] do Memo1.Lines.Add(Format('%s: %s', [User.ScreenName, Msg])); end; end;
TTwitter.Requestメソッドを追加
TwitterのAPIを直接呼ぶためのメソッドです。
一応各APIに対応するまでの仮置きのつもりですが、TwitterはAPIの追加や廃止が結構あるので結局必要かも。
uses ..., Twitter_StringComposer, Twitter_superobject; procedure TForm1.Button1Click(Sender: TObject); var URL: string; Params: TTwitterParamFactory; begin // 指定したユーザーをフォローするサンプル URL := 'https://api.twitter.com/1/friendships/create.json'; Params := TTwitterParamFactory.Create; try Params.Add('screen_name', 'lynatan'); Memo1.Text := SO(Twitter1.Request(THttpMethod.POST, URL, Params)).AsJSon(True, False); finally Params.Free; end; end;