Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/danieleteti/delphimvcframework

Browse Source
This commit is contained in:
Daniele Teti 2024-09-26 20:23:15 +02:00
commit dacdfe2ac3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sources/MVCFramework.SSEClient.pas
View File

@ -134,13 +134,13 @@ begin
SSEMessage.Text := ASSEMessage; SSEMessage.Text := ASSEMessage;
if SSEMessage.IndexOfName('id')>-1 then if SSEMessage.IndexOfName('id')>-1 then
fLastEventId := SSEMessage.Values['id'].ToInteger; fLastEventId := SSEMessage.Values['id'].Trim.ToInteger;
if SSEMessage.IndexOfName('event')>-1 then if SSEMessage.IndexOfName('event')>-1 then
event := SSEMessage.Values['event']; event := SSEMessage.Values['event'].Trim;
if SSEMessage.IndexOfName('data')>-1 then if SSEMessage.IndexOfName('data')>-1 then
data := SSEMessage.Values['data']; data := SSEMessage.Values['data'].Trim;
if SSEMessage.IndexOfName('retry')>-1 then if SSEMessage.IndexOfName('retry')>-1 then
fReconnectTimeout := StrToIntDef(SSEMessage.Values['retry'], DefaultReconnectTimeout); fReconnectTimeout := StrToIntDef(SSEMessage.Values['retry'].Trim, DefaultReconnectTimeout);
fOnSSEEvent(Self, fLastEventId, event, data); fOnSSEEvent(Self, fLastEventId, event, data);
finally finally