отправка GET location

[cometa]

Всем привет
Никак не могу отправить запрос после получения Location
Точнее видимо что-то с его получением
Помогите отправить ГЕТ запрос сюда
https://accounts.ea.com/connect/auth..._RU&nonce=3199
С помощю synapse
Как только сделаете гет на эту страницу пойдет редирект
Мне нужно чтоб после этого запроса пошел еще один гет запрос по этому редиректу

[Dmitry33RU]

uses
clHTTPSendEx

var
http: THTTPSendEx;
begin
http:=THTTPSendEx.create;
try
http.get('https://accounts.ea.com/connect/auth..._RU&nonce=3199');
if http.IsRedirect then begin
http.Headers.Clear;
http.get(http.Location);
end;
finally
http.free;
end;
end;

[cometa]

то есть

if  http.HTTPMethod('GET','https://accounts.ea.com/connect/auth?client_id=ORIGIN_PC&        
             scope=offline%20basic.identity%20basic.identity.write%20basic.persona
            %20openid%20signin%20search.identity
            %20basic.entitlement&response_type=code%20id_token&redirect_uri=qrc:///html/login_successful.html&display=
                  origin_client&locale=ru_RU&nonce=3199')then
    begin
    if HTTP.ResultCode=302 then
    begin
    тут нужно получить/обработать редирект и сделать запрос к нему
  http.httpmethod('GET', РЕДИРЕКТ);
    end;

[cometa]

Сообщение от Dmitry33RU

uses
clHTTPSendEx

var
http: THTTPSendEx;
begin
http:=THTTPSendEx.create;
try
http.get('https://accounts.ea.com/connect/auth..._RU&nonce=3199');
if http.IsRedirect then begin
http.Headers.Clear;
http.get(http.Location);
end;
finally
http.free;
end;
end;

Этот вариант не работает.

[Dmitry33RU]

Сообщение от cometa

Этот вариант не работает.

что именно не работает? Ошибка какая-то или редирект не происходит? (просто код писал прямо здесь)

[cometa]

Сообщение от Dmitry33RU

что именно не работает? Ошибка какая-то или редирект не происходит? (просто код писал прямо здесь)

А все порядок
просто вы отравляли HEAD метод а нужно было GET
И да чистили куки потом отправляли гет на редирект
Но все же спасибо за помощь
Правильно так

var
http: THTTPSendEx;
begin
http:=THTTPSendEx.create;
try

http.HTTPMethod('GET','https://accounts.ea.com/connect/auth?client_id=ORIGIN_PC&scope=offline%20basic.identity%20basic.identity.write%20basic.persona%20openid%20signin%20search.identity%20basic.entitlement&response_type='+'code%20id_token&redirect_uri=qrc:///html/login_successful.html&display=origin_client&locale=ru_RU&nonce=3199');
if http.IsRedirect then begin
http.HTTPMethod('GET',http.Location);
http.Headers.Clear;
end;
finally
http.free;
end;
end;

Автор - Dmitry33RU