GET/POST al servicio web REST

Question

Necesito hacer algunas Consiguiendo y anuncio a un servicio web REST de VB6. ¿Cuál es la mejor y más simple forma de hacer eso?

Answer 1

Usted tendrá que añadir una referencia a la biblioteca MSXML :

Dim sUrl As String 
Dim response As String 
Dim xmlhttp 

Set sUrl = "http://my.domain.com/service/operation/param" 

Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.open "POST", sURL, False 
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
xmlhttp.send() 

Dim response As String = xmlhttp.responseText 

Set xmlhttp = Nothing 

Answer 2

Si necesita GET/POST de un servicio Web REST simplemente puede escribir una solicitud HTTP a la URL del servicio web:

http://www.webservicehost.com/webserviceop?<any parameters> 

Si tiene que pasar objetos complejos que se necesitan para serializarlos y luego se pasa como parámetros

entonces se puede obtener la respuesta HTTP en el formato que el servicio web de regreso si lo decide (JSON, XML, etc.)

Answer 3

Hace tiempo que necesitaba esto para las solicitudes GET en una antigua aplicación heredada, y dado que la respuesta aceptada no se compila, pensé en publicar algún código de trabajo. Estoy seguro de que ayudará un poco de suela mal usando VB6 en el futuro;) Aquí hay una función agradable y limpia.

Public Function WebRequest(url As String) As String 
    Dim http As MSXML2.XMLHTTP 
    Set http = CreateObject("MSXML2.ServerXMLHTTP") 

    http.Open "GET", url, False 
    http.Send 

    WebRequest = http.responseText 
    Set http = Nothing 
End Function 

Y aquí es un ejemplo de uso:

Dim result As String 
Dim url As String 

url = "http://my.domain.com/service/operation/param" 
result = WebRequest(url) 

feliz VB6ing! :)