Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / POST запрос / 16 сообщений из 16, страница 1 из 1
18.07.2019, 17:47
    #39838889
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
Здравствуйте!
Не пойму как сформировать параметры для запроса MSXML2.ServerXMLHTTP по примеру из документации
Код: php
1.
2.
3.
4.
5.
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<StatusReport Account="account" Date="2018-08-08T20:23:54" Secure="secure" ShowHistory="1">
    <Order DispatchNumber="1000028000"/>
    <Order DispatchNumber="1000356200"/>
</StatusReport>


Просьба помочь. Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2019, 18:02
    #39838896
Сергей Лалов
Сергей Лалов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
style1,


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Function DownloadGoogleSheets(LoadingPath, UnloadingPath) As Variant
Dim FileName As String
Dim objWebCon, objWrit As Object
FileName = "как_будет_называться_ваш_файл_после_выгрузки.xml" '
Set objWebCon = CreateObject("MSXML2.XMLHTTP.3.0")
Set objWrit = CreateObject("ADODB.Stream")
objWebCon.Open "POST", LoadingPath, False
objWebCon.send (LoadingPath)
If objWebCon.Status = 200 Then
objWrit.Open
objWrit.Type = 1
objWrit.Write objWebCon.responseBody
objWrit.Position = 0
objWrit.SaveToFile UnloadingPath & FileName
objWrit.Close

End If
Set objWebCon = Nothing
Set objWrit = Nothing
End Function



Где:
LoadingPath = ваш URL
UnloadingPath = ваш путь на компе куда будет производиться выгрузка файла
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2019, 19:00
    #39838913
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
Сергей Лалов,
не совсем понятно, а зачем здесь objWebCon.send (LoadingPath) отправляется url, мне нужно параметры запроса как то здесь отправить?
ссылка на документацию вот тут, если я не правильно поставил вопрос))
https://confluence.cdek.ru/pages/viewpage.action?pageId=15616129#id-Протоколобменаданными(v1.5)-4.10.StatusОтчет"Статусызаказов"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2019, 19:09
    #39838914
Сергей Лалов
Сергей Лалов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
style1,

Можно еще проще. Я проверил работу на своем веб сервере.

Вот простейшая кнопка проверки доступа к xml файлу на стороне аксесса, событие на нажатие кнопки:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub test_xml_Click()
Dim xmlhttp As New MSXML2.XMLHTTP60
LoadingPath = "http://ваш_путь_к_сайту/xml.php"
xmlhttp.Open "POST", LoadingPath, False
xmlhttp.send
MsgBox (xmlhttp.responseText)
End Sub



А вот файл в формате php , который содержит xml. Назвал страничку xml.php :

Код: vbnet
1.
2.
3.
4.
5.
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<StatusReport Account="account" Date="2018-08-08T20:23:54" Secure="secure" ShowHistory="1">
    <Order DispatchNumber="1000028000"/>
    <Order DispatchNumber="1000356200"/>
</StatusReport>



При обращении к веб странице функция VBA генерит ответ (response) содержимого страницы, в виде содержимого xml. Скрин приложил.

После того как вы получили респонс, можете уже дальше обработать теги как угодно. И вывести не полную страницу к примеру, а необходимое содержимое внутри нужных тегов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2019, 19:10
    #39838916
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
Сергей Лалов,
понял, спасибо, буду пробовать))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2019, 19:11
    #39838917
Сергей Лалов
Сергей Лалов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
style1,

Ох, емае, вы на CDEK собираетесь форму заполнять из VBA. Быстро не смогу помочь, сам новичок еще в web.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2019, 19:27
    #39838925
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
Сергей Лалов,

что то не то... получаю ответ
Код: php
1.
<?xml version="1.0" encoding="UTF-8"?><StatusReport ErrorCode="ERR_DATEFORMAT" Msg="Неверный формат даты в параметре Date = "/>


это был пример запроса, мне его не нужно разбирать, в нем передаваемые параметры
Код: php
1.
2.
3.
4.
5.
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<StatusReport Account="account" Date="2018-08-08T20:23:54" Secure="secure" ShowHistory="1">
    <Order DispatchNumber="1000028000"/>
    <Order DispatchNumber="1000356200"/>
</StatusReport>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2019, 19:28
    #39838926
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
Сергей Лалов,
ясно))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2019, 15:09
    #39839595
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
вопрос открыт
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2019, 15:38
    #39839598
alecko
alecko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
style1,
на форуме есть поиск,если им воспользоваться, например
так
можно многое найти, например это 14734926
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2019, 17:38
    #39839604
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
alecko,
я искал прежде чем написать)))
спасибо, поизучаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.07.2019, 18:30
    #39842049
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
Решилось вот так

в референс надо подключить Microsoft WinHTTP Services, version 5.1

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim req As WinHttp.WinHttpRequest
     
Set req = New WinHttp.WinHttpRequest

    req.Open "POST", "Здесь УРЛ метода", False
    req.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    req.send "xml_request=" & "Запрос из первого поста"
    
    otvet = req.responseText
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
22.12.2021, 18:39
    #40122280
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
Здравствуйте! Нужна помощь.
Никак не могу подключиться к удаленному серверу ни через WinHttp, ни через MSXML2. Ругается в методе Send то на Ошибка загрузки указанного ресурса, то на Ошибку поддержки безопасных каналов. Операционка вин7. Пробовал на вин10, все работает нормально.

Проблема явно в TLS у вин7, обновил SP1 для винды, подкорректировал данные реестра для winhttp и проч. по документациям микрософт.
Ничего не помогает, все те же ошибки.
Пытаюсь для winhttp указать явно протокол TLS1.2, ругается на аргумент 2048.
В Object Browser в значениях WinHttpRequestSecureProtocols значения для TLS 1.1 и 1.2 тоже не появляются.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
        With Http
            .Option(9) = 2048
            .Open "POST", pc_sSberMarketUrl_Test & sURL, False
            .setRequestHeader "Content-type", "application/json"
            .send (sURL_Request)
            sResponse = .responseText
        End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2021, 13:11
    #40122720
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
style1,

нуу, я бы попробовал ServerXMLHTTP с setOption SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2021, 17:34
    #40122844
style1
style1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
court, Ошибка поддержки безопасных каналов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2021, 17:46
    #40122846
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
POST запрос
style1,

тут посмотри - https://coderoad.ru/21354992/Произошла-ошибка-в-запросе-secure-channel-support-Classic-ASP-HTTP
конкретно сюдаСуществует также простое исправление (ссылка здесь: https://aka.ms/easyfix51044), доступное от Microsoft, если вы не хотите вручную вводить подразделы и значения реестра.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / POST запрос / 16 сообщений из 16, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 506ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1609509]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 157ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 262ms
total:  506ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]