VPF::Не выходит залогинеться на форуме

Digit

Дата 5.3.2007, 19:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.7.2005

Репутация: нет
Всего: нет

Использую IdHTTH.
Нужно залогинеться на сайте www.torrents.ru и перейти на страницу "http://torrents.ru/forum/profile.php?mode=viewprofile&u=<число>"
Делаю так:

Код


procedure TForm1.GetDataFromSite;
var
  lPos, i: integer;
  str, lRes: string;
  f: TextFile;
  s: TStringList;
begin
lRes := '';
with IdHTTP1 do begin
  Host := 'www.torrents.ru';
  Port := 80;
  Connect;
  try
    s:=TStringList.Create;
    s.Values['login_username']:='NICK';
    s.Values['login_password']:='password';
    Memo1.Text:=Post('http://torrents.ru/forum/login.php',s);
    s.Free;
    s:=TStringList.Create;
    s.Values['mode']:='viewprofile';
    s.Values['u']:=UIN.Text;
    lRes := Post('http://torrents.ru/forum/profile.php?',s)
  finally
    Disconnect;
  end;
end;
if lRes <> '' then
begin
..............................
end;
end;

Matematik

Дата 5.3.2007, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Кажись не запоминает куки

Добавлено @ 21:02
Давно делал отправку ЛС. Авторизация проходит, но не запоминает куки. Косяк где-то в indy
Весь проект во вложенном файле.

Код


function TFrmSndPrivat.Auth:Boolean;
var s : TStringStream;
    b : Boolean;
    e : Exception;
begin
  AddLog('Авторизация...');
  b := False;
  s := TStringStream.Create('redirect=index.php&login_username='+eLogin.Text+'&login_password='+ePassword.Text+'&login=%C2%F5%EE%E4');
  try
    try
      idHTTP.CookieManager.AddCookie('bb_test=1545107613; path=/forum/; domain=.torrents.ru', 'www.torrents.ru');
      idHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
      idHTTP.Post('http://torrents.ru/forum/login.php', s);
    except
      e := ExceptObject as Exception;
      if e is EIdHTTPProtocolException then
        if (e as EIdHTTPProtocolException).ReplyErrorCode=302 then
          b := True;
    end;
  finally
    idhttp.Request.ContentType := '';
    s.Free;
  end;
  result := b;
end;

Добавлено @ 21:11
Куки не отправляются из-за
if IndyPos(Uppercase(LCookiesByDomain[i]), Uppercase(URL.Host + URL.path)) > 0 then {FLX}
в файле IdCookieManager.pas
не проходит сравнение '.torrets.ru/forum/' и 'torrets.ru/forum/
smile

Это сообщение отредактировал(а) Matematik - 5.3.2007, 21:00

Присоединённый файл ( Кол-во скачиваний: 17 )

send_privat_msg_torrents_ru.zip 10,24 Kb

Digit

Дата 5.3.2007, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.7.2005

Репутация: нет
Всего: нет

Она не работает smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »