[MrDiG]

Есть код авторизации.

...
HTTP.AllowCookies:=true;
HTTP.HandleRedirects:=true;
HTTP.RedirectMaximum:=2;
HTTP.CookieManager:=CookieManager;
HTTP.ProxyParams.ProxyPort:=80;
...

После первого редиректа - страница отдаёт нужные куки, с которыми бы хотелось поработать. Они просто необходимы в дальнейшем.
Но успешная авторизация получается при двух редиректах. А после второго CookieManager перезаписывается.

Как сохранить куки после первого редиректа?
В частности нужно:
mystr:=Copy(s,AnsiPos('PHPSESSID=',s)+10,32);
где s - искомые куки.

[NumLock]

у TIdHTTP есть событие OnRedirect. в нем и отлавливай Cookie.

[MrDiG]

Так?

Код:

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: string;
  var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
var 
mystr,s:string;
begin
mystr:=Copy(s,AnsiPos('PHPSESSID=',s)+10,32);
end;

А не ли варианта вроде:
if HTTP.OnRedirect then
...

?

[NumLock]

типа этого:

Код:

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
var
  i: Integer;
  s: String;
begin
  for i:=0 to IdHTTP1.CookieManager.CookieCollection.Count-1 do
  begin
    s:=IdHTTP1.CookieManager.CookieCollection.Items[i].Domain;
    s:=IdHTTP1.CookieManager.CookieCollection.Items[i].CookieName;
    s:=IdHTTP1.CookieManager.CookieCollection.Items[i].Value;
  end;
end;

[Max Yam@il]

Я не понял че за коды куда их вписывать помогите плииз

[bulldog]

есть не плохой компанент http://kdcodes.blogspot.com/p/idhttpex.html