如何实现 Server-Sent 事件允许网页从服务器获得更新 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教下，如何用 foxtable 实现 Server-Sent 事件允许网页从服务器获得更新

并且无内存泄漏情况

代码编辑器中 response.addHeader 打.按tab没有精灵提示

客户端代码：

var source = new EventSource("timerDLGL");

source.onmessage = function(event) {

console.log("服务器返回:");

console.log(event);

document.getElementById("count").innerHTML += event.data + "<br>";

};

服务器端：

网络监视器的httpRequest事件：

Case "timerDLGL" ' 登轮管理轮询

e.AsyncExecute = True

Functions.AsyncExecute("timerDLGL",e)

内部函数：timerDLGL

Dim e As RequestEventArgs = Args(0)

Functions.Execute("showMsg2Form1","进入")

e.response.AddHeader("Content-Type" , "text/event-stream")

e.response.AddHeader("Cache-Control", "-1")

Functions.Execute("showMsg2Form1","执行")

Dim postData As Byte() = Encoding.Default.GetBytes("data:需要发送的内容\n\n")

Dim reqStream As System.IO.Stream = e.Response.OutputStream

reqStream.Write(postData, 0, postData.Length)

reqStream.Flush()

e.WriteString("data:发送完毕\n\n")

e.Handled = True '通知系统异步函数执行完毕,可以关闭信道

Functions.Execute("showMsg2Form1","完成")

Sleep(1000)

客户端调用后，进入了服务器端，没有使用do while loop 循环，内部函数："timerDLGL"，也在不断的调用

Functions.Execute("showMsg2Form1","进入") 这是在服务器的界面上显示进度

服务器上显示内容（循环显示）：

传入e.Path : timerDLGL

进入

执行

完成

传入e.Path : timerDLGL

进入

执行

完成

传入e.Path : timerDLGL

进入

执行

完成

客户端，没有进入

如果把 Dim postData As Byte() = Encoding.Default.GetBytes("data:需要发送的内容\n\n")

Dim reqStream As System.IO.Stream = e.Response.OutputStream

reqStream.Write(postData, 0, postData.Length)

reqStream.Flush()

这些代码屏蔽，

网页按F12，控制台输入以下信息：

EventSource's response has a MIME type ("text/html") that is not "text/event-stream". Aborting the connection.

此主题相关图片如下：1665107024644.png

客户端（js文件）： var source = new EventSource("timerDLGL");

source.onopen = function() {

console.log("连接服务器");

};

source.onmessage = function(event) {

console.log("服务器返回:");

console.log(event);

document.getElementById("count").innerHTML += event.data + "<br>";

};

source.onerror = function(event){

console.log("错误信息：");

console.log(event);

console.log(event.readyState);

};

服务器端内部函数timerDLGL：

Dim e As RequestEventArgs = Args(0)

Functions.Execute("showMsg2Form1", "进入")

e.response.AddHeader("Content-Type" , "text/event-stream")

e.response.AddHeader("Cache-Control", "no-cache")

e.response.AddHeader("Connection", "keep-alive")

e.response.AddHeader("Access-Control-Allow-Origin", "*")

Functions.Execute("showMsg2Form1", "执行")

Dim postData As Byte() = Encoding.Default.GetBytes("data:需要发送的内容\n\n")

Dim reqStream As System.IO.Stream = e.Response.OutputStream

reqStream.Write(postData, 0, postData.Length)

reqStream.Flush()

e.Handled = True '通知系统异步函数执行完毕,可以关闭信道

Functions.Execute("showMsg2Form1","完成")

网络监视器：

Select Case e.Path

Case "luckysheetLoadUrl"

' luckysheet初始化的loadURL配置参数

e.AsyncExecute = True

Functions.AsyncExecute("luckysheetLoadUrl",e)

Case "timerDLGL" ' 轮询

e.AsyncExecute = True

Functions.AsyncExecute("timerDLGL",e)

页面控制台输出信息：

此主题相关图片如下：1665119626575.png

此主题相关图片如下：1665122516772.png

客户端可以接受服务器端数据，但是接受到的是乱码，应该如何处理？

主题：如何实现 Server-Sent 事件允许网页从服务器获得更新