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

ConnectionTimeout

Browse Source
This commit is contained in:
danieleteti 2016-09-26 17:42:02 +02:00
parent ffd7d355cc
commit b18a53b840
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
StompTypes.pas
View File

@ -121,6 +121,7 @@ type
class function Subscription(const SubscriptionName: string): TKeyValue; class function Subscription(const SubscriptionName: string): TKeyValue;
class function Persistent(const Value: Boolean): TKeyValue; class function Persistent(const Value: Boolean): TKeyValue;
class function Durable(const Value: Boolean): TKeyValue;
class function ReplyTo(const DestinationName: string): TKeyValue; class function ReplyTo(const DestinationName: string): TKeyValue;
/// /////////////////////////////////////////////7 /// /////////////////////////////////////////////7
@ -485,6 +486,12 @@ begin
inherited; inherited;
end; end;
class function TStompHeaders.Durable(const Value: Boolean): TKeyValue;
begin
Result.Key := 'durable';
Result.Value := LowerCase(BoolToStr(Value, true));
end;
function TStompHeaders.GetAt(const index: Integer): TKeyValue; function TStompHeaders.GetAt(const index: Integer): TKeyValue;
begin begin
Result := GetItems(index) Result := GetItems(index)