webservice调用报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、vsWEB引用

此主题相关图片如下：微信图片_20201127170515.png

2、Public Class Class1
    Public Function execute(ByVal routeIdField As String, ByVal signDataField As String, ByVal callerIdField As String, ByVal userIdField As String, ByVal transIdField As String, ByVal referenceIdField As String,
                     ByVal referenceTimeField As String, ByVal signTypeField As String, ByVal reserveField As String, ByVal returnCodeField As String, ByVal errorCodeField As String, ByVal errorMsgField As String,
                     ByVal recordField As String, ByVal typeField As String, ByVal recordsField As String()) As String
        Dim obj As New WebReference.TargetService
        Dim str2 As New WebReference.recordsType
        str2.type = typeField
        str2.record = recordsField

        Dim strheader As New WebReference.headerType
        strheader.callerId = callerIdField
        strheader.userId = userIdField
        strheader.transId = transIdField
        strheader.referenceId = referenceIdField
        strheader.referenceTime = referenceTimeField
        strheader.signType = signTypeField
        strheader.reserve = reserveField
        strheader.returnCode = returnCodeField
        strheader.errorCode = errorCodeField
        strheader.errorMsg = errorMsgField

        Dim strbody As New WebReference.bodyType
        strbody.record = recordField
        strbody.records = {str2}

        Dim Str As New WebReference.executeMsgType
        Str.routeId = routeIdField
        Str.header = strheader
        Str.body = strbody
        Str.signData = signDataField

Return obj.execute(Str).routeId
End Function
End Class

3、Dim dl As new ClassLibrary14.Class1()
Dim str5 As String = dl.execute("ZG10JH0201","","ZG00000002","8348","","","","","","","","","{""MessageHeader"":{""MessageType"":""5002"",""IsZip"":""0"",""HospitalId"":""8348"",""HospitalRegion"":""330799"",""IPAddress"":""192.192.106.139"",""MacAddress"":""8C-16-45-96-0B-A1"",""BmiNo"":""A33492489"",""BmiNoIden"":""A33492489330799D15600000529418E405EFC597B"",""AdmissionNo"":""10592"",""InsuredPersonRegion"":""330799"",""TransactionDate"":""2020-11-11 09:30:55"",""HospitalVerifyCode"":""eN3bzL9UF/LV+qk6fMF80Q==""}}","",{})
e.Form.Controls("TextBox3").text = str5

4、报错

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：窗口,窗口1,Button3,Click
详细错误信息：
XML 文档(2, 2)中有错误。
未识别指定的类型: name='executeResponse'，namespace='http://www.jhlss.gov.cn/esb/TargetService'，位于 <executeResponse xmlns='http://www.jhlss.gov.cn/esb/TargetService'>。

引用时，显示找到的服务是RouteService，但引用后，我找不到这个服务，跟这个有关系吗？

[此贴子已经被作者于2020/11/27 18:15:53编辑过]

地址外网无法访问

[此贴子已经被作者于2020/11/27 18:33:23编辑过]

此主题相关图片如下：微信图片_20201127182443.png

请问下，我看了上传数据是已经成功了，就是返回信息解析好像有问题，我想将返回的routeId的值显示出来，但是报错：未将对象引用设置到对象的实例。，能帮忙看下VS中写的哪里有问题吗？

Public Class Class1
    Public Function ServiceReference1_TargetServiceInterface_execute(ByVal routeIdField As String, ByVal signDataField As String, ByVal callerIdField As String,
                                                                     ByVal userIdField As String, ByVal transIdField As String, ByVal referenceIdField As String,
                     ByVal referenceTimeField As String, ByVal signTypeField As String, ByVal reserveField As String, ByVal returnCodeField As String,
                                                                     ByVal errorCodeField As String, ByVal errorMsgField As String,
                     ByVal recordField As String, ByVal typeField As String, ByVal recordsField As String()) As String
        Dim str2 As New ServiceReference1.recordsType
        str2.type = typeField
        str2.record = recordsField

        Dim strheader As New ServiceReference1.headerType
        strheader.callerId = callerIdField
        strheader.userId = userIdField
        strheader.transId = transIdField
        strheader.referenceId = referenceIdField
        strheader.referenceTime = referenceTimeField
        strheader.signType = signTypeField
        strheader.reserve = reserveField
        strheader.returnCode = returnCodeField
        strheader.errorCode = errorCodeField
        strheader.errorMsg = errorMsgField

        Dim strbody As New ServiceReference1.bodyType
        strbody.record = recordField
        strbody.records = {str2}

        Dim Str As New ServiceReference1.executeMsgType
        Str.routeId = routeIdField
        Str.header = strheader
        Str.body = strbody
        Str.signData = signDataField

        Dim str3 As New ServiceReference1.executeRequest
        str3.execute = Str
        'obj.execute(str3)

        Dim obj As New ServiceReference1.TargetServiceInterfaceClient
        Dim st10 As ServiceReference1.executeResponse = obj.ServiceReference1_TargetServiceInterface_execute(str3)
        Dim st11 As String = st10.executeResponse1.routeId
        Return st11
    End Function
End Class

主题：webservice调用报错