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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Visitante
Responder

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Processando...
Entre para seguir isso  

×
×
  • Criar Novo...