![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Есть код авторизации.
Цитата:
Но успешная авторизация получается при двух редиректах. А после второго CookieManager перезаписывается. Как сохранить куки после первого редиректа? В частности нужно: mystr:=Copy(s,AnsiPos('PHPSESSID=',s)+10,32); где s - искомые куки. |
#2
|
||||
|
||||
![]() у TIdHTTP есть событие OnRedirect. в нем и отлавливай Cookie.
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
![]() Так?
Код:
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 ... ? |
#4
|
||||
|
||||
![]() типа этого:
Код:
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; Пишу программы за еду. __________________ |
#5
|
|||
|
|||
![]() Я не понял че за коды куда их вписывать помогите плииз
![]() |
#6
|
|||
|
|||
![]() есть не плохой компанент http://kdcodes.blogspot.com/p/idhttpex.html
|