Foxtable(狐表)用户栏目专家坐堂 → [分享]调用WebServices的另一种方法,支持SOAP方式调用


  共有34107人关注过本帖树形打印复制链接

主题:[分享]调用WebServices的另一种方法,支持SOAP方式调用

帅哥哟,离线,有人找我吗?
xdongx
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:76 积分:804 威望:0 精华:1 注册:2013/7/19 21:34:00
[分享]调用WebServices的另一种方法,支持SOAP方式调用  发帖心情 Post By:2013/9/13 23:16:00 [显示全部帖子]

调用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编辑过]

 回到顶部