本文整理自网络，侵删。
单位软件在Win7下调用DLL连接webservice时出现超时问题，分析发现win7下30秒如果Webservice服务器未返回结果则超时，在winxp下没有问题（但是 时间已经达到了50秒才返回数据）。该DLL是Delphi编写调用了THTTPRIO。
开始不知道问题在哪里，以为是win7的问题，查找原因未果。后来用VS写了个程序调用webservice在win7下没有问题。随怀疑是THTTPRIO的问题
方法一： 设置 THTTPRIO三个属性
RIO.HTTPWebNode.ConnectTimeout:=600000; //10分钟 RIO.HTTPWebNode.SendTimeout:=600000; RIO.HTTPWebNode.ReceiveTimeout:=600000; //其实只需要设置ReceiveTimeout即可。
注：网上反映在某些版本的delphi下无效。
方法二：修改源代码
1.修改SOAPHTTPTrans.pas文件。2.找到procedure THTTPReqResp.Connect(Value: Boolean);3.写义变量: Timeout:DWORD;4.找到 FInetRoot := InternetOpen(PChar(FAgent), AccessType, PChar(FProxy), PChar(FProxyByPass), 0);
在该代码前添加如下代码：
Timeout:=600000; InternetSetOption(nil, INTERNET_OPTION_RECEIVE_TIMEOUT , @Timeout, sizeof(Timeout));――――――――――――――――
原文链接：https://blog.csdn.net/superbirdxp/article/details/70821239 相关阅读 >>
Delphi winapi: setvolumelabel - 设置磁盘卷标
Delphi中从windows资源管理器中拖放图片到timage控件上
Delphi 每年、月、周、日的开始与结束的时间startofayear … startoftheyear … endofayear … endoftheyear
更多相关阅读请进入《Delphi》频道 >>
