Получить / опубликовать в веб-сервисе RESTful

Question

Мне нужно выполнить GETing и POSTing для веб-службы RESTful из VB6Какой самый лучший и простой способ сделать это?

Answer 1

Вам нужно будет добавить ссылку на библиотеку 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

Мне это понадобилось недавно для запросов GET в старом унаследованном приложении, и поскольку принятый ответ не компилируется, я подумал, что выложу какой-нибудь рабочий код.Я уверен, что это поможет бедному человеку использовать VB6 в будущем;) Вот хорошая чистая функция.

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

А вот пример использования:

Dim result As String
Dim url As String

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

Счастливого VB6ing!:)

Answer 3

Если вам нужно GET / POST из веб-службы REST, вы можете просто написать HTTP-запрос на URL веб-службы:

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

Если вам нужно передать сложные объекты, вам нужно будет сериализоватьзатем передать их как параметры

Затем можно получить ответ HTTP в любом формате, который веб-служба решит вернуть как (JSON, XML и т. д.)