线程调用webservice出错了。。。

baiduan 2006-12-01 11:03:29

var
ht:Thttprio;
it1:Ifilews;
markinfo:integer;
begin
try
ht:=THTTPRIO.Create(nil);
//it1:=getIfilews(true,'',ht);
it1:=getifilews; ===================>如果是线程，这里会出错
markinfo:=it1.isfileExists('e:\12.txt');
if markinfo=0 then
begin
self.Caption :='文件存在';
end
else
begin
self.Caption:='文件不存在';
end;
finally
ht.Free;
end;
end;
//就以上这段代码，
//在主界面ok，线程中这些代码就出现Abstract Error的错误
//怎么找都找不到原因，到底为什么？

...全文

250 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

dabaicai 2006-12-05

打赏
举报

主要问题就在GetIfilews里面了，
另
GetIfilews是获得接口的方法，由WSDL import 生成不是很明白

baiduan 2006-12-05

打赏
举报

哎~~
GetIfilews 没有问题。是我的问题。

这样才ok
CoInitialize(nil);
try
ht:=THTTPRIO.Create(nil);
ht.URL:='http://../webservicetest/Filews.dll/soap/ifilews';
ht.WSDLLocation:='http://../webservicetest/Filews.dll/wsdl/ifilews';
ht.Service:='Ifilewsservic'
ht.Port:='ifilewsPort';

it1:=ht as Ifilews;
it1.xxx(...)
finally
CoUnInitialize;
end;
归根到底还是自己对WebService传输过程不了解。谢谢大家关注。

JimmyV 2006-12-05

打赏
举报

我感觉就是GetIfilews这个函数里面的问题，就看里面做了些什么内容了，应该和函数处理有关系的

halfdream 2006-12-04

打赏
举报

在线程中使用,代码要加上 CoInitialize与 CoUnInitialize

//线程开始
CoInitialize(nil);
try
...//创建RIO
...//调用

finally
CoUnInitialize;
end;

dabaicai 2006-12-04

打赏
举报

把涉及到的webservice那几行注掉看看
getifilews里面是什么？？
另：线程里面就没有caption了

baiduan 2006-12-04

打赏
举报

====
在Create和Destory里我做了CoInitialize(nil); CoUnInitialize;
====
GetIfilews是获得接口的方法，由WSDL import 生成。
====
现在错误如下：
//在主界面ok，线程中这些代码就出现Abstract Error的错误

网络上查是说将接口实例化，但是我不知道该怎么改正这个错误。
各位达人能不能给个更清晰的说法啊？

baiduan 2006-12-02