请教THTTPRIO的用法(30分)

  • 主题发起人 主题发起人 bluz
  • 开始时间 开始时间
B

bluz

Unregistered / Unconfirmed
GUEST, unregistred user!
环境:在不同的服务器上都部署了相同的webservice
希望在程序中动态的调用某个服务器上的service
代码如下:
function doquery
begin
//以下是出错的语句
HTTPRIO1.URL := 'http://'+AIP+'/Service/WebSvr.dll/soap/IQryService';
//以下是调用代码,省略
end;
第一次运行到上面的语句,没有问题,也成功的调用了远程接口,第二次运行到该语句,就出现地址冲突的错误。

请教是否url不能动态改变?要怎么修改? 谢谢。

 
你把整个的代码帖出来吧以及错误的信息。
 
每次都在在function里重新创建,用完就free试试
 
HTTPRIO1.URL := 'http://'+AIP+'/Service/WebSvr.dll/soap/IQryService';
Svc := HTTPRIO1 as IQryService;
try
Result := svc.ExecuteSQL(ASql);
except
Result :-1;
end;
 
多人接受答案了。
 
后退
顶部