Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

MarKteus

Como ler informações de um WebService ?

Recommended Posts

Bom Dia !

 

Andei pesquisando sobre isso, e aqui tem um link, não sei se te ajuda:

http://forum.imasters.com.br/lofiversi...hp/t263501.html

 

sobre soap:

http://www.w3.org/TR/soap/

 

Ainda nao estudei a fundo sobre isso, mas me parece que funciona sendo um arquivo xml que pode ser lido da mesma forma que os feed rss, não deve ser muito complidado.

 

Abraços,

Vincius Ianni

Compartilhar este post


Link para o post
Compartilhar em outros sites

No meu caso ñ tem nada a ver com Delphi

 

será mesmo Browser com Browser, cliente com servidor, ou seja tudo internet (paginas) uma enviando informações a outra lendo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá.

 

Estou trabalhando em um projeto em ASP, que terá que fazer mais ou menos a mesma coisa.

Comunicar-se com um webservice, retornar dados e tratá-los.

 

Mas no meu caso, será feito usando XML. Então estou enviando e recebendo um XML. Ótimo para sistemas feito em diferentes linguagens.

Se tiver interesse, posso postar o exemplo que fiz, enviando um XML e tratando o retorno de outro.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá.

 

Estou trabalhando em um projeto em ASP, que terá que fazer mais ou menos a mesma coisa.

Comunicar-se com um webservice, retornar dados e tratá-los.

 

Mas no meu caso, será feito usando XML. Então estou enviando e recebendo um XML. Ótimo para sistemas feito em diferentes linguagens.

Se tiver interesse, posso postar o exemplo que fiz, enviando um XML e tratando o retorno de outro.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá.

 

Estou trabalhando em um projeto em ASP, que terá que fazer mais ou menos a mesma coisa.

Comunicar-se com um webservice, retornar dados e tratá-los.

 

Mas no meu caso, será feito usando XML. Então estou enviando e recebendo um XML. Ótimo para sistemas feito em diferentes linguagens.

Se tiver interesse, posso postar o exemplo que fiz, enviando um XML e tratando o retorno de outro.

Eduardo

 

Se você fizer isto (enviar) ficarei bastante agradecido http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

No aguardo

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha este exemplo:

 

Um WebService , chamado "ValidaUsuario", que recebe dois parâmetros apenas , "usuario" e "senha" . Esse serviço está em um servidor que está rodando o FrameWork.Net . O nome do arquivo físico é "Service1.asmx" . O retorno do WebService é simples , "0"(zero) se usuário e senha estiverem ok e "1"(um) caso usuário ou senha não confiram . É um Serviço simples só para testes,sabemos que a comunicação com o Web Service é feita em XML ,se executarmos o arquivo "Service1.asmx" direto na barra de endereços do browser , teremos esse resultado :

 

 

<?xml version="1.0" ?>

<int xmlns="http://tempuri.org/">0</int>

uma página ASP em um outro Servidor Web , diferente daquele onde está o asmx , e esse servidor não tem o FrameWork instalado , apenas o Parser MSXML3 , utilizando o Parser XML padrão e o método XMLHTTP .

 

uma página com um fomulário onde seriam preenchidos os campos "Usuário" e "Senha" . A página ASP que processava esse formulário ficou assim :

 

 

<%@ Language=VBScript %>
<%
Response.Buffer = True

Dim returnString
Dim SoapUrl
Dim x
Dim SoapRequest , myXML
Dim Usuario , Senha
Usuario = Request.Form("usuario")
Senha = Request.Form("senha")

Set SoapRequest = Server.CreateObject("MSXML2.XMLHTTP")
Set myXML = Server.CreateObject("MSXML.DOMDocument")
myXML.async = False
SoapUrl = "http://servidorX/WebService1/Service1.asmx/ValidaUsuario?nome=" & Usuario & "&senha=" & Senha
SoapRequest.open "GET", SoapUrl, False
SoapRequest.send (SoapUrl)

If Not myXML.Load(SoapRequest.responseXML) Then
returnString = ""
Else
Dim nodesURL
Dim ret
Response.ContentType = "text/xml"
Set nodesURL = myXML.documentElement.selectNodes("//int")
returnString = myXML.documentElement.childNodes(0).nodeValue

Select Case returnString
Case 0
Response.Redirect ("ok.asp")
Case 1
Response.Redirect ("erro.asp")
End Select
End If
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha este exemplo:

 

Um WebService , chamado "ValidaUsuario", que recebe dois parâmetros apenas , "usuario" e "senha" . Esse serviço está em um servidor que está rodando o FrameWork.Net . O nome do arquivo físico é "Service1.asmx" . O retorno do WebService é simples , "0"(zero) se usuário e senha estiverem ok e "1"(um) caso usuário ou senha não confiram . É um Serviço simples só para testes,sabemos que a comunicação com o Web Service é feita em XML ,se executarmos o arquivo "Service1.asmx" direto na barra de endereços do browser , teremos esse resultado :

 

 

<?xml version="1.0" ?>

<int xmlns="http://tempuri.org/">0</int>

uma página ASP em um outro Servidor Web , diferente daquele onde está o asmx , e esse servidor não tem o FrameWork instalado , apenas o Parser MSXML3 , utilizando o Parser XML padrão e o método XMLHTTP .

 

uma página com um fomulário onde seriam preenchidos os campos "Usuário" e "Senha" . A página ASP que processava esse formulário ficou assim :

 

 

<%@ Language=VBScript %>
<%
Response.Buffer = True

Dim returnString
Dim SoapUrl
Dim x
Dim SoapRequest , myXML
Dim Usuario , Senha
Usuario = Request.Form("usuario")
Senha = Request.Form("senha")

Set SoapRequest = Server.CreateObject("MSXML2.XMLHTTP")
Set myXML = Server.CreateObject("MSXML.DOMDocument")
myXML.async = False
SoapUrl = "http://servidorX/WebService1/Service1.asmx/ValidaUsuario?nome=" & Usuario & "&senha=" & Senha
SoapRequest.open "GET", SoapUrl, False
SoapRequest.send (SoapUrl)

If Not myXML.Load(SoapRequest.responseXML) Then
returnString = ""
Else
Dim nodesURL
Dim ret
Response.ContentType = "text/xml"
Set nodesURL = myXML.documentElement.selectNodes("//int")
returnString = myXML.documentElement.childNodes(0).nodeValue

Select Case returnString
Case 0
Response.Redirect ("ok.asp")
Case 1
Response.Redirect ("erro.asp")
End Select
End If
%>

 

 

Caro Xam

 

Sua ajuda foi bastante importante, ta lendo o arquivo e retornando true, porém recebo a seguinte mensagem qdo tento exibir algum valor retornado

 

A página XML não pode ser exibida

Não é possível exibir a entrada XML usando a folha de estilos . Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde.

 

 

--------------------------------------------------------------------------------

 

Inválido no nível superior do documento. Erro ao processar o recurso

 

você sabe o q pode ser ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.