Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.12.2012, 15:09
grib_aga grib_aga вне форума
Прохожий
 
Регистрация: 19.12.2012
Сообщения: 14
Репутация: 10
По умолчанию Помогите разобраться почему не работает программа

Собственно, начал изучать работу с сетью в Дельфи и решил написать программу, проверяющую верно ли указаны данные для авторизации на одном из сайтов по IT.

Код:
  idhttp1.HandleRedirects:=true;
  idHttp1.AllowCookies:=True;
  idhttp1.CookieManager:=IdCookieManager1;
  IdHTTP1.Request.AcceptEncoding:='deflate';
  IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)';
  IdHTTP1.Request.AcceptLanguage := 'ru-RU,ru;q=0.9,en;q=0.8';
  IdHTTP1.Request.Connection := 'keep-alive';
  IdHTTP1.Request.AcceptEncoding:='deflate';


  Data:=TstringList.Create;
  Data.Add('actions=add');
  Data.Add('logines=wormix');
  Data.Add('passwdr=wormix1');
  StrPage:=idhttp1.Post('http://excode.ru/aut.php', Data);
    if Pos('accaunt', StrPage)<>0 then
      Label3.Caption:='Good'
    else Label3.Caption:='Bad';
 Data.Free;

Программа выдаёт всё время бэд. Подозреваю дело в том, что после авторизации на aut.php идёт редирект на index.php, хотя редирект в инди вкл, в общем нз, прошу помощи.

Delphi 7, Indy предустановлена.

Последний раз редактировалось grib_aga, 19.12.2012 в 15:15.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:32.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025