tidhttp的post问题？

qqfqqf 2004-07-18 01:36:34

我在网上下的一个源码（已经作了删减)，用了indy控件的IdCookieManager和
IdHTTP。有点问题请求指点

void __fastcall TForm1::IdCookieManager1NewCookie(TObject *ASender,
TIdCookieRFC2109 *ACookie, bool &VAccept)
{
VAccept=true;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
String UserName=Edit2->Text.Trim();
String UserPass=Edit3->Text.Trim();
TStringList *sl=new TStringList();
sl->Add("username="+UserName);
sl->Add("password="+UserPass);
sl->Add("submit=登录");
TStringStream * returnStr = new TStringStream("");
try
{
IdHTTP->Post(LoginUrl,sl,returnStr);
}
catch(...)
{
}
//DONE:验证登录是否成功
String SendResult=returnStr->DataString;
RichEdit1->Lines->Add(SendResult);
Edit1->Text=AnsiString(IdHTTP->ResponseCode);

if(SendResult.AnsiPos("欢迎您来到网易"))
//IdHTTP->ResponseCode返回的是200，说明登录成功，但是没有"欢迎您来到网易"
//的提示语句，而通过163.com网站登陆后，在页面上有"欢迎您来到网易"，为何？

{
Edit1->Text="登录成功";

}

sl->Clear();
sl->Add("send=1");
sl->Add("phone="+MemoPhone->Text);//手机号
sl->Add("message="+MemoMsg->Text);//短消息
try
{
IdHTTP->Post(SendSmsUrl,sl,returnStr);
}
catch(...)
{
//
}
SendResult=returnStr->DataString;
RichEdit1->Lines->Add(SendResult);
Edit1->Text=AnsiString(IdHTTP->ResponseCode);
//出现302 - Moved Temporarily错误，无法发送短消息
delete returnStr;
delete sl;
sl=NULL;

}

不知以上什么原因造成，另外是否IdHTTP的Request属性还需要特别设置

...全文

597 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

qqfqqf 2004-07-18

打赏
举报

再顶一把

qqfqqf 2004-07-18

打赏
举报

帮忙呀

qqfqqf 2004-07-18

打赏
举报

谢谢，后面的为什么无法发送呀？

myy 2004-07-18

打赏
举报

呵呵：

<META HTTP-EQUIV=REFRESH CONTENT="0;URL=Main.jsp?username=13653722563"></HEAD>

知道这句是什么意思么？

如果是IE打开页面，
这句是告诉IE：在0秒种后页面转向“Main.jsp?username=13653722563”

你用IdHTTP获取到了页面内容，但IdHTTP并不会象IE一样，解释页面的内容啊。

qqfqqf 2004-07-18

打赏
举报

是文字,。登陆后RichEdit1中显示的数据如下：
<html><head>
<META HTTP-EQUIV=REFRESH CONTENT="0;URL=Main.jsp?username=13653722563"></HEAD>
<body></body></html>
为何<body>和</body>之间没有内容呢？

myy 2004-07-18