Delphi10のhttpコンポーネントを使用してInstagramのフォローリストを取得する方法

この行：

lHTTP.Get('https://www.instagram.com/myusername/following/', TStream(nil));

Get()応答の本文（AResponseContent=nil）を無視するように指示しているのに、Reply変数に新しい応答を割り当てていないためReply、以前のログイン応答の古い値が表示されています。

/followingページのHTMLを取得するには、代わりにこれを使用してください

Reply := lHTTP.Get('https://www.instagram.com/myusername/following/');

ただし、Webブラウザが行う実際のHTTPリクエストを見るとFollowing、プロファイルページのリンクをクリックすると、実際POSTには次のURLにAJAXリクエストが送信され、フォロワーをリストしたJSONドキュメントが受信されます。

https://www.instagram.com/query/

POST本文にクエリ文字列が含まれています。そのAJAXリクエストを複製する必要があります。例：

var
  //...
  userid: string; // <-- add this
begin
  // after your AJAX login...

  lHTTP.Request.UserAgent := 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.76 Mobile Safari/537.36';
  lHTTP.Request.Connection := 'keep-alive';
  lHTTP.Get('https://www.instagram.com/myusername/', TStream(nil));

  cookie := lHTTP.CookieManager.CookieCollection.Cookie['csrftoken', 'www.instagram.com'];
  if cookie <> nil then
    token := cookie.Value
  else
    token := '';

  cookie := lHTTP.CookieManager.CookieCollection.Cookie['ds_user_id', 'www.instagram.com'];
  if cookie <> nil then
    userid := cookie.Value; // <-- add this

  Params.Clear;
  Params.Add('q=ig_user(' + userid + ') {'+LF+
           '  follows.first(10) {'+LF+
           '    count,'+LF+
           '    page_info {'+LF+
           '      end_cursor,'+LF+
           '      has_next_page'+LF+
           '    },'+LF+
           '    nodes {'+LF+
           '      id,'+LF+
           '      is_verified,'+LF+
           '      followed_by_viewer,'+LF+
           '      requested_by_viewer,'+LF+
           '      full_name,'+LF+
           '      profile_pic_url,'+LF+
           '      username'+LF+
           '    }'+LF+
           '  }'+LF+
           '}'+LF);
Params.Add('ref=relationships::follow_list');

lHTTP.Request.CustomHeaders.Values['X-CSRFToken'] := token;
lHTTP.Request.CustomHeaders.Values['X-Instagram-AJAX'] := '1';
lHTTP.Request.CustomHeaders.Values['X-Requested-With'] := 'XMLHttpRequest';
lHTTP.Request.Referer := 'https://www.instagram.com/myusername/';
lHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
lHTTP.Request.UserAgent := 'Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.76 Mobile Safari/537.36';
Reply := lHTTP.Post('https://www.instagram.com/query/', Params);

// process Reply as needed ...

これReplyで、リストの最初の10人のフォロワーを含むJSONを受け取るはずです。