Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
pepe donin

Recuperando XML de um WEBSERVICE

Recommended Posts

Olá pessoal!

Estou tentando recuperar o resultado em XML de um webservice criado em DELPHI XE3.

Eh simples, um parâmentro de entrada na função e o retorno de um XML:

Function fnRetornaDadosFiltroSQL(ByVal vlsSQL)

'variáveis
Dim objSoapClient : objSoapClient = NULL
Dim strMsg : strMsg = ""
Set objSoapClient = Server.CreateObject("MSSOAP.SoapClient30")
objSoapClient.ClientProperty("ServerHTTPRequest") = TRUE
Call objSoapClient.mssoapinit("http://127.0.0.1/page/server.exe/wsdl/IServer")
objSoapClient.ConnectorProperty("Timeout") = 600000
strMsg = ""
On error resume next

strMsg = objSoapClient.fnRetornaDadosFiltro(vlsSQL)

response.write strMsg
if err.number <> 0 then
strMsg = ""
end if
On error goto 0


Set objSoapClient = Nothing
fnRetornaDadosFiltroSQL = strMsg

End Function

Porém, não retorna nenhum dado nesta variável de retorno.

E sim, no WEBSERVICE os dados são gerados em XML. Tanto que salvo como backup e/ou validação localmente em arquivo.

Não queria utilizar a gravação e leitura de arquivo. Quero isso dinâmico/automático via retorno da função.

Poderiam me auxiliar?

Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...