
loginpass_source := lbledt_Password.Text;
validcode_source := lbledt_validcode.Text;
validcode := MD5Print(md5string(Trim(validcode_source)));
loginpass := MD5Print(md5string(Trim(validcode + MD5Print(md5string(Trim(loginpass_source))))));
PostStream.Add('loginpass=' + loginpass);
PostStream.Add('validcode=' + validcode);
PostStream.Add('username=' + username);
PostStream.Add('loginpass_source=' + loginpass_source);
PostStream.Add('validcode_source=' + validcode_source);
PostStream.Add('flag=login');
FHTTPObj.Post(Url, PostStream, ResultStream);
SecondOpenStr := UTF8Decode(ResultStream.DataString);
以前执行的很好,最近不知道为什么执行到 FHTTPObj.Post(Url, PostStream, ResultStream);语句就会出现TIMER OUT是哪里出问题了吗?
time out的意思是超时,禅含是你在提交的时候,未等到服务器返回状态
看你的url是否正确,提交的参数是否一致,抓包对照贺缺笑一下就扮乎行了
估计是服务器进行了限制,你可以进行抓包跟IE提交的数据进行对比,尽量做到一致,以避开服务器检测。
body, 这个我不懂啦,sorry