Duvida uso WebService WSDL

Delphi

14/07/2015

Boa tarde, estou tentando usar um webservice e não estou conseguindo pegar o retorno alguém pode me dar uma dica ?

procedure TFrmIntegracaoBT.Button1Click(Sender: TObject);
var wsProd: wsProdutosSoap;
sRetorno:string;
begin
//Funcional requisição OK, sem erros
wsProd := GetwsProdutosSoap(False,'',HTTPRIO1);
wsProd.retornarInformacoesProdutoV2('07', 'cruzeiroaut', '1010','7894900011517', '22021000', ' ', 'RS');
ShowMessage('Requisição OK.');

{tentei jogar no MEMO o retorno da solicitação mas não tem jeito, deixei comentado a essa parte}

//MResposta.Text :=String(wsProd.retornarInformacoesProdutoV2('07', 'cruzeiroaut', '1010','7894900011517', '22021000', ' ', 'RS'));

end;



Endereço do Web Service: http://www.brasiltributario.com.br/webservices/wsProdutos.asmx
Endereço WSDL: http://www.brasiltributario.com.br/webservices/wsProdutos.asmx?wsdl
Cristiano Fochesatto

Cristiano Fochesatto

Curtidas 0

Melhor post

Dorivan Sousa

Dorivan Sousa

14/07/2015

var
  wsProd: wsProdutosSoap;
  P: Produto;
  sRetorno:string;
begin
  //Funcional requisição OK, sem erros
  wsProd := GetwsProdutosSoap(False,'',HTTPRIO1);
  p:=wsProd.retornarInformacoesProdutoV2('07', 'cruzeiroaut', '1010','7894900011517', '22021000', ' ', 'RS');

  memo1.Lines.Add(p.uf);
  memo1.Lines.Add(p.nome);
  memo1.Lines.Add(p.ean);

  //e ai vai
GOSTEI 1

Mais Respostas

Cristiano Fochesatto

Cristiano Fochesatto

14/07/2015

Cara funcionou.
Obrigado.
GOSTEI 0
POSTAR