如何在各种开发语言中调用web service

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

HTML网页中调用 方法

〈form target="_blank" action='http://www.ydcom.net/service/S_COMM.asmx/GetCZID' method="POST"〉

〈table cellspacing="0" cellpadding="4" frame="box" bordercolor="#dcdcdc" rules="none" style="border-collapse: collapse;"〉

〈tr〉

〈td class="frmHeader" background="#dcdcdc" style="border-right: 2px solid white;"〉参数〈/td〉

〈td class="frmHeader" background="#dcdcdc"〉值〈/td〉

〈/tr〉

〈tr〉

〈td class="frmText" style="color: #000000; font-weight: normal;"〉sTypeNum:〈/td〉

〈td〉〈input class="frmInput" type="text" size="50" name="sTypeNum"〉〈/td〉

〈/tr〉

〈tr〉

〈td〉〈/td〉

〈td align="right"〉 〈input type="submit" value="调用" class="button"〉〈/td〉

〈/tr〉

〈/table〉

〈/form〉

实例:如何调用服务产生18位关键值

相关文档: 使用vbscript脚本调用web服务

ASP中调用方法(SOAP方式)

Dim url,xmlhttp,dom,node,xmlDOC

'根据webservice的测试页不同的方法构造不同的soap request

SoapRequest = ""& _

"

"xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _

"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&""& _

""& _

""& _

"311"& _

""& _

""& _

""

url = "http://www.ydcom.net/service/S_COMM.asmx?methodname=GetCZID"

Set xmlDOC =server.CreateObject("MSXML.DOMDocument")

xmlDOC.loadXML(SoapRequest)

Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")

xmlhttp.Open "POST",url,false

xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"

xmlhttp.setRequestHeader "SOAPAction", "http://www.ydcom.net/service/SrvCOMM/S_COMM/GetCZID"

xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)

xmlhttp.Send(xmlDOC)

If xmlhttp.Status = 200 Then

xmlDOC.load(xmlhttp.responseXML)

Response.Write xmlhttp.Status&"

"

Response.Write xmlhttp.StatusText&"

执行结果为:"

Response.Write xmlDOC.getElementsByTagName("GetCZIDResult")(0).text

else

Response.Write xmlhttp.Status&"

"

Response.Write xmlhttp.StatusText

end if

%

实例:如何使用asp调用服务产生18位关键值 asp源文件代码

说明:总的来讲采用webservice的列表页说明来构造不同的SoapRequest,然后,

从返回xmlDoc中取返回值xmlDOC.getElementsByTagName

ASP中调用方法(HTTP方式)

Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")

Set xmlDOC =Server.CreateObject("MSXML.DOMDocument")

strWebserviceURL = "http://www.ydcom.net/service/S_COMM.asmx/GetCZID"

'设置参数及其值

strRequest = "sTypeNum=311"

objHTTP.Open "POST", strWebserviceURL, False

'设置这个Content-Type很重要

objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objHTTP.SetRequestHeader("Content-Length: 30")

objHTTP.Send(strRequest)

bOK = xmlDOC.load(objHTTP.responseXML)

'看看状态值

if objHTTP.Status=200 then

xmlStr = xmlDOC.xml

Response.Write xmlStr

else

Response.Write objHTTP.Statu&"

"

Response.Write objHTTP.StatusText

end if

%

实例:如何使用asp调用服务产生18位关键值 asp源文件代码

VB6中调用方法

Dim strxml As String

Dim str As String

str = Text2.Text

'定义soap消息

strxml = "

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/'" & str &

""

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

VB.NET中调用方法

1,首先添加web引用,地址为:http://www.ydcom.net/service/s_comm.asmx

2,定义:dim sCom as New net.ydcom.www.S_COMM

3,调用:dim strCZID as string = sComm.GetCZID("313")

实例:如何使用VB.NET调用服务产生18位关键值 VB.NET源文件代码

PB.NET(PB9)中调用方法

SoapConnection conn

Test_wsservice1soap sCom

long rVal

//string str_endpoint

//str_endpoint = "http://www.ydcom.net/service/s_comm.asmx?WSDL"

conn = create SoapConnection

rVal = Conn.CreateInstance(sCom, "test_wsservice1soap")

sle_1.text = sCom.GetCZID("313"))

destroy conn

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航