Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] ASP e WEB SERVICES

Recommended Posts

ASP e WebServices

 

Neste code fazemos uma chamada ao objeto “MSSOAP.SoapClient”, onde ele é responsável por comunicar-se com o web services utilizando o protocolo SOAP, o SOAP Toolkit trás diversos componentes que facilitam a criação e chamada de web services, o exemplo abiaxo, veremos como fazer esta chamada.

 

<%

‘Declara as variáveis utilizadas no exemplo

Dim objSoapClient : objSoapClient = NULL

Dim strMsg : strMsg = NULL

‘Verifica se houve post com algum valor digitado

If (Request.Form("txtNome") > "") Then

‘Instancia o objeto

Set objSoapClient = Server.CreateObject("MSSOAP.SoapClient")

‘Diz que é um HTTP Request

objSoapClient.ClientProperty("ServerHTTPRequest") = TRUE

‘Chama o Web Service, passando URL, NOME do WS
' Aqui está no localhost

Call objSoapClient.mssoapinit("http://localhost/web_service/TESTE.asmx?WSDL", "Exemplo")

‘Consome chamando o método

strMsg = objSoapClient.RetornaMsg(Request.Form("txtNome"))

‘Mostra o retorno na tela

Response.Write strMsg

End If

%>

<html>

<head>

<title>ASP e WEB SERVICES</title>

</head>

<body>

<form name="frmTESTE" method="POST" action="default.asp">

<input name="txtNome" type="text" id="txtNome" />

<input type="submit" value="Consumir"/>

</form>

</body>

</html>

 

você pode baixar o SOAP Toolkit neste link

 

Um exemplo de webservices, poderia ser um código em C# ou VB.Net, como abaixo:

 

namespace WebServices_exemplo

{

public class TESTE: System.Web.Services.WebService

{

[WebMethod]

public string RetornaMsg(string strNome)

{

if (strNome == "X@nBuRzUm")

{

return "WEB SERVICES em ASP Classic !!";

}

else

{

return "Web Services com ASP";

}

}

}

}

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.