在Delphi的脚本里调用返回值为复合类型的webservice

program main;
var

  soap : variant;
 
  ReturnXML : array of variant; 
  Item1: Variant;
begin
  soap := CreateOleObject('MSSOAP.SoapClient30');
  soap.mssoapinit('http://xx?wsdl');
  
  ReturnXML := soap.yy('mdrd', '', '2012-04-20', '2012-04-20');

  Item1 := ReturnXML[0];
  showmessage(  Item1.item(0).text );
end.