DSAPI多功能组件编程应用-HTTP监听服务端与客户端_指令版

时间:2020-12-13 20:31:42

前面介绍了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"))

一句代码,什么?就这样?是的,你没看错,就这么简单。这就是我所谓的指令版,相信你一定喜欢。