Hi
In attach a small example.
As websocket server, use: <sgcWebSockets\Demos\ServerSentEvents>
and disable this:
procedure TfrmServer.pageMainHTMLTag(Sender: TObject; Tag: TTag; const
TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
// if TagString = 'port' then
// ReplaceText := IntToStr(WSServer.Port)
// else if TagString = 'host' then
// ReplaceText := '127.0.0.1';
end;
Add in UniServerModul.CustomFiles (file is not available in the example):
files/sgcWebSockets.min.js
Hope it helps
webSocket.zip