VB.NET简单的调用我已经写好的WebService方法的问题请大家帮助。
蛋蛋の忧伤 2011-01-15 01:15:10 下面是我用VB.NET写的一个webservice里德一个方法,让别的程序访问,当他调用我们这个HHHHsendRequest方法的时候
写入我的
.asmx文件地址:http://我的IP/TEST/Service1.asmx
当调用我这个接口的时候通过HTTP post方式传给我一个数据流
流的内容是一个XML的内容
<?xml version="1.0" encoding="UTF-8" ?> >
<list>
<name>张三</name>
<no>123456</no>
</list>
当传入我的接口的时候我使用下面的HHHHsendRequest方法获得这个数据流,然后转换为XML文件
然后经过我的业务逻辑处理后返回给用户更才传入的XML(数据流)的内容
以DataSet的方式返回给调用者。
我现在需要测试一下是否可以成功。
大家能否给一个例子,谢谢了
我也不知道这样描述对不对。请大家赐教。
<WebMethod()> _
Public Function HHHHsendRequest(ByVal url As String) As DataSet
Dim request As HttpWebRequest = Nothing
Dim response As HttpWebResponse = Nothing
Dim stream As Stream = Nothing
Dim reader As StreamReader = Nothing
Dim ds As DataSet = Nothing
Dim b_temp As String = Nothing
Dim byteOut As Byte() = Nothing
Try
request = DirectCast(WebRequest.Create(url), HttpWebRequest)
response = DirectCast(request.GetResponse(), HttpWebResponse)
stream = response.GetResponseStream()
reader = New StreamReader(stream, System.Text.Encoding.[Default])
ds = New DataSet()
ds.ReadXmlSchema(reader)
ds.ReadXml(reader)
stream.Close()
For Each cRow As DataRow In ds.Tables(0).Rows
System.Console.WriteLine(cRow.ToString)
Next
MsgBox("OK")
Return ds
Catch e As Exception
Throw New Exception("向 " & url & "发送请求时出错: " & e.ToString())
End Try
'Return ds
End Function