Авторизация на сайте и cookie

[Alex2009]

Доброго времени суток уважаемые!
Решил изучить и по ходу дела написать простую программу для авторизации на сайте! Парсил код через HTTP Analyzerstd v6. И так саму авторизацию как написать я разобрался, вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
aut: Tstringlist;
STRone: TStringlist;
begin
aut:=Tstringlist.Create;
STRone := TStringList.Create;
aut.Add('user'+Edit1.Text);
aut.Add('pass'+Edit2.Text);
aut.Add('sublogin=Login');

idhttp1.post('http://91.211.16.141/index.php',aut) ;

if pos('logout',STRone.Text)<>0 then ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');

aut.Free;

end;

Но вот столкнулся с такой проблемой как cookie, сам парсер выдает мне следующее

gcpusername:Xotab
PHPSESSID:vkibrmj0ah2js35gvkhlrbptk4

Но не могу разобраться как же всетаки их получать, пользовался гуглом но все коды для меня не понятны, все же ближе к сути, как получить эти самые cookie, как я понял делается это GET запросом, но вот а дальше как?

[Lesha]

Tcookiemanager кинь на форму и подключи его к idhttp

[Alex2009]

Tcookiemanager есть на форме и подключен к IdHttp1 но не работает авторизация почему то, все запросы я отправляю правильно, куки получается тоже принимаю раз как вы сказали Tcookiemanager подключен к idHttp1 но получаю "Авторизация не удалась"

[Lesha]

хз через FireBug в Firefox с отключенным JS зайди посмотри что там в заголовках браузер шлет и что ему отвечает сервер

[kangreon]

aut.Add('user'+Edit1.Text);
aut.Add('pass'+Edit2.Text);
aut.Add('sublogin=Login');

А вы символ '=' в логине и пароле не пропустили?

'user='+Edit1.Text

[Alex2009]

спасибо, разобрался
всем кто помог отблагодарил, спасибо вам за отзывчивость)

[Alex2009]

Ребят подскажите как парсить страницу, вот у меня есть такой код в котором нужно узнать ip адрес который между тегом <td class=""> бла бла </td>

<td class="usergameipaddress">91.211.16.113:27023</td>

Вот сам код авторизации...

procedure TForm1.Button1Click(Sender: TObject);
var
aut: Tstringlist;
STRone: TStringlist;
s: string;
begin
aut:=Tstringlist.Create;
STRone := TStringList.Create;
aut.Add('user='+Edit1.Text);
aut.Add('pass='+Edit2.Text);
aut.Add('sublogin=Login');

STRone.Text:=idhttp1.post('http://91.211.16.141/index.php',aut) ;
if pos('logout',STRone.Text)<>0 then ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');

aut.Free;
end;

Использовал гугл, но нечего не понял, подскажите код желательно с описанием.

[kangreon]

Для парсинга почитайте про функции Copy Pos и PosEx. Последняя находится в модуле StrUtils. В некоторых случаях может понадобиться и Delete.

Для конкретно вашего примера можно получить данные таким способом.

var
  html: string;
  ip: string;
  i: Integer;
begin
  i := PosEx('class="usergameipaddress"', html);
  i := PosEx('>', html, i) + 1; // Для надежности
  if PosEx('</', html, i) <> 0 then
  begin
    ip := Copy(html, i, PosEx('</', html, i) - i);
  end;

[Alex2009]

Спасибо огромнейшее за помощь, уже не раз выручаете. Да и ваш код более понятливый для меня, чем те что видел в гугле.
Подскажите например мне нужно спарсить еще теги и вытянуть еще некоторые ip как это сделать на одной кнопке?

вот код парсинга

procedure TForm1.Button2Click(Sender: TObject);
var
  ip: string;
  i: Integer;
begin
ip:=IdHTTP1.Get('http://91.211.16.141/system/userservices.php?mode=edit2&opt=edit&ggid=155');
i:=0;
i := PosEx('class="usergameipaddress"', ip);
i := PosEx('>', ip, i) + 1; // Для надежности
if PosEx('</', ip, i) <> 0 then
  begin
    ip := Copy(ip, i, PosEx('</', ip, i) - i);
    memo1.Text:=ip;
  end;
end;

[kangreon]

Просто запустить код парсинга в цикле с условием.

  i := 1;
  while PosEx('class="usergameipaddress"', html, i) <> 0 do
  begin
    i := PosEx('class="usergameipaddress"', html, i);
    i := PosEx('>', html, i) + 1;
    if PosEx('</', html, i) <> 0 then
    begin
      ip := Copy(html, i, PosEx('</', html, i) - i);
      // И добавлять ip адрес куда-нибудь
      Memo1.Lines.Add(ip);
    end
    else
    begin
      Break;
    end;
  end;