调用WS提示参数错误

chinasa　发表于：2016-06-01 14:21:56 　

请各位老师给予指点，万分感谢！

    Dim MySoap As SoapClient30
    Dim Result As Integer 'webservice接口返回代码
    Dim AAA As String
    Dim CustomEXPass '海关出口双信息放行
    Dim Headinfo As String '传入数据

    Headinfo = "XXXX:YYYYY:ZZZZ:AAAA:BBBB:CC:DDDDDD:EEEEE: FFFFF:GGGGG"

     Set MySoap = New SoapClient30
     MySoap.MSSoapInit2 "http://222.22.222.22:8888/com.port.ediesb.service.EDIESBService?wsdl", "", "", "", ""
     MySoap.ConnectorProperty("Timeout") = 3600000
     MySoap.ConnectorProperty("AuthUser") = "XXXXX"
     MySoap.ConnectorProperty("AuthPassword") = "YYYYYY"

AAA = MySoap.CallEDIESB("ABC", CustomEXPass, Headinfo, "XXXXX", "YYYYY")
'函数定义 String callEDIESB(String fromNode, String esbID, String applyData, String userId, String password)

MsgBox AAA

Top

金宇发表于：2016-06-02 08:10:19

提示你参数有误，那得检查服务器是否只接收这几个参数？

Top

chinasa 发表于：2016-06-02 09:13:28

感谢管理员！

下面是对方给我的函数说明，由于对方是专业机构，而我属于菜鸟，所以我感觉应该是自己的代码问题，能否帮我看看我的代码是否有问题？

EDIESBService

接口函数：

/* 函数名：callEDIESB */

/* 参数：fromNode –调用方(EDI提供，固定) */

/* 参数：esbID – 调用的服务ID，详见esbID定义 */

/* 参数：applyData –请求的数据项定义，详见具体接口定义 */

/* 参数：userID –用户ID，EDI统一管理 */

/* 参数：password 用户密码，EDI统一管理 */

/* 返回：string – 返回的数据项定义，详见具体接口定义 */

String callEDIESB(String fromNode, String esbID, String applyData, String userId, String password)

Top

chinasa 发表于：2016-06-02 09:15:55

    Dim MySoap As SoapClient30
    Dim AAA As String

    Dim fromNode As String
    Dim esbID As String
    Dim applyData As String
    Dim userId As String
    Dim password As String

    fromNode = "ABCDEF"
    esbID = "IDIDID"
    applyData = "XXX:AAA:YYY"
    userId = "YHM"
    password = "MM"

     Set MySoap = New SoapClient30
     MySoap.MSSoapInit2 "http://222.22.222.22:8888/com.port.ediesb.service.EDIESBService?wsdl", "", "", "", ""
     MySoap.ConnectorProperty("Timeout") = 3600000