我
我爱大咪咪
Unregistered / Unconfirmed
GUEST, unregistred user!
出现错误
---------------------------
Debugger Exception Notification
---------------------------
Project projects.exe raised exception class EIdHTTPProtocolException with message 'HTTP/1.1 500 Internal Server Error'. Process stopped. Use Step or Run to continue.
POST代码如下:
//不是302重定向问题、HTTP 版本的问题
if Pos('ok',TempData)>0 then
begin
ParamStr.Clear;
ParamStr.Add('TextBoxUserName='+RegPackets.TextBoxUserName);
ParamStr.Add('TextBoxPassword='+RegPackets.TextBoxPassword);
ParamStr.Add('TextBoxPasswordAff='+RegPackets.TextBoxPasswordAff);
ParamStr.Add('TextBoxEMail='+RegPackets.TextBoxEMail);
ParamStr.Add('RadioButtonListSex='+RegPackets.RadioButtonListSex);
ParamStr.Add('TextboxRecomUserName='+RegPackets.TextboxRecomUserName);
ParamStr.Add('TextGpic='+RegPackets.TextGpic);
ParamStr.Add('tk='+RegPackets.tk);
ParamStr.Add('submitsign='+RegPackets.submitsign);
ParamStr.Add('fromhost='+RegPackets.fromhost);
ParamStr.Add('backurl='+RegPackets.backurl);
try
TempData := _HTTP.Post(HeXunUrl[2],ParamStr);
_DEBUG(TempData);
except
_DEBUG('失败...');
end;
end;
---------------------------
Debugger Exception Notification
---------------------------
Project projects.exe raised exception class EIdHTTPProtocolException with message 'HTTP/1.1 500 Internal Server Error'. Process stopped. Use Step or Run to continue.
POST代码如下:
//不是302重定向问题、HTTP 版本的问题
if Pos('ok',TempData)>0 then
begin
ParamStr.Clear;
ParamStr.Add('TextBoxUserName='+RegPackets.TextBoxUserName);
ParamStr.Add('TextBoxPassword='+RegPackets.TextBoxPassword);
ParamStr.Add('TextBoxPasswordAff='+RegPackets.TextBoxPasswordAff);
ParamStr.Add('TextBoxEMail='+RegPackets.TextBoxEMail);
ParamStr.Add('RadioButtonListSex='+RegPackets.RadioButtonListSex);
ParamStr.Add('TextboxRecomUserName='+RegPackets.TextboxRecomUserName);
ParamStr.Add('TextGpic='+RegPackets.TextGpic);
ParamStr.Add('tk='+RegPackets.tk);
ParamStr.Add('submitsign='+RegPackets.submitsign);
ParamStr.Add('fromhost='+RegPackets.fromhost);
ParamStr.Add('backurl='+RegPackets.backurl);
try
TempData := _HTTP.Post(HeXunUrl[2],ParamStr);
_DEBUG(TempData);
except
_DEBUG('失败...');
end;
end;