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

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

idhttp.post + мульпартформдата [D7, WinXP]

nes_ ©   (2007-01-29 22:11:00) 

Вообще,суть задачи в том,чтобы зайти под логином пользователя на www.limpa.ru,

<FORM NAME=loginform action= http://www.limpa.ru/login.phpmethod=post>
<TD><INPUT class=in1 maxLength=20 size=10 name=username></TD>
<TD><INPUT class=in1 type=password maxLength=20 size=10 name=password></TD>
<TD><INPUT type=hidden value=login name=act> <INPUT class=in1 onmouseover="this.classNAME='in2';" onmouseout="this.classNAME='in1'" type=submit value="Login!"></TD>
форма на сайте...
сам код:

var
fm:Tidmultipartformdatastream;
begin
fm:=Tidmultipartformdatastream.Create;
fm.AddFormField('username',edit1.Text);
fm.AddFormField('password',edit2.Text);
fm.AddFormField('act','login');
memo1.text:=idhttp1.Post(' http://www.limpa.ru/login.php',fm);

но возвращается код страницы,где просят зарегица,почему не выходит зайти в пользовательскую анкету?

---

nes_   (2007-01-30 16:18:00) [1]

спасибо SlymRO, помогло,всё работает;)

---

SlymRO   (2007-01-30 08:50:00) [2]

var
fm:TStringList;
begin
fm:=TStringList.Create;
try
fm.Value['username']:=edit1.Text;
fm.Value['password']:=edit2.Text;
fm.Value['act']:='login';
memo1.text:=idhttp1.Post(' http://www.limpa.ru/login.php',fm);
finally
fm.Free;
end;

---

SlymRO   (2007-01-30 08:48:00) [3]

nes_ ©   (29.01.07 22:11)
<FORM NAME=loginform action= http://www.limpa.ru/login.phpmethod=post>
про мультипарт ни слова... пробуй обычный (не multipart) пост

---

Наверх