(Resolvido) Consumir WebService

[robinhocne]

Boa tarde pessoal, sei que esse tópico é comum em alguns foruns, mas já tentei fazer alguns exemplos e não consegui e nem compreendi direto, preciso realizar uma consulta de um webservice, e esse retorno de webservice é uma string separado por | e a cada linha é um "enter".

então tenho um função lá chamada consultaProdutos onde passo o codigo do produto e empresa e ele vai me retorna vários campos separados por |.

No Delphi importei o wsdl e criei a unit dele, mas apartir dai fiquei confuso em como chamar a função consulta produtos, passar os parametros e pegar o retorno.

Alguém poderia me ajudar ?

[Jhonas]

veja se esse exemplo te ajuda

http://rodrigojarouche.wordpress.com/2010/03/27/como-consumir-webservices-em-delphi/

abraço

[robinhocne]

opa, funcionou sim Jhonas, agora só estou vendo uns erros aqui, mas acho que é o proxy na empresa, porque em casa funcionou de boa.

[robinhocne]

Jhonas estou precisando de uma ajuda sua, pois não estou entendendo o porque está dando o erro.

Estou com esse retorno Access violation at address 078E0C81. Write of address 078E0C81, ele dá quando executo a consulta no webservice, mas esse erro está dando aqui no meu serviço, já desativamos o proxy e mesmo assim dá erro, mas o mais estranho é que executando em outra maquina rodou, em casa também rodou, mas em uma 4ª maquina não rodou... sendo que está na mesma rede, o que pode ser ? pode me ajudar ?

var ser: AtualizacaoPlatinum;
begin
  inherited;

  lstProdutos := TStringList.Create;

  ser := GetAtualizacaoPlatinum(false,'',HTTPRIO1);

  lstProdutos.Text := ser.consultaProdutos(txPesCod.Text,txCodBar.Text,txRef.Text,dtmPlatinum.tblEmpresacd_empresa.AsString);
  Memo1.Text := lstProdutos.Text;

[Jhonas]

isso pode ser devido a alguma configuração particular da maquina

verifique a central de segurança e o firewall do windows ( faça um comparativo com as maquinas que estão funcionando o programa )

veja se não existe algum antivirus instalado na maquina ( dependendo da configuração pode bloquear )

veja tambem ( dependendo da versão do windows ) se precisa dar autorização para o usuario

verique se o erro ocorre quando tenta a conexão ou do retorno do webservice

abraço

[robinhocne]

Descobri, era o DEP do windows.

ufa....agora tá funcionando....obrigado.

[Jhonas]

ok... mas para efeito de conhecimento para outros colegas

DEP significa ( Prevenção de Execução de Dados )

para Desativar a DEP

Iniciar > executar > cmd

no DOS digite >bcdedit /set { current } nx AlwaysOff

abraço