From 7ef467dea6f712f6fa1d35e5695f09eb4331e471 Mon Sep 17 00:00:00 2001 From: michael Date: Thu, 30 Jul 2020 17:51:14 +0000 Subject: [PATCH] * Fix data abstract base classes, not real descendents of TROService --- packages/dataabstract/dasdk.pas | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/packages/dataabstract/dasdk.pas b/packages/dataabstract/dasdk.pas index c336ce2..ca77390 100644 --- a/packages/dataabstract/dasdk.pas +++ b/packages/dataabstract/dasdk.pas @@ -29,11 +29,18 @@ Type TDALoginSuccessEvent = Reference to Procedure (result : Boolean; UserInfo : TDAUserInfo); - TDABaseLoginService = class external name 'RemObjects.DataAbstract.Server.SimpleLoginService' (TROService) + TDABaseLoginService = class external name 'RemObjects.DataAbstract.Server.SimpleLoginService' (TJSObject) + Private + fMessage : TROMessage; + fChannel : TROClientChannel; + fServiceName : String; Public Constructor new(ch : TROHTTPClientChannel; msg : TROMessage; aServiceName : string); Procedure LoginEx(aLoginString :String; aSuccess : TDALoginSuccessEvent; aFailure : TDAFailedEvent); Procedure Logout(aSuccess : TDASuccessEvent; aFailure : TDAFailedEvent); + Property Message : TROMessage Read fMessage; + Property Channel : TROClientChannel Read fChannel; + Property ServiceName : String Read fServiceName; end; TDASimpleLoginService = class external name 'RemObjects.DataAbstract.Server.SimpleLoginService' (TDABaseLoginService)