Swanman's Horizon

性欲をもてあましつつなんらかの話をするよ。

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メソッドを追加

TwitterAPIを直接呼ぶためのメソッドです。
一応各APIに対応するまでの仮置きのつもりですが、TwitterAPIの追加や廃止が結構あるので結局必要かも。

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;