Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.03.2009, 21:40   #11
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Посмотрел. Вот код метода:
Код:
procedure TForm15.btn1Click(Sender: TObject);
var s:tstringlist;
f:tfilestream;
begin
http.Get('http://kinozal.in.ua/admin.php');
f:=TFileStream.Create('c:\111.html',fmCreate);
s:=tstringlist.Create;
try
s.Add('subaction=dologin');
s.Add('username=test');
s.Add('password=1234');
http.Post('http://kinozal.in.ua/admin.php',s,f);
finally
f.Free;
s.Free;
end;
end;
Самое главное вот описание объекта Idhttp:
Код:
  object http: TIdHTTP
    MaxAuthRetries = 5
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.Connection = 'keep-alive'
    Request.ContentLength = -1
    Request.ContentType = 'application/x-www-form-urlencoded'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.Referer = 'http://kinozal.in.ua/admin.php'
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoKeepOrigProtocol, hoForceEncodeParams]
    CookieManager = ck1
    Left = 56
    Top = 136
  end
  object ck1: TIdCookieManager
    Left = 40
    Top = 200
  end
Проект в вложении.
Использовал:
Delphi 2009
Indy 10.2.5
Вложения
Тип файла: zip kinozal.zip (360.2 Кб, 19 просмотров)
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 17.03.2009, 04:20   #12
tuftel
 
Регистрация: 13.03.2009
Сообщений: 6
По умолчанию

Огромное спосибо всем кто принимал участие в решении проблеммы, потик можно закрывать.
tuftel вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
IdHTTP и авторизация celovec Работа с сетью в Delphi 4 06.12.2010 21:33
Авторизация через Idhttp xakkkkker Работа с сетью в Delphi 1 08.02.2009 17:10
Авторизация выполена, но с ошибкой(idHTTP) KiDoki Работа с сетью в Delphi 2 06.12.2008 19:45
Прочесс без имени пользователя delphin100 Общие вопросы Delphi 0 29.10.2008 06:45