DSAPI HTTP监听服务端与客户端_指令版
前面介绍了DSAPI多功能组件编程应用-HTTP监听服务端与客户端的内容,这里介绍一个适用于更高效更快速的基于HTTP监听的服务端、客户端。
在本篇,你将见到前所未有的超简化超傻瓜式的HTTP监听服务,与前篇中的不同,在DSAPI中,指令版同时包含了服务端与客户端。
先来看一下使用方法,几乎不需要太多的说明,当然,它是支持事件的。所谓指令版,即服务端和客户端收发都是基于短字串的,比如客户端发一个“hello“,服务端收到这个指令后返回一个”Hi"。为确保传输的数据有效性,默认使用Base64加密后传输,且该属性在指令版中隐藏,因为用户用不到这个属性。
建立一个指令版Http监听
Private WithEvents 服务端 As New DSAPI.网络相关.HTTP监听_指令版 With 服务端 .绑定端口 = 2000 '绑定端口 .参数前导符 = True '是否使用参数前导符,意义和前篇一样 .允许外网连接 = True '是否允许外网请求 .启动监听() End With
仅仅几句代码,就完成了一个基于HTTP监听的指令版服务端,支持的事件如下:
Private Sub 服务端_监听已启动() Handles 服务端.监听已启动 End Sub Private Sub 服务端_监听已停止() Handles 服务端.监听已停止 End Sub Private Sub 服务端_收到指令(客户端 As DSAPI.网络相关.HTTP监听_指令版.监听客户端_指令版, 指令内容 As String) Handles 服务端.收到指令 End Sub Private Sub 服务端_遇到错误(错误 As Exception) Handles 服务端.遇到错误 End Sub
处理接收到的指令
Private Sub 服务端_收到指令(客户端 As DSAPI.网络相关.HTTP监听_指令版.监听客户端_指令版, 指令内容 As String) Handles 服务端.收到指令 Select Case 指令内容 Case "hello" 服务端.写入信息到指定客户端输出流(客户端, "hello,my friend") Case "get" 服务端.写入信息到指定客户端输出流(客户端, IO.File.ReadAllBytes("c:\1.rar")) Case Else 服务端.写入信息到指定客户端输出流(客户端, "No") End Select End Sub
发来的指令内容直接在参数中提供,以便select case,同样,返回给客户端的,可以是文本,也可以是字节数组,比如一个文件。
服务端的建立和使用就是上面这些,下面演示如何建立一个指令版客户端。
建立一个指令版Http监听客户端
Private WithEvents 客户端 As New DSAPI.网络相关.HTTP监听_指令版.监听客户端_指令版 With 客户端 .超时时间 = 1000 '自定义超时时间 .服务端IP或域名 = "127.0.0.1" .服务端端口号 = 2000 End With
就这么简单,好了,现在看一下如何使用客户端向服务端发送一个指令并获取返回数据。
MsgBox(客户端.获取数据("hello"))
一句代码,什么?就这样?是的,你没看错,就这么简单。这就是我所谓的指令版,相信你一定喜欢。