MS Access выполняет POST веб-запрос - PullRequest
Новая
       12

MS Access выполняет POST веб-запрос

1 голос
/ 26 августа 2010

В моем приложении MS Access мне нужно регулярно отправлять пакет информации на мой веб-сервер. Мне не нужно ничего такого, как SOAP, XML-RPC или что-то еще, достаточно простого запроса POST-страницы. Я немного погуглил, но не смог найти ничего действительно полезного.

Кто-нибудь знает о ресурсе или есть пример кода для этого?

1 Ответ

0 голосов
/ 26 августа 2010

Вот один, который я использовал для запросов HTTP GET, когда я хотел получить HTML-код веб-страницы. Вы можете заменить POST параметром pMethod и отбросить текст ответа.

Я использовал MSXML2, который не гарантированно будет доступен во всех версиях Windows. Если он недоступен в ваших системах, вы можете попробовать MSXML. Или используйте обработчик ошибок для возврата к MSXML, когда MSXML2 недоступен. 

Public Function HttpRequest(ByVal pUrl As String, _
        Optional ByVal pMethod As String = "GET") As String
    Dim strResponse As String
    Dim objHttp As Object

    'use "MSXML.XMLHTTPRequest" if MSXML2 not available '
    Set objHttp = CreateObject("MSXML2.XMLHTTP")

    objHttp.Open pMethod, pUrl, False
    objHttp.send
    strResponse = objHttp.responseText
    HttpRequest = strResponse
    Set objHttp = Nothing
End Function
...