FT 调用webservice例子 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FT 调用webservice例子

共有5633人关注过本帖树形打印复制链接主题：FT 调用webservice例子

kunmails

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：372 积分：3213 威望：0 精华：0 注册：2013/5/6 10:15:00

FT 调用webservice例子 发帖心情

Post By：2015/8/27 16:28:00 [只看该作者]

看到论坛上有人用FT调用webservice做天气预报，但都是通过get 方式调用，有没有通过post方式调用的例子

原帖地址 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=38007&replyID=&skin=1

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/27 16:31:00 [只看该作者]

直接就行

Dim url As String = "http://www.foxtable.com"

Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

Dim stm As System.IO.Stream = rsps.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

rsps.Close
stm.Close
reader.close

msgbox(str)

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/27 16:41:00 [只看该作者]

Post的参考

Dim msg As String = ""

Dim req = System.Net.WebRequest.Create("http://www.shozaioh.com/member_login?email=qlc%40qlc.jp&passwd=qianqian&cmd=login")
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
req.ContentLength = msg.Length

Dim pos = req.GetResponse

Dim stm As System.IO.Stream = pos.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

pos.Close
stm.Close
reader.close

msgbox("成功")

----------------------------

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54957&replyID=366223&skin=1

[此贴子已经被作者于2015/8/27 16:41:38编辑过]

kunmails

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：372 积分：3213 威望：0 精华：0 注册：2013/5/6 10:15:00

Post By：2015/8/27 17:00:00 [只看该作者]

袍哥还是不明白怎么传参数

能否就 http://webservice.webxml.com.cn/WebServices/MobileCodeWS.asmx?op=getDatabaseInfo

这个例子写下代码

[此贴子已经被作者于2015/8/27 17:08:47编辑过]

kunmails

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：372 积分：3213 威望：0 精华：0 注册：2013/5/6 10:15:00

Post By：2015/8/27 17:16:00 [只看该作者]

袍哥帮忙看下！

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/27 18:36:00 [只看该作者]

看楼上啊，已经很明显了啊。换个网址就行啊

kunmails

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：372 积分：3213 威望：0 精华：0 注册：2013/5/6 10:15:00

Post By：2015/8/28 9:14:00 [只看该作者]

袍哥

帮忙看下

还是不明白怎么传入参数，怎么获取返回值！

http://webservice.webxml.com.cn/WebServices/MobileCodeWS.asmx?op=getDatabaseInfo

写个简单的代码参考下！

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/28 9:15:00 [只看该作者]

以下是引用大红袍在2015/8/27 18:36:00的发言：
看楼上啊，已经很明显了啊。换个网址就行啊

大红袍

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/28 9:20:00 [只看该作者]

Dim msg As String = ""

Dim req = System.Net.WebRequest.Create("http://webservice.webxml.com.cn/WebServices/MobileCodeWS.asmx/getDatabaseInfo")
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
req.ContentLength = msg.Length

Dim pos = req.GetResponse

Dim stm As System.IO.Stream = pos.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

pos.Close
stm.Close
reader.close

msgbox(str)

kunmails

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：372 积分：3213 威望：0 精华：0 注册：2013/5/6 10:15:00

Post By：2015/8/28 9:47:00 [只看该作者]

袍哥，这个接口我用GET 方法传入参数就没有问题，但是用POST方法就出错

用post 方法该怎么传入这两个参数呢？

Dim msg As String = ""

Dim c As String = "http://webservice.webxml.com.cn/WebServices/MobileCodeWS.asmx/getMobileCodeInfo?mobileCode=15091267272&userID="

Dim req = System.Net.WebRequest.Create(c)

req.Method = "GET"

req.C

req.ContentLength = msg.Length

Dim pos = req.GetResponse

Dim stm As System.IO.Stream = pos.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

pos.Close

stm.Close

reader.close

msgbox(str)

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：FT 调用webservice例子