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

Adapted to the single file for StompClient

Browse Source
This commit is contained in:
Daniele Teti 2017-04-04 13:04:12 +02:00
parent 503869635e
commit aadceee80f
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
sources/MVCFramework.MessagingController.pas
View File

@ -36,8 +36,7 @@ uses
MVCFramework.Commons,
MVCFramework.Logger,
MVCFramework.TypesAliases,
StompClient,
StompTypes;
StompClient;
type

5
sources/MVCFramework.pas
View File

@ -69,10 +69,9 @@ uses
Web.Win.IsapiHTTP,
Web.WebReq,
LoggerPro,
StompTypes,
IdGlobal,
IdGlobalProtocols,
IdURI;
IdURI, StompClient;
type
@ -2186,7 +2185,7 @@ begin
begin
try
Stomp := GetNewStompClient(GetClientId);
Headers := StompUtils.NewHeaders.Add(TStompHeaders.NewPersistentHeader(True));
Headers := StompUtils.NewHeaders.Add(StompUtils.NewPersistentHeader(True));
Stomp.Send(AMessage.SmTopic, Serializer(AContentType).SerializeObject(AMessage));
TThread.Sleep(100);
finally