ReSQL.ru
     
powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / POST запрос
16 сообщений из 16, страница 1 из 1
POST запрос
    #39838889
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
style1
Участник
Здравствуйте!
Не пойму как сформировать параметры для запроса 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, 17:47
| Ответить | Цитировать | Написать  
POST запрос
    #39838896
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
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, 18:02
| Ответить | Цитировать | Написать  
POST запрос
    #39838913
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
style1
Участник
Сергей Лалов,
не совсем понятно, а зачем здесь 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:00
| Ответить | Цитировать | Написать  
POST запрос
    #39838914
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
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:09
| Ответить | Цитировать | Написать  
POST запрос
    #39838916
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
style1
Участник
Сергей Лалов,
понял, спасибо, буду пробовать))
...
Рейтинг: 0 / 0
18.07.2019, 19:10
| Ответить | Цитировать | Написать  
POST запрос
    #39838917
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
style1,

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

что то не то... получаю ответ
Код: 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:27
| Ответить | Цитировать | Написать  
POST запрос
    #39838926
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
style1
Участник
Сергей Лалов,
ясно))
...
Рейтинг: 0 / 0
18.07.2019, 19:28
| Ответить | Цитировать | Написать  
POST запрос
    #39839595
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
style1
Участник
вопрос открыт
...
Рейтинг: 0 / 0
20.07.2019, 15:09
| Ответить | Цитировать | Написать  
POST запрос
    #39839598
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
style1,
на форуме есть поиск,если им воспользоваться, например
так
можно многое найти, например это 14734926
...
Рейтинг: 0 / 0
20.07.2019, 15:38
| Ответить | Цитировать | Написать  
POST запрос
    #39839604
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
style1
Участник
alecko,
я искал прежде чем написать)))
спасибо, поизучаю
...
Рейтинг: 0 / 0
20.07.2019, 17:38
| Ответить | Цитировать | Написать  
POST запрос
    #39842049
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
style1
Участник
Решилось вот так

в референс надо подключить 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
26.07.2019, 18:30
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
POST запрос
    #40122280
style1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
style1
Участник
Здравствуйте! Нужна помощь.
Никак не могу подключиться к удаленному серверу ни через 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
22.12.2021, 18:39
| Ответить | Цитировать | Написать  
POST запрос
    #40122720
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
style1,

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

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


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