vb通过C#写的DLL实现与Java的WebService服务通讯(.net framework 4.0)

一、VB调用webservice常用方法：

需要安装SoapToolkit30.EXE,并在工程中引用Microsoft Soap Type Library v3.0

　 Private Sub CallWebService()

　　Dim m_spClient As New SoapClient30 'SoapClient30对象实例化

　　m_spClient.MSSoapInit "http://localhost/MCISWebService/vbtest.asmx?WSDL" '引用webservice

　　MsgBox m_spClient.ReceiveWeightRecord（text,pic1(),pic2()） '调用webservice方法，具体的参数内容省略

　　End Sub

这个是最常用的方法，C#和Java建立WebService服务做测试。

1、通过C#写了个WebService服务，服务内包含一个调用函数：

string receiveOtherWeightRecord(string weightString, byte[] uploadPicByte1, byte[] uploadPicByte2);

如果正常则WebService服务返回正常的提示信息。

VB通过该常用方法，初始化正常，并且可以正常发送数据和返回数据，OK没问题。

2、通过Java写了个WebService服务，服务内容同样包含上面一个函数。

VB通过该常用方法，初始化正常，但是不能正常发送数据和返回数据，提示错误为：



本人暂时还没有试成功，也希望热心朋友能给个建议！

二、C#调用WebService方法

1、鉴于VB调用Java写的WebService服务不能发送成功，没办法，然后我用C#写了一个客户端程序调用Java的WebService服务。很顺利的就连接并且发送成功！这里我不禁要怀疑微软提供的Microsoft Soap Type Library v3.0是否存在问题？

2、主要原项目是以前VB写的老程序，否则直接就用C#写啦！

三、C#写个连接和发送数据的DLL，供VB调用。

1、用C#新建一个项目，同时引用Java写的WebService服务。如下图所示：



2、如果生成的DLL能被VB调用，则需要进行如下修改：

（1）AssemblyInfo.cs文件的[assembly: ComVisible(true)]。如下图所示：



（2）右击WebServiceDLL属性，在“生成”栏输出项中，勾选“为COM互操作注册”的选择框。如下图所示：



（3）此时生成的DLL会报错，报错内容大致为：

成功注册了类型，类型库导出程序在处理“WebServiceDLL.ServiceReferenceWB.PreOtherWeightRecordServiceClient, WebServiceDLL”时发出警告。警告: 类型库导出程序遇到从泛型类派生并且未标记为 [ClassInterface(ClassInterfaceType.None)] 的类型。无法公开这种类型的类接口。请考虑用 [ClassInterface(ClassInterfaceType.None)] 标记该类型，并使用 ComDefaultInterface 特性向 COM 公开某个显式接口作为默认接口。成功注册了导出到“C:\MT\Project\2013\2013-07\WebService\WebServiceVB_Test\WebServiceDLL.tlb”的程序集和类型库...



比较关键的一步，在“解决方案资源管理器”点击“显示所有文件”，打开“Reference.cs”文件的PreOtherWeightRecordServiceClient函数前添加“[ClassInterface(ClassInterfaceType.None)]”标签。如下图所示：



（4）“生成”解决方案，此时将会生成WebServiceDLL.dll等文件，如下图所示：



（5）Windows7系统以管理员权限打开“Visual Studio命令提示(2010)”命令输入窗体，输入“regasm WebServiceDLL.dll /tlb: WebServiceDLL.tlb”，讲会提示注册成功的信息，如下图所示：



注意：如果是.Net FrameWork 2.0，则还可以用：

将生成的DLL及tlb注册（开始-->运行-->cmd）：
%WINdir%\Microsoft.NET\Framework\v2.0.50727\regasm.exe activex.dll /tlb:activex.tlb /codebase >>c:\my.txt
完成后会在C盘下出现my.txt的log文件。

主要处理操作系统没有安装“Visual Studio命令提示(2010)”的问题。

（6）VB直接引用的是WebServiceDLL.tlb文件，如下图所示：



（7）VB可以直接New到WebService类，并调用公共方法，如下：

Dim objWebServiceDLL As WebServiceManager

Set objWebServiceDLL = New WebServiceManager

msgbox objWebServiceDLL.ConnectWebService("Test", txtURL.Text)

Set objWebServiceDLL = nothing

（8）结果发现程序报错，如下：



（9）比较关键的一步，C#下的app.config文件拷贝到vb程序的目录下，并且需要将app.config文件更改为VB程序编译后文件名同名的.config文件。如下图所示：





注意：如果是.Net FrameWork 2.0，则不需要将同文件名的.config文件。

（10）必须编译好了之后才能与WebService进行通讯，否则用VB源代码连接时，程序会报错，如下图所示：



3、VB编译后调用C#的Dll与Java写的WebService通讯程序就可以实现了。

四、参考文献

1、http://blog.163.com/jackie_dai@126/blog/static/34830764201181524125/

2、http://developer.51cto.com/art/200908/144594.htm

3、http://www.sufeinet.com/thread-1685-1-1.html