SOAP的另一种使用方法

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  v:OleVariant;
  s:string;
begin
  try
    v:=CreateOleObject('MSSOAP.SoapClient');
    v.MSSoapInit('http://192.168.0.1/Coop.dll/wsdl/Coop','Coopservice','CoopPort');
    s:=v.getmessage(0);
    ShowMessage(s);
  finally
    v:=Unassigned;
  end;
end;

需要安装微软的SOAP工具包