vb调用java webservice_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通讯程序就可以实现了。

四、参考文献