十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
思路
创新互联公司是专业的鄂托克网站建设公司,鄂托克接单;提供成都做网站、成都网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行鄂托克网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
socket 按次传输,
第一次 文件大小
第二次 文件名
第三次 文件类型
第四次以后 文件数据传输
以上规则仅供参考,具体规则,自己根据实际情况设计
httpwebrequest和webrequest差不多。
Public Sub MakeSearch()
Try
Dim Http As Net.HttpWebRequest
Http = DirectCast(System.Net.HttpWebRequest.Create(“网络地址?get参数”), Net.HttpWebRequest)
Http.Method = "GET"
Http.KeepAlive = True
Using Rev As New IO.StreamReader(Http.GetResponse.GetResponseStream, System.Text.Encoding.Default)
MakeSearchHtml = Rev.ReadToEnd
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub ShowResult()
Try
Dim Http As Net.HttpWebRequest
Http = DirectCast(System.Net.HttpWebRequest.Create(“post服务器地址”), Net.HttpWebRequest)
Http.Method = "POST"
Http.ContentType = "application/x-www-form-urlencoded"
Http.KeepAlive = True
Using Send As New IO.StreamWriter(Http.GetRequestStream, System.Text.Encoding.Default)
Send.Write(CommandLine)'跟服务器通讯的命令。
Send.Flush()
End Using
Using Rev As New IO.StreamReader(Http.GetResponse.GetResponseStream, System.Text.Encoding.Default)
ShowResultHtml = Rev.ReadToEnd‘返回结果。
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
串口通信最终都是用二进制传输的,你用代码把二进制转化成十六进制就可以了。不需要额外设置。