版主：
*ST右安龙
*ST右安龙
按主题
按用户名
按昵称
按相册
主题:Delphi IDHTTP.post
认证会员 我是这么写的但是登录不上去不知道为什么？大家帮我看看。或者大家有什么更好的方法也可以
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
data.AddFormField('tbUserName','username');
data.AddFormField('tbPassword','******');
cxMemo1.Lines.Text := Utf8ToAnsi(IdHTTP1.Post('http://passport.cnblogs.com/login.aspx';, data));
finally
data.Free;
end;
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
data.AddFormField('tbUserName','username');
data.AddFormField('tbPassword','******');
cxMemo1.Lines.Text := Utf8ToAnsi(IdHTTP1.Post('http://passport.cnblogs.com/login.aspx';, data));
finally
data.Free;
end;
-------------------------------------------------------------------------------------------
春哥纯爷们，铁血真汉子，人民好兄弟，父亲好儿子，胸口碎大石，双拳能站人，双臂能过马，菊花开瓶盖，夜御百女枪不倒，菊花百战色仍红。
发表于:2009-06-27 00:46:34
推荐：【模拟炒股】港股交易比赛_港股通
...楼主...
47
0
来自：上海
注册：2009-05-12
发帖：0＋28
注册：2009-05-12
发帖：0＋28
var
data:Tstringlist;
str:Tstringstream;
begin
data:=Tstringlist.create(nil);
str:=Tstringstream.create();
data.add('name=XXX');
data.add('pwd=xxxx');
idhttp.pos('http://xxx',data,str);
memo.text:=str.datastring;
end;
data:Tstringlist;
str:Tstringstream;
begin
data:=Tstringlist.create(nil);
str:=Tstringstream.create();
data.add('name=XXX');
data.add('pwd=xxxx');
idhttp.pos('http://xxx',data,str);
memo.text:=str.datastring;
end;
-------------------------------------------------------------------------------------------
世人笑我太疯癫，我笑世人看不穿。不见武林豪杰墓，无花无酒锄作田。
发表于:2009-08-27 16:17:49
推荐：S*H*E你是卖艺还是卖色！
...第1楼...
回复主题 [ 返回Delphi ]  |
|
|---|---|
| 主题： | Delphi IDHTTP.post |
手机看宽带山
