SOAP веб-сервис: как разобрать фрагментарный ответ с VB - PullRequest
0 голосов
/ 13 марта 2020

Я управляю устаревшим приложением, которое все еще использует vb, и одна из задач, которые мне нужно сделать, это добавить новый веб-сервис soap, и он не работает, потому что ответ имеет кодировку: chunked.

Я добавляю сервисную ссылку в визуальную студию и так называю сервис. так что мой вопрос, как гласит заголовок. Это моя раздетая версия моей фактической обработки

Module Module1

        Sub Main()
            Try

                Dim prompVar As New ServiceReference2.Prompts_TypeDefPROMPT
                Dim props(0) As ServiceReference2.Prompts_TypeDefPROMPT
                prompVar.UniquePromptName = "BIND1"
                prompVar.FieldValue = "00000754"

                props(0) = prompVar

                Dim ax As New ServiceReference2.AxisValues            
                Dim param3 As New ServiceReference2.QAS_EXEQRY_SYNC_REQ_MSGType
                Dim paramv1 As New ServiceReference2.QAS_EXEQRY_SYNC_REQ_MSGVERSION_1
                Dim parQAS As New ServiceReference2.QAS_EXEQRY_SYNC_REQ_TypeShape

                parQAS.QueryName = "MBAP_MZ_WS_BY_VCHR_ID"
                parQAS.Prompts = props

                param3.QAS_EXEQRY_SYNC_REQ = parQAS

                Dim ws As ServiceReference2.MB_QAS_PortTypeClient = ServiceConfig.ConfigureServiceProxy(Of ServiceReference2.MB_QAS_PortTypeClient)("http://127.0.0.1:8080")
                Dim testCal = ws.MB_QAS_EXEC(ax, ss, param3).query

                Dim test = ws.MB_QAS_EXEC(ax, Nothing, param3)
                'At this point, the properties of test are all nothing
            Catch ex As Exception
                Console.WriteLine(ex)
            End Try
        End Sub
    End Module

Результат проверки скрипача следующий:

enter image description here

Я прочитал о том, что такое chunked-кодирование и как оно работает, но я не знаю, как применить это к потреблению SOAP веб-сервисов

...