| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

http get post

Аврам ©   (2008-10-21 22:14:00) 

пытаюсь пройти авторизацию и получить код страницы.
var
 i:integer;
 s:string;
begin
   lData := TStringList.Create;
   http := TIdHTTP.Create(nil);
   HTTP.HandleRedirects := True;
   HTTP.ProtocolVersion := pv1_0;
   HTTP.ProtocolVersion := pv1_0;
   HTTP.Request.BasicAuthentication := True;

         lData.Clear;
         try
           for i:=0 to Memo2.Lines.Count - 1 do
           begin
             lData.Add(memo2.Lines.Strings[i]);
           end;
           HTTP.ProxyParams.ProxyServer := '127.0.0.1';
           HTTP.ProxyParams.ProxyPort := 8888;
           try
           HTTP.Post('site', lData);//
           s := http.Get('site');
           except
           end;
           memo1.Lines.Add(s);
         finally
         end;
    ldata.free;

в мемо2:
email=mocia@mail.ru
pass=timatima

кнопка вход имеет ссылку на javascript:document.login.submit()
как послать submit?

---

Аврам   (2008-10-21 23:05:00) [1]

не нашел функцию

---

DVM   (2008-10-21 22:19:00) [2]

> кнопка вход имеет ссылку на javascript:document.login.submit()
> как послать submit?

посмотреть URL в функции submit()

---

Наверх