Редирект и параметры в ссылке

[Erstown]

[Ссылки могут видеть только зарегистрированные пользователи. ]
Сама ссылка редиректа выглядит так:

https://oauth.vk.com/blank.html#access_token="токен"&expires_in=0&user_id="Айди"

Каким образом можно ее отловить?

[metraz]

в смысле как отловить? ты ж уже нашел куда редирект пошел

[NebesaBag]

респонсы читать, наверняка там ссылка закралась, или часть её

[Erstown]

Цитата: Сообщение от NebesaBag респонсы читать, наверняка там ссылка закралась, или часть её

Уже решил

procedure getParams(url: string);
begin
  access_token := url;
  Delete(access_token, 1, pos('#access_token=', access_token) + length('#access_token=') - 1);
  Delete(access_token, pos('&', access_token), length(access_token));
  user_id := url + '"';
  Delete(user_id, 1, pos('&user_id=', user_id) + length('&user_id=') - 1);
  Delete(user_id, pos('"', user_id), length(user_id));
end;

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: string;
  var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
begin
  if pos('https://oauth.vk.com/blank.html', IdHTTP1.Response.Location) <> 0 then
  begin
    getParams(IdHTTP1.Response.Location);
    ShowMessage('access_token: ' + access_token + ' | ' + 'user_id: ' + user_id);
  end;
end;