WebServerSentEvent - Exemples
| WebServerSentEvent = class (TObject) | Interface de WebServerSentEvent | Exemples de WebServerSentEvent |
Script 1, côté serveur pour publier un message sur un flux
uses System.Net;
// création de l'événement
var e := WebServerSentEvent.Create;
e.Name := 'message';
e.Retry := 1000;
e.ID := 'test1';
e.Data := ['1ère ligne', '2ème ligne', 'eau = 水', '123.45 €'];
// envoi de l'événement aux connections rattachées à la source
e.Post('NomDeLaSourceSSE');
// création de l'événement
var e := WebServerSentEvent.Create;
e.Name := 'message';
e.Retry := 1000;
e.ID := 'test1';
e.Data := ['1ère ligne', '2ème ligne', 'eau = 水', '123.45 €'];
// envoi de l'événement aux connections rattachées à la source
e.Post('NomDeLaSourceSSE');
Script 2, côté serveur pour accepter un abonnement
uses System.Net;
WebResponse.SetContentEventStream('NomDeLaSourceSSE');
WebResponse.SetContentEventStream('NomDeLaSourceSSE');
Côté navigateur on peut utiliser un composant XForms ServerEvents, mettre le paramètre "url" à l'url du script d'abonnement (script 2 ci-dessus)