- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- httpclient问题求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135858)
-- 发布时间：2019/6/4 20:31:00
-- httpclient问题求助
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编辑过]
-- 发布时间：2019/6/4 20:36:00
--
不要使用httpclient，使用.net的用法
try
Dim httpURL As New System.Uri("http://127.0.0.1/gettime.htm")
Dim httpReq As System.Net.HttpWebRequest = System.Net.WebRequest.Create(httpURL)
httpReq.Method = "GET"
Dim httpResp As System.Net.HttpWebResponse = httpReq.GetResponse()
httpReq.KeepAlive = False
Dim reader As New IO.StreamReader(httpResp.GetResponseStream, System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd()
msgbox(respHTML )
catch
msgbox("出错")
end try
-- 发布时间：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()
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编辑过]
-- 发布时间：2019/6/4 21:07:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=124244&replyID=835360&skin=1