以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [分享]调用WebServices的另一种方法,支持SOAP方式调用  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40280)

--  作者:xdongx
--  发布时间:2013/9/13 23:16:00
--  [分享]调用WebServices的另一种方法,支持SOAP方式调用
调用WebServices遇到问题,有些服务未提供URL调用支持。
经有点甜指点,测试成功。
问题贴: http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40202&skin=0

分享C#编译后的DLL库。

以下内容只有回复后才可以浏览


调用方式:
1、引用HDSoft.Lib.dll
2、Dim arg(1) As String  \'定义查询参数:加入有两个参数,根据实际数量定义
3、arg(0) = e.Form.Controls("TextBox1").Text  \'按WebServices参数顺序依次赋值
4、arg(1) = e.Form.Controls("TextBox2").Text  \'
5、Dim obj As object = HDSoft.Lib.WebServices.InvokeWebService("http://服务地址/path/服务名.asmx","方法名",arg) 
6、根据返回结果判断是否成功。如果调用时发生错误,返回null。
============================
\'假设测试的服务为验证用户密码的,返回1为验证成功,0不成功。
Dim obj As object = HDSoft.Lib.WebServices.InvokeWebService("https://test.com.cn/MYWS/MyService.asmx","AuthUser",arg)
If obj=Nothing Then
    e.Form.Controls("Label1").Text = "连接服务器错误,请检查网络."
Else
    If obj.ToString() = 1
        e.Form.Controls("Label1").Text = "登录成功"
    Else
        e.Form.Controls("Label1").Text = "用户或密码错误,登录失败."
    End If
End If
[此贴子已经被作者于2013-9-13 23:19:08编辑过]

--  作者:zpx_2012
--  发布时间:2013/9/14 0:20:00
--  
顶下
--  作者:lsy
--  发布时间:2013/9/14 7:20:00
--  

好,顶帖的人来了。

 


--  作者:Bin
--  发布时间:2013/9/14 11:56:00
--  

--  作者:blackzhu
--  发布时间:2013/9/14 13:37:00
--  
看看这个


--  作者:langui
--  发布时间:2013/9/16 16:16:00
--  
谢谢了
--  作者:wssylxb
--  发布时间:2013/9/16 20:19:00
--  
高!这个内容我正需要,万分感激!
--  作者:comnets
--  发布时间:2013/9/17 19:14:00
--  
顶起!
--  作者:wangzhe001
--  发布时间:2013/9/18 9:15:00
--  
谢谢楼主分享
--  作者:xiandou
--  发布时间:2013/9/28 20:27:00
--  
这个好,可以用来调用我需要的信息