Регистрация uCoz

[Pearl777]

Подскажите как связать куки с idhttp.
Добавил IdCookieManager, прописал на кнопку регистрации вот такой код.

PHP код:

IdHTTP1.CookieManager:=IdCookiemanager1;
IdHTTP1.AllowCookies:=true;
IdHTTP1.HandleRedirects:=true; 


Но при просмотре сниффером куки не отправляется.

[Pearl777]

Ну хоть кто нибудь знает как решить эту проблемму? Как только не пробывал, все равно куки не отправляет.

[Lardes]

У некоторых инди есть проблемы с куками. Уже в который раз говорю: забудьте про Indy! Переходите на Synapse!

[Pearl777]

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

У некоторых инди есть проблемы с куками. Уже в который раз говорю: забудьте про Indy! Переходите на Synapse!

Я поставил Synapse, но только никак не пойму, как подключить куки через него.

[Lardes]

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

Я поставил Synapse, но только никак не пойму, как подключить куки через него.

Они сами подключаются. Чтобы просмотреть куки:

var
  HTTP: THTTPSend;
begin
  { ... } 
  ShowMessage(HTTP.Cookies.Text);
  { ... }

[Lardes]

Также есть отличный мануал по этой библиотеке http://www.webdelphi.ru/2011/07/bibl...-httpsend-pas/

[Pearl777]

Я уже поставил indy 10, куки отправляются. Но теперь нашлась новая проблемма. Капча не выводится в Image. Проверил сниффером, запрос на получение капчи идет, приходит ссылка на неё, но в Image не отображается. В чем теперь может быть проблема?

[diablist]

Выложите код, тогда можно будет смотреть, причины разные бывают. Скорее из-за неверной работы с потоком картинки.

[Pearl777]

PHP код:

var 
 html:WideString; 
 Stream:TStream; 
 gif:TGIFimage; 
begin 
    html:=IdHTTP1.Get('http://freezly.ru/index/3'); 
    Delete(html,1,pos('<img alt="" style="margin:0;padding:0;border:0;cursor:pointer;" id="secImg" align="absmiddle" src="',html)+length('<img alt="" style="margin:0;padding:0;border:0;cursor:pointer;" id="secImg" align="absmiddle" src="')); 
    Delete(html,pos('" onclick',html),length(html)); 
    Stream:=TStringStream.Create(IdHTTP1.Get('http://freezly.ru/'+html)); 
    Gif:=TGIFImage.Create; 
    Gif.LoadFromStream(Stream); 
    Image1.Picture.Assign(Gif.Bitmap); 
    Gif.Free; 
    Stream.Free; 
     end; 


[Lardes]

var  
 html:WideString;  
 Stream:TStream;  
 gif:TGIFimage;  
begin  
  { ... }
    Stream := TStringStream.Create(IdHTTP1.Get('http://freezly.ru/'+html));  

  { ... }

Ошибку заметили? Не создавайте разные классы.

var  
 html:WideString;  
 Stream:TMemoryStream;  
 gif:TGIFimage;  
begin  
  { ... }
    Stream := TMemoryStream.Create;  
    IdHTTP1.Get('http://freezly.ru/'+html, Stream);

  { ... }

P.S. Ссылка на картинку правильную получаете?