Swanman's Horizon

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

TTwitterでフォロワーのID一覧を取得する。

var
  api: TTwitterAPI;
  cursor: Int64;
  json: ISuperObject;
  i: Integer;
begin
  api := TTwitterAPI.Create(...);
  // cursorパラメータを省略、もしくは-1を指定すると最初のデータが取得できる
  cursor := -1;
  repeat
    json := SO(api.GetFollowersIds(User('lynatan'), cursor));
    for i := 0 to json.AsObject['ids'].AsArray.Length-1 do
      Memo1.Lines.Add(IntToStr(json.AsObject['ids'].AsArray[i].AsInteger));
    // ID一覧が一度に取得できない場合、次のデータを指すカーソルを取得し、次回のAPI呼び出しでセットする
    cursor := json.AsObject['next_cursor'].AsInteger;
  until cursor = 0;
  ...
end;