转: vb调用webservice 另一方法
来源:互联网 发布:js重载div 编辑:程序博客网 时间:2024/04/30 09:04
转: http://hi.baidu.com/360930109/blog/item/fee87182b2376d96f703a659.html
利用SOAP协议
首先,需要引用 microsoft xml 6.0
在客户端调用时
'定义soap消息 这个消息可以在webservice调用过程获得。主要处理在soap12:Body
Dim strtest As String
' strtest = "<?xml version=""1.0"" encoding=""utf-8""?> "
' strtest = strtest + " <soap12:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap12=""http://www.w3.org/2003/05/soap-envelope""> "
' strtest = strtest + " <soap12:Body> "
' strtest = strtest + " <HelloWorld xmlns=""http://tempuri.org/""> "
' strtest = strtest + " <str>" + str + "</str> "
' strtest = strtest + " </HelloWorld> "
' strtest = strtest + " </soap12:Body> "
' strtest = strtest + " </soap12:Envelope> "
strtest = "<?xml version=""1.0"" encoding=""utf-8""?> "
strtest = strtest + " <soap12:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap12=""http://www.w3.org/2003/05/soap-envelope""> "
strtest = strtest + " <soap12:Body> "
strtest = strtest + " <returnclasstest xmlns=""http://tempuri.org/"" /> "
strtest = strtest + " </soap12:Body> "
strtest = strtest + " </soap12:Envelope> "
strxml = strtest
'定义一个http对象,一边向服务器发送post消息
Dim h As MSXML2.ServerXMLHTTP40
'定义一个XML的文档对象,将手写的或者接受的XML内容转换成XML对象
Dim x As MSXML2.DOMDocument40
'初始化XML对象
Set x = New MSXML2.DOMDocument40
'将手写的SOAP字符串转换为XML对象
x.loadXML strxml
'初始化http对象
Set h = New MSXML2.ServerXMLHTTP40
'向指定的URL发送Post消息。这里的webservice地址为需要引用的地址
h.open "POST", "http://localhost/webserice/Service.asmx", False
h.setRequestHeader "Content-Type", "text/xml"
h.send (strxml)
While h.readyState <> 4
Wend
'显示返回的XML信息
Text1.Text = h.responseText
至此,获得webservice返回消息成功 webservice返回值可以为自定义类
在VB6.0 vs2005下调试成功
下附webservice源码:
using System;
using System.Web;
using System.Web.Services;
using System.Web.Services.Protocols;
[WebService(Namespace = "http://tempuri.org/")]
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
public class Service : System.Web.Services.WebService
{
public Service () {
//如果使用设计的组件,请取消注释以下行
//InitializeComponent();
}
[WebMethod]
public string HelloWorld(string str) {
return "Hello World :" + str;
}
[WebMethod]
public int add(int i, int j)
{
return i + j;
}
[WebMethod]
public returnclass returnclasstest()
{
returnclass r = new returnclass();
r.ID = "IDtest";
r.NAME ="NAMEtest";
return r;
}
}
public class returnclass
{
public returnclass()
{ }
private string id;
private string name;
public string ID
{
get { return id; }
set { id = value; }
}
public string NAME
{
get { return name; }
set { name = value; }
}
}
- 转: vb调用webservice 另一方法
- 转: 用VB调用Webservice
- 用VB调用Webservice
- 用VB调用Webservice
- vb调用webservice(二)
- vb调用WebService
- 用VB调用Webservice(一)
- 关于VB 6.0 调用WebService
- vb.net调用webService源码
- 转: .Net,ASP,VB调用webservice的示例
- [转]几种调用WebService的方法
- webservice调用方法
- 调用WebService方法
- webservice的调用方法
- 调用WebService方法
- 动态调用WebService方法
- 动态调用WebService方法
- 动态调用WebService方法
- 服务器端ajax框架--------DWR实践总结
- 设计及设计模式:java23种模式一点就通
- [转]实战体会Java多线程编程精要
- WebBrowserDepthApi 一种WebBrowser与Script交互的接口
- xml文件的读取---根据XMl文件的ID读取对应的内容
- 转: vb调用webservice 另一方法
- IFrame的强制刷新
- java 快速读取大容量数据库的方法
- 3DGIS第三章 约束条件下二次误差度量简化方法
- 3DGIS第四章 视点相关的实时选择性细化
- 权限管理的好帮手,SU53+F5
- 3DGIS第五章 基于GPU的优化处理
- 非常有用的用户维护信息系统
- 匈牙利算法求二分图的最大匹配寻找增广路的几种思路(转)