idHTTP и яваскрипт проверки

[_ZixeL_]

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

Вот вариант на synapse (+старый idhttp на другой кнопке). Правда, я сам не понял, как его заставил работать

Вариант с synapse работает замечательно.
Теперь придётся разбираться с synapse. А то никогда не работал с ним.
Спасибо огромное за помощь.

[_ZixeL_]

Блин, ребят. Может кто-то сможет еще подсказать как это реализовать с idHTTP?
а то библиотека synapse немного не подходит. Да и нет времени его изучать(

[BDA]

Попробуйте:

procedure TForm1.Button2Click(Sender: TObject);
var
  s: TStringlist;
  k: integer;
  str: string;
begin
  s := TStringlist.Create;
  s.add('action=qaptcha');
  IdHTTP1.httpoptions := [];
  IdHTTP1.Get('http://rus-minecraft.ru/register/');
  IdHTTP1.Post('http://rus-minecraft.ru/index.php?qaptcha/post', s);
  s.Clear;
  s.add('username=' + Edit1.text + '&email=' + Edit2.text +
    '&password=1&password_confirm=1&dob_month=1&dob_day=1&dob_year=1990&gender=&timezone=Asia/Magadan&iQapTcha=&agree=1&_xfToken=');
  str := IdHTTP1.Post('http://rus-minecraft.ru/register/register', s);
  if Pos('class="baseHtml errors"', str) > 0 then
  begin
    k := Pos('class="baseHtml errors"', str) +
      length('class="baseHtml errors"');
    Delete(str, 1, k);
    k := Pos('</div>', str) - 1;
    showmessage(copy(str, 1, k));
  end
  else
    showmessage('OK');
  s.Free;
end;

Мне помогло в Delphi XE3.
Только могут быть проблемы со спецсимволами (их нужно кодировать).

[_ZixeL_]

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

Мне помогло в Delphi XE3.
Только могут быть проблемы со спецсимволами (их нужно кодировать).

Всё та же ошибка
Почему у Вас работает, а у меня нет?
Может версия indy разная у нас?

[BDA]

Может версия indy разная у нас?

Может быть.
У меня и в Delphi 2010 и в Delphi XE3 стоит Indy 10 "из коробки" (сам не менял).

Update 23:15
Только что узнал, как посмотреть более точно версию:
Delphi 2010 - 10.5.5
Delphi XE3 - 10.5.9.0

[_ZixeL_]

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

Может быть.
У меня и в Delphi 2010 и в Delphi XE3 стоит Indy 10 "из коробки" (сам не менял).

У меня 10.5.7 в Delphi XE 2011

[_ZixeL_]

Неужели никто больше не знает как решить проблему?

[_ZixeL_]

Всё, разобрался. Тему можно закрыть. Всем большое спасибо)

[BDA]

А в чем оказалась причина? Интересно же.

[_ZixeL_]

При заходе на страницу регистрации, сервер выдавал xf_session. Потом с этим xf_session делаем ПОСТ запрос на каптчу, где каптча выдавала PHPSESSID.
Далее ПОСТ запрос на регистрацию должен был быть с PHPSESSID и xf_session. Но кукименеджер почему-то передавал только PHPSESSID.

В общем, не знаю правильно-ли это. Но всё работает)
Вот код:

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
    regist:string;
    param, kaptcha:TStringList;
begin
param:=TStringList.Create;
kaptcha:=TStringList.Create;

try
  kaptcha.Values['action']:='qaptcha';
  idHTTP1.Post('http://rus-minecraft.ru/index.php?qaptcha/post', kaptcha);

  idHTTP1.Request.CustomHeaders.Add('Cookie: '+ IdCookieManager1.CookieCollection.Items[i].CookieText);
  idHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.11';
  idHTTP1.Request.Host:='rus-minecraft.ru';
  idHTTP1.Request.Accept:='text/html, */*';
  idHTTP1.Request.AcceptEncoding:='gzip, deflate';
  idHTTP1.Request.Connection:='Keep-Alive';
  idHTTP1.Request.ContentType:='application/x-www-form-urlencoded';

  param.Add('username=' + Edit1.text + '&email=' + Edit2.text + '&password='+ Edit3.Text + '&password_confirm='+ Edit3.Text+
  '&dob_month=1&dob_day=1&dob_year=1990&gender=&timezone=Asia/Magadan&iQapTcha=&agree=1&_xfToken=');

  regist:=idHTTP1.Post('http://rus-minecraft.ru/register/register', param);

finally
  param.Free;
  kaptcha.Free;
end;