在VB6或ASP中调用webservice

原创 2004年05月24日 14:29:00

VB6ASP中调用webservice

 

Web Services技术使异种计算环境之间可以共享数据和通信,达到信息的一致性。我们可以利用

HTTP POST/GET协议、SOAP协议来调用Web Services

 

一、            利用SOAP协议在VB6中调用Web Services

 

;        首先利用.net发布一个简单的Web Services

<WebMethod()> _

         Public Function getString(ByVal str As String) As String

             Return "Hello World, " & str & ""

End Function

Web Services只包含一个getString方法,用于返回一个字符串。当我们调用这个Web Services时,发送给.asmx页面的SOAP消息为:

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi=http://www.w3.org/2001/XMLSchema-instance
 xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://
schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <getString xmlns="http://tempuri.org/TestWebService/Service1">
      <str>string</str>
    </getString>
  </soap:Body>
</soap:Envelope>

而返回的SOAP消息为:

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi=http://www.w3.org/2001/XMLSchema-instance
 xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="
http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <getStringResponse xmlns="http://tempuri.org/TestWebService/Service1">
      <getStringResult>string</getStringResult>
    </getStringResponse>
  </soap:Body>
</soap:Envelope>

 

;        VB6中调用这个简单的Web Services可以利用利用XMLHTTP协议向.asmx页面发

SOAP来实现。

VB6中,建立一个简单的工程,界面如图,我们通过点击Button来调用这个简

单的Web Services

Dim strxml As String

Dim str As String

str = Text2.Text

'定义soap消息

strxml = "<?xml version='1.0' encoding='utf-8'?><soap:Envelope

xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'

xmlns:xsd='http://www.w3.org/2001/XMLSchema'

xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'><soap:Body><getString xmlns='http://tempuri.org/TestWebService/Service1'><str>" & str &

"</str></getString></soap:Body></soap:Envelope>"

 

'定义一个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消息

h.open "POST", "http://localhost/TestWebService/Service1.asmx", False

h.setRequestHeader "Content-Type", "text/xml"

h.send (strxml)

While h.readyState <> 4

Wend

'显示返回的XML信息

Text1.Text = h.responseText

'将返回的XML信息解析并且显示返回值

Set x = New MSXML2.DOMDocument40

x.loadXML Text1.Text

Text1.Text = x.childNodes(1).Text

 

         我们在TEXTBOX中输入“中国”,再点击BUTTON,于是就可以在下边的TEXTBOX中显示“Hello World, 中国” 。显示如图:

 

                                    

 

 

 

 

 

几种调用WebService的方法

. 在JavaScript中调用WebService function PostRequestData(URL,data){ var xmlhttp = new ActiveXObject("Mic...
  • bluemoonright
  • bluemoonright
  • 2006年11月23日 16:13
  • 789

android string.xml中使用占位符

不得不佩服android studio强大,以前写代码只关注了是否拼写出错,现在根据studio的提示去操作,发现string.xml还可以写占位符!!!这下可以方便我对所有带参的文字的统一管理了。 ...
  • u011544271
  • u011544271
  • 2016年07月08日 22:31
  • 6730

在string.xml显示%

4.依据《定向委托投资管理协议》委托人自愿将合法所有的资金委托给资管公司投资于合作机构推荐的收益波动幅度低、信用风险低并且流动性良好的理财产品,包括但不限于合作机构推荐的应收账款类项目、抵押/信用借款...
  • zhuhai__yizhi
  • zhuhai__yizhi
  • 2016年04月27日 11:10
  • 299

在VB6或ASP中调用webservice

在VB6或ASP中调用webservice 版权声明:CSDN是本Blog托管服务提供商。如本文牵涉版权问题,CSDN不承担相关责任,请版权拥有者直接与文章作者联系解决。在VB6或ASP中调用web...
  • colayungnew
  • colayungnew
  • 2004年10月05日 12:56
  • 762

VB6.0调用WebServices的简单示例

  在.NET平台中期望值最高,广告做的最多的要算是WebServices了。WebServices是Web上的类,与Web应用程序不同的是,这个类不返回HTML页面,只以XML文档返回一个或几个值。...
  • vbman2003
  • vbman2003
  • 2007年08月30日 14:36
  • 28833

在string.xml文件中定义一个字符串,然后在代码中通过String.format方法来格式化该字符串

格式化字符串资源的格式为: %+参数位置+$+格式化类型 参 数 位 置:从1开始依次编号,String.forma方法的第二个参数为格式化的第一个参数,后面依次递增; 格式化类型:...
  • Scorpio_gao
  • Scorpio_gao
  • 2016年06月17日 16:07
  • 869

XML的解析和XML字符串互转的方法

原作者上一共讲述了四中转换XML的方法,但是我觉得方法只要会一种就好,而且是那种最简单的,这个也是软件设计本身的原则,一方面为了软件开发便利,另一方面也对效率方面的要求不是特别高,我自己最喜欢用dom...
  • gengyazhou123
  • gengyazhou123
  • 2016年07月04日 22:08
  • 4905

ASP通过SOAP调用WebService

刚才研究了下怎么用ASP调用WebService,其实调用WebService返回数据很简单,但怎么去请求WebService就不太清楚了。查了一些资料,试着用SOAP来做请求,同时返回结果,第一次没...
  • sy_binbin
  • sy_binbin
  • 2009年03月12日 16:13
  • 6333

使用ASP调用WebService的一点心得

公司的一个Web网站使用的是ASP,最近对这个网站进行优化,整合。因为做了禁止匿名用户访问的设置,所以希望同时能够抓取到登录用户的域内显示的名字。因为本人有点笨,找不到用ASP访问AD的方法,所以就建...
  • zlz_212
  • zlz_212
  • 2006年05月17日 09:39
  • 986

Android小技巧之相见恨晚系列-TextView/string.xml冷门小技巧:占位转换符%1$s、%1$d等的用法

技巧比较冷门,我今天用到才了解到,以前都没接触过。。。然而却发现这是很早就已经有的技巧。。。 引子: 如果一段文字需要多段TextView拼接而成,比如:“我叫XXX,今年XX岁了,身高X.X米”...
  • guquan12315
  • guquan12315
  • 2017年09月21日 16:24
  • 142
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB6或ASP中调用webservice
举报原因:
原因补充:

(最多只允许输入30个字)