Delphi動態調用Java的WebService 轉

Delphi動態調用Java的WebService —— 基於“Axis2發布WebService例子（HelloWorld）”

uses ComObj;

 

var

WsObject: Variant;

reslt:String;

name:String;

begin

try

//WsObject:=Unassigned;

try

WsObject := CreateOleObject('MSOSOAP.SoapClient30');

except

WsObject := CreateOleObject('MSSOAP.SoapClient30');

end;

try

WsObject.mssoapinit('http://localhost:8080/HelloWorld/services/HelloWorld?wsdl');

ShowMessage('存儲服務連接成功！');

finally

end;

except on E: Exception do

ShowMessage('存儲服務連接失敗！！錯誤信息：' + E.Message);

end;

name:='gan';

reslt:=WsObject.gethelloWorld(name);

ShowMessage(reslt);

 

end.