Foxtable(狐表)用户栏目专家坐堂 → httpclient问题求助


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

主题:httpclient问题求助

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


加好友 发短信
等级:三尾狐 帖子:637 积分:7362 威望:0 精华:1 注册:2013/11/26 7:49:00
httpclient问题求助  发帖心情 Post By:2019/6/4 20:31:00 [显示全部帖子]

1、在服务端项目的HttpRequest事件中设置代码:

Select Case e.Path
    Case "gettime.htm"
       
e.WriteString(Date.now)
End
Select

2、在客户端项目通过下面的代码,即可获取服务器时间:

Dim hc As New HttpClient("http://127.0.0.1/gettime.htm")
Dim
dt As Date = hc.GetData()
MessageBox
.Show(dt)



请问一下老师:

如果服务连不上就会弹出以下图片的错误 ,

请问一下老师,客户端代码要怎么修改才能不弹出这个错!

比如说dt或取不到,就给dt另外赋值


图片点击可在新窗口打开查看此主题相关图片如下:11111111.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/6/4 20:31:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
bobolan521
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:7362 威望:0 精华:1 注册:2013/11/26 7:49:00
  发帖心情 Post By:2019/6/4 20:44:00 [显示全部帖子]

谢谢老师,再问个问题如果要传递几个参数该怎么办啊
请老师请教

Dim hc As New HttpClient("http://127.0.0.1/AddNew.htm")
hc
.FormData.Add("产品","PD01")
hc
.FormData.Add("客户","CS01")
hc.FormData.Add("数量","100")
hc
.FormData.Add("单价","98")
hc
.FormData.Add("日期",Date.Today)
Dim
ret As String = hc.getData()
[此贴子已经被作者于2019/6/4 20:55:49编辑过]

 回到顶部