Delphi usando MSSOAPLib

Este exemplo pode ser usado em qualquer versão do Delphi a partir da versão 2.0

Crie um novo projeto, adicione um Tbutton, um Tedits, um TMemo.

Lembre-se que caso o SOAP Toolkit 3.0 esteja instalado porque o cliente final não possui .NET Framework, então a referência ao objeto deverá ser MSSOAPLib30.SoapClient30 e não mais MSSOAP.SoapClient como no código abaixo.

Incluir no uses ComObj;

No evento OnClick do Button1 colocar o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);

var

  Servico: Variant;

begin

  Servico := CreateOleObject('MSSOAP.SoapClient');

  Servico.MSSoapInit('http://www.federalweb.com.br/webservice.asmx?WSDL');

  Memo1.Text := Servico.Consultar('1', 1, Edit1.Text, 1, 1, 1, 1);

end;