Пытаюсь получить данные через rest api.
Пробовал и через WinHttpRequest и через MSXML2.ServerXMLHTTP60 Как только в строке запроса хоть одна русская буква - сразу вылетает с ошибкой
. Причем скорее всего даже запрос не отправлялся.
Через Postman и через браузер - API работает. И без каких-либо header-ов.
Кто-то знает что делать?
Вот примеры кода.
Пробовал и через WinHttpRequest и через MSXML2.ServerXMLHTTP60 Как только в строке запроса хоть одна русская буква - сразу вылетает с ошибкой
| Цитата |
|---|
| -2147012744 Сервер вернул недопустимый или не распознанный ответ |
Через Postman и через браузер - API работает. И без каких-либо header-ов.
Кто-то знает что делать?
Вот примеры кода.
| Код |
|---|
Sub Макрос1()
Dim hRequest As Object
Set hRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
hRequest.SetTimeouts 200000, 200000, 200000, 200000
urlapi = "http://teamsoft9.pharmahrm.com:8000/get_pharmacy?request=Фkljbkyihgvkyv""
hRequest.Open "GET", urlapi, False
hRequest.Send
End Sub
Sub Макрос2()
Dim requestString As String
Dim request As MSXML2.ServerXMLHTTP60
requestString = "http://teamsoft9.pharmahrm.com:8000/get_pharmacy?request=Oфbject to request"
Set request = New ServerXMLHTTP60
request.Open "GET", requestString, False
request.Send
End Sub |
