推荐订阅源

Delphi 13.1 里面提供了非常简单的web流式输出.

代码非常简单。

webbroke 里面建立一个新的action。

procedure Twm.wmsseAction(Sender: TObject; Request: TWebRequest;
  Response: TWebResponse; var Handled: Boolean);
var
   rs: TWebResponseStream;
  i, id:integer;
begin

   rs:=TWebResponseStream.BeginEventsStream(response) ;
    id:=1;
  for I := 0 to 50 do

     begin

         rs.WriteEvent('ddd');
         rs.WriteID(id.ToString );
         rs.WriteData('time'+ datetimetostr(now)   );
         rs.EndEvent;
         inc(id);
         sleep(2000);
     end;
end;

看看运行效果

就这么简单。