[jallvar]

Всем привет.
Вывожу на форму компоненты: куки_менеджер и http
В http свойствах в cookie выставляю добавленный менеджер.
Пытаюсь авторизоваться на сайте, мне выбивает, что у меня не включены cookies.
Как быть

[NumLock]

включи куки

[jallvar]

я бы и рад. но чайник. не подскажите как это сделать?

[Alegun]

Оффтоп:

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

включи куки

Краткость сестра таланта

Код:

var
HTTP: TIdHTTP;
SP: String;
CM: TidCookieManager;
Data:Tstringlist;
begin
Data:= TStringList.Create;
CM:= TidCookieManager.Create(Http);
Http.AllowCookies:= true;
Http.CookieManager:= CM;
Http.HandleRedirects:= true;

Http.Request.UserAgent:= 'Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.10.229 Version/11.61';
Http.Request.Accept:= '*/*';
Http.Request.AcceptLanguage:= 'ru-RU,ru;q=0.9,en;q=0.8';


Data.Add('username='); // Логин
Data.Add('password='); // Пароль

try
SP:= Http.Post('http://*/*login', Data);
except
end;
 if pos('reg.php',SP) <> 0 then
  ShowMessage('Неверный логин или пароль')
 else
  ShowMessage('Всё нормально, авторизовались');
Data.Free;
// Soft.Bz

[jallvar]

Видел этот код уже на паблике.
Не работает!
Не хочет! Все пишет и пишет. У вас не включены cookie!

[Alegun]

Телепаты у нас в загугл ушли, как авторизуетесь, код покажите

UPDsm

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

включи куки

...в браузере

[jallvar]

http://i.imgur.com/ZidP1AC.png

Код:

begin
  HTTP:=TIdHTTP.Create(nil); 
  with HTTP do begin
    AllowCookies:=true; 
    HandleRedirects:=false; 
    ReadTimeout:=10000; 
    ProxyParams.ProxyServer:=proxy; 
    ProxyParams.ProxyPort:=StrToInt(pport); 

  end;

  //формируем параметры для POST запроса
  Send:=TStringList.Create;
  Send.Add('log='+login);
  Send.Add('pwd='+passw);
  Send.Add('testcookie=1');
  Send.Add('redirect_to='+url.Text+'/wp-admin/');
  Send.Add('wp-submit=Войти');
  try 
    HTTP.Request.Referer:=url.Text+'/wp-login.php'; /
    pg:=HTTP.Post(url.Text+'/wp-login.php', send);
    HTML:=HTTP.Get(url.Text+'/wp-admin/');
    if(pos('wp-admin/post-new.php', HTML) <> 0) then
    result:=1
    else result:=2;
  except
    result:=0;
  end;
  LogMemo.Lines.Add(pg);

  Send.Free; 
  HTTP.Free; 
end;

[Alegun]

Уже было такое у нас, и не у нас

[NumLock]

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

Видел этот код уже на паблике.
Не работает!
Не хочет! Все пишет и пишет. У вас не включены cookie!

повторю: включи куки - сделай руками!!!

Код:

AIdHTTP.Request.CustomHeaders.Text:='Cookie: '+ACookie;

[jallvar]

Проблема в том, что при отправке post мне пишет проблему с куками. а после мне нет смысла их принимать.

[NumLock]

так после GET их получишь скорее всего

[Евгений79]

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