delphi6 调用 java的WebService ?解决方法
delphi6 调用 java的WebService ?
用类似下面这种方法来直接调用.
var
vWsObj : Variant;
s : string;
begin
try
WsObject := CreateOleObject('MSOSOAP.SoapClient30');
try
WsObject.mssoapinit('http://localhost:8080/HelloWorld/services/HelloWorld?wsdl');
ShowMessage('存储服务连接成功!');
finally
WsObject := Unassigned;
end;
except on E: Exception do
ShowMessage('存储服务连接失败!!错误信息:' + E.Message);
end;
reslt:=WsObject.gethelloWorld('gan');
ShowMessage(reslt);
end;
返回“存储服务连接成功”!
但是,调用getthehelloWorld这个方法函数的时候就会报错“Invalid variant operation”,
不知是怎么了?怎么回事?哪里有问题了?
(WebService发布成功了的。用的是Axis2发布的
'http://localhost:8080/HelloWorld/services/HelloWorld?wsdl' 访问界面ok。
)
------解决方案--------------------
用这个http://localhost:8080/HelloWorld/services/HelloWorld?wsdl地址 直接生成接口 通过接口调用取东西
------解决方案--------------------
我空间有例子 可以去看看
用类似下面这种方法来直接调用.
var
vWsObj : Variant;
s : string;
begin
try
WsObject := CreateOleObject('MSOSOAP.SoapClient30');
try
WsObject.mssoapinit('http://localhost:8080/HelloWorld/services/HelloWorld?wsdl');
ShowMessage('存储服务连接成功!');
finally
WsObject := Unassigned;
end;
except on E: Exception do
ShowMessage('存储服务连接失败!!错误信息:' + E.Message);
end;
reslt:=WsObject.gethelloWorld('gan');
ShowMessage(reslt);
end;
返回“存储服务连接成功”!
但是,调用getthehelloWorld这个方法函数的时候就会报错“Invalid variant operation”,
不知是怎么了?怎么回事?哪里有问题了?
(WebService发布成功了的。用的是Axis2发布的
'http://localhost:8080/HelloWorld/services/HelloWorld?wsdl' 访问界面ok。
)
------解决方案--------------------
用这个http://localhost:8080/HelloWorld/services/HelloWorld?wsdl地址 直接生成接口 通过接口调用取东西
------解决方案--------------------
我空间有例子 可以去看看