最简单的vb6访问Web服务(WSDL)的组件
2006-08-25 16:49
357 查看
(声明:魏滔序原创,转贴请注明出处。)
闲暇之余写了这个SOAP组件,下载试用的请回复一下。
请把你试用中遇到的问题告诉我,我完善后开源。
下载地址:http://www.chenoe.com/developer/library/soap.dll
示例代码:
Option Explicit
Private WithEvents SOAP As SOAPClient
Private Sub Command1_Click()
Dim url As String
Dim a As String, b As String, c As Integer
url = "http://www.chenoe.com/WebService/WS.asmx" '只为测试,本地址无效。
SOAP.Timeout = 10000
If SOAP.Initialize(url, , , 0) Then
MsgBox SOAP.CallWebService("GetProtocol", a, b, c)
End If
End Sub
Private Sub Form_Load()
Set SOAP = New SOAPClient
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set SOAP = Nothing
End Sub
Private Sub SOAP_Error(ByVal Code As Long, ByVal Description As String, ByVal ServerResult As String)
MsgBox Description & vbCrLf & ServerResult '错误信息
End Sub
Private Sub SOAP_Progress(ByVal Value As Long)
Me.ProgressBar1.Value = Value '显示进度
End Sub
闲暇之余写了这个SOAP组件,下载试用的请回复一下。
请把你试用中遇到的问题告诉我,我完善后开源。
下载地址:http://www.chenoe.com/developer/library/soap.dll
示例代码:
Option Explicit
Private WithEvents SOAP As SOAPClient
Private Sub Command1_Click()
Dim url As String
Dim a As String, b As String, c As Integer
url = "http://www.chenoe.com/WebService/WS.asmx" '只为测试,本地址无效。
SOAP.Timeout = 10000
If SOAP.Initialize(url, , , 0) Then
MsgBox SOAP.CallWebService("GetProtocol", a, b, c)
End If
End Sub
Private Sub Form_Load()
Set SOAP = New SOAPClient
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set SOAP = Nothing
End Sub
Private Sub SOAP_Error(ByVal Code As Long, ByVal Description As String, ByVal ServerResult As String)
MsgBox Description & vbCrLf & ServerResult '错误信息
End Sub
Private Sub SOAP_Progress(ByVal Value As Long)
Me.ProgressBar1.Value = Value '显示进度
End Sub
相关文章推荐
- 最简单的vb6访问Web服务(WSDL)的组件
- 简单得创建JAVASCRIPTE WEB丰富界面以及与JAVA服务互相访问
- 构建简单的 C++ 服务组件,第 2 部分: 通过服务组件体系结构使用 Python、Ruby 和 Web 服务
- Python(27)使用python的http,cgi模块实现一个简单的web服务
- Web服务枚举组件不可用,需要重新安装VStudio”
- iOS开发使用SOAP访问Web服务
- 利用svcutil.exe 访问windows Server 2003的wcf服务生成客户端代码报错:无法从http://XXX/XXX.svc?wsdl获取元数据”错误的解决方法
- Web服务基础四之Apache访问控制 推荐
- 使用Axis发布简单的Web服务
- 【转】使用SOAP访问Web服务
- RHEL4- WEB服务(十二)用户访问apache服务器认证
- 局域网访问虚拟机里面的Web的服务
- .net程序或web服务无法访问oracle数据库,解决
- web 服务的简单部署,httpd
- 访问Vbox的web服务
- [置顶] WSDL[Web 服务描述语言]
- 【Python】 最简单的web服务
- 今天2003的iis 始终无法访问。net2.0的项目,原来是web服务扩展没有2.0的扩展 下面是加上的方法
- Axis的Web服务开发 --- 客户端访问Axis2的服务
- Web服务枚举组件不可用