还不会主动向前端通过SSE推送消息？看这篇就会了![Delphi版] _前端

SSE（Server-Send Events）SSE 是一种在基于浏览器的 Web 应用程序中仅从服务器向客户端发送文本消息的技术。SSE基于 HTTP 协议中的持久连接，具有由 W3C 标准化的网络协议和 EventSource 客户端接口，作为 html5 标准套件的一部分。
使用其他方法实现的很多，采用Delphi实现的却基本没有，请教了一位高手，在他的帮助下实现了，特写下来，希望能帮助到更多的delphier.
废话不多说，直接上代码！
pas如下
unit Unit1;interfaceusesWinapi.windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdContext, IdCustomHTTPServer, IdHTTPServer,IdTCPConnection,IdBaseComponent, IdComponent, IdCustomTCPServer, Vcl.StdCtrls;typeTForm1 = class(TForm)IdHTTPServer1: TIdHTTPServer;Memo1: TMemo;Button1: TButton;Edit1: TEdit;procedure FormCreate(Sender: TObject);procedure IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;AResponseInfo: TIdHTTPResponseInfo);procedure Button1Click(Sender: TObject);privateprocedure SendSSEMessage(const AMessage: string);publicend;varForm1: TForm1;gConnection : TIdTCPConnection;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginSendSSEMessage(Edit1.Text);end;procedure TForm1.FormCreate(Sender: TObject);beginIdHTTPServer1.DefaultPort := 80; // 设置服务器端口IdHTTPServer1.ServerSoftware := 'Delphi SSE Server'; // 设置服务器名称IdHTTPServer1.Active := True;idHttpServer1.Active:= True;Memo1.Lines.Add('Server started...');end;procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;AResponseInfo: TIdHTTPResponseInfo);varLFilename: string;LPathname: string;beginLFilename := ARequestInfo.Document;LPathname := 'E:StudySSE' + LFilename;if FileExists(LPathname) then beginAResponseInfo.ContentStream := TFileStream.Create(LPathname, fmOpenRead + fmShareDenyWrite);end else beginif ARequestInfo.URI = '/subscribe' then beginwith AContext.Connection.IOHandler do beginWriteBufferOpen;WriteLn('HTTP/1.1 200 OK');WriteLn('Content-Type: text/event-stream; charset=UTF-8');WriteLn('Cache-Control: no-cache');WriteLn('Connection: keep-alive');WriteLn();WriteBufferClose;end;//gConnection:= AContext.Connection;end;end;end;procedure TForm1.SendSSEMessage(const AMessage: string);beginwith gConnection.IOHandler do beginWriteBufferOpen;WriteLn('id:'+IntToStr(random(1000))+#13#10);WriteLn('event:test'+#13#10);WriteLn('data:'+AMessage+#13#10#13#10);WriteBufferClose;end;end;end.dfm如下：
object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 242ClientWidth = 601Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Memo1: TMemoLeft = 250Top = 0Width = 351Height = 242Align = alRightLines.Strings = ('Memo1')TabOrder = 0ExplicitLeft = 512endobject Button1: TButtonLeft = 48Top = 168Width = 75Height = 25Caption = 'Button1'TabOrder = 1OnClick = Button1Clickendobject Edit1: TEditLeft = 48Top = 32Width = 121Height = 21TabOrder = 2Text = 'Edit1'endobject IdHTTPServer1: TIdHTTPServerBindings = <>TerminateWAItTime = 50000KeepAlive = TrueSessionTimeOut = 50000OnCommandGet = IdHTTPServer1CommandGetLeft = 120Top = 80endend对应的HTML如下：
【还不会主动向前端通过SSE推送消息？看这篇就会了![Delphi版]】<!DOCTYPE html><html lang="en"><head><meta charset="UTF-8"><title>Title</title><script>window.onload = ()=> {console.log("onload!");if (window.EventSource) {let source = new EventSource("/subscribe");let s = '';//source.addEventListener('message', function(e) {console.log("connect message");document.querySelector("p").innerText = e.data;})source.addEventListener('open',function(e){console.log("connect is open");},false);source.addEventListener('error',function(e){if(e.readyState == EventSource.CLOSE){console.log("connect is close");console.log('connection state: ' + source.readyState + ', error: ' + event);console.log(event);}else{console.log(e.readyState);}},false);} else {alert("浏览器不支持EventSource");}}</script></head><body><p></p></body></html>编译版是Delphi 10.4.2
点击Button1，即可向前端推送Edit1中的字符串。

文章插图

还不会主动向前端通过SSE推送消息？看这篇就会了![Delphi版]

推荐阅读

生活中常见的日用品哪些是有毒的？

科技俱乐部 Reno4系列正式发布，2999元！真香！OPPO

Super游戏资讯■盾山要闪现，她带治疗团战无敌！，王者荣耀：带弱化输一半的辅助

吃水果会起到减肥效果吗

央视新闻客户端|新型自供能保温营房亮相保障海拔5000米以上高原驻防部队野战宿营

鸡蛋清的功效与作用

数学思维是天生的?数学是一种思维方式

农业农村部：加大涉渔“三无船舶”清理整治力度

『1080军事台』14亿人每人捐100元能撑多久，答案让人难以置信，一旦发生冲突

蜂蜜放冰箱行不行蜂蜜放冰箱保存可以吗

八位猕猴桃抗衰老专家

【呼吸的鱼】不能要这个的！，搞笑GIF：你赶快接着，我已经结婚了，

大学四年咋过才能不让自己后悔

原料|自制颗粒饲料喂兔

网游|你发现过网游bug吗？大学的时候玩DNF开罐子，买了一辆车哈哈哈！

首播破亿，口碑两极，《三体》能否帮B站走出“暗黑森林”？

DO早报|抖音、快手、微博等平台回应吃播浪费现象；贝壳找房上市首日开盘大涨超70%；北京对影视产业加大扶持力度｜Do早报

s伤心果|怎样第一时间将支付宝和微信等支付通道冻结？，万一手机丢了

汽车圈首个Boss热梗诞生，长城汽车营销太太太燃了！

焦糖老干妈|而不是技巧，生活需要的是聪明

还不会主动向前端通过SSE推送消息？ 看这篇就会了![Delphi版]

推荐阅读

还不会主动向前端通过SSE推送消息？看这篇就会了![Delphi版]