Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共82 条记录, 每页显示 10 条, 页签: [1] [2][3][4][5][6][7][8]
[浏览完整版]

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

1楼
xdongx 发表于: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编辑过]
2楼
zpx_2012 发表于:2013/9/14 0:20:00
顶下
3楼
lsy 发表于:2013/9/14 7:20:00

好,顶帖的人来了。

 

4楼
Bin 发表于:2013/9/14 11:56:00
5楼
blackzhu 发表于:2013/9/14 13:37:00
看看这个

6楼
langui 发表于:2013/9/16 16:16:00
谢谢了
7楼
wssylxb 发表于:2013/9/16 20:19:00
高!这个内容我正需要,万分感激!
8楼
comnets 发表于:2013/9/17 19:14:00
顶起!
9楼
wangzhe001 发表于:2013/9/18 9:15:00
谢谢楼主分享
10楼
xiandou 发表于:2013/9/28 20:27:00
这个好,可以用来调用我需要的信息
共82 条记录, 每页显示 10 条, 页签: [1] [2][3][4][5][6][7][8]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04297 s, 4 queries.