Редирект

[danil123]

При отправке данных происходит редирект. Он может быть редиректом на ошибку или на главную. Мне нужно поймать этот редирект и, если редирект на главную, вывести сообщение об успехе. Как осуществить?

[Пепел Феникса]

с чем работаете?

[Кольша]

var
s:string;
begin
http.HandleRedirects := False;
try              
s:=HTTP.get('http://site.ru');
except                              
if (http.ResponseCode=302) then begin
s:=http.Response.Location;
if s='http://site.ru' then
showmessage('message about win')
else 
showmessage('message about error');
end;
end;

[danil123]

Сообщение от Пепел Феникса

с чем работаете?

Delphi 10 и indy

[danil123]

Сообщение от Кольша

var
s:string;
begin
http.HandleRedirects := False;
try              
s:=HTTP.get('http://site.ru');
except                              
if (http.ResponseCode=302) then begin
s:=http.Response.Location;
if s='http://site.ru' then
showmessage('message about win')
else 
showmessage('message about error');
end;
end;

Спс, думаю как раз то, что нужно.

[danil123]

что за ошибка
socket error#0

[danil123]

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

что за ошибка
socket error#0

дописал строку IdSSLIOHandlerSocketOpenSSL1.SSLOpt ions.Method:=sslvSSLv2;
но теперь ошибка "error connecting with ssl"

[Кольша]

Адрес сайта не подскажете?

[danil123]

Сообщение от Кольша

Адрес сайта не подскажете?

http://store.origin.com

[Кольша]

Возможно у вас нет библеотек для работы с ssl/https?