none
VB接收WCF传递的参数 RRS feed

  • 问题

  • C#WCF契约定义如下:

        [ServiceContract]
        public interface IWcfForVB
        {

            [OperationContract]
            string[] CallbyVB6_3(string[] output);
        }

    vb6 调用方法的代码如下:

        Dim objGet1 As Variant
        Dim objGet2 As Variant

        '' 服务的地址,可以从配置文件取出
        mexMonikerString = "service:mexAddress='http://localhost:8732/Design_Time_Addresses/WcfForVB6/WcfForVB/mex'"  ''元数据地址配置
        mexMonikerString = mexMonikerString + ", address='http://localhost:8732/Design_Time_Addresses/WcfForVB6/WcfForVB/'"    ''终结点地址配置
       
       
        mexMonikerString = mexMonikerString + ", binding=WSHttpBinding_IWcfForVB, bindingNamespace='http://tempuri.org/'"
        mexMonikerString = mexMonikerString + ", contract=IWcfForVB, contractNamespace='http://tempuri.org/'"
       
        '' 获取对象
        Set mexService = GetObject(mexMonikerString)

    objGet1 = mexService.CallbyVB6_3(objGet2)

    这里vb6无法传递一个数组参数到wcf方法中

    请注意我是vb6不是vb.net

    2015年8月7日 6:10