Ошибка VB 6.0 при доступе к веб-службе: 2146697208 - PullRequest
Новая
       53

Ошибка VB 6.0 при доступе к веб-службе: 2146697208

0 голосов
/ 18 декабря 2018

Я получаю сообщение об ошибке: -2146697208 при отправке xml на веб-службу шлюза оплаты.Приложение разработано на VB6.0, а ОС - Microsoft Windows Server 2003.

А также код отлично работает в Windows XP, и я проверил то же самое с помощью сторонних инструментов для тестирования веб-сервисов (SOAP UI)в системе Windows Embedded Standard и работает нормально.Похоже, проблема связана с VB6.0 и ОС.Пожалуйста помоги.

Фрагмент кода: 

 On Error GoTo 0
'Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

 PaymentURL = "https://testpayments.globalone.me/merchant/xmlpayment"

 Dim http As Object

 Set http = CreateObject("MSXML2.XMLHTTP.6.0")

 http.Open "POST", PaymentURL, False

 http.setRequestHeader "Content-Type", "text/xml"

http.setRequestHeader "User-Agent", "Mozilla/5.0 (iPad; U; CPU OS 3_2_1 like Mac OS X; en-us) AppleWebKit/531.21.10 (KHTML, like Gecko) Mobile/7B405"

http.send (xmldata) (error is thrown here)

Пожалуйста, помогите мне.

Спасибо

...