VPF::TidHTTP и сервер с аутентификацией

dihlofose

Дата 13.4.2006, 16:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Redstorm, спасибо за ответ...
Если возможно, уточни по поводу входа на главную страницу. Как я понял вход осуществляется методом get. Так и сделал, но результат опять такой же. Если несложно, посмотри код, скорее всего я чего-то не догоняю:

Код


var
  LongStr     : AnsiString;
  StringList  : TStringList;
  str         :string;
begin
   with IdHTTP1 do
   begin
     StringList := TStringList.Create;
     Params := TStringStream.Create('');
     StringList.Add('login=Логин');
     StringList.Add('password=Пароль');
     Request.AcceptLanguage := 'ru';
     Request.Referer := 'http://www.rabota.mail.ru';
     Request.ContentType := 'application/x-www-form-urlencoded';
     Request.Connection := 'Close';
     Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; InfoPath.1)';
     Request.Pragma := 'no-cache';
     idHttp1.CookieManager := IdCookieManager1;
     IdHTTP1.Get('http://www.rabota.mail.ru');
     try
       str := IdHTTP1.Post('http://www.rabota.mail.ru/content/account/login/login.html', StringList);
     finally
     begin
       Memo1.Text := str;
       Memo1.Lines.SaveToFile('C:\mail.html');
       StringList.Free;
     end;

  end;

Это сообщение отредактировал(а) Snowy - 13.4.2006, 16:37

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