idhttp.post + мульпартформдата

← →
nes_ © (2007-01-29 22:11) [0]

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

<FORM NAME=loginform action=http://www.limpa.ru/login.php method=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);

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

← →
SlymRO (2007-01-30 08:48) [1]

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

← →
SlymRO (2007-01-30 08:50) [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, помогло,всё работает;)

idhttp.post + мульпартформдата Найти похожие ветки