From f643b25c929b5c05a3ef6e46ee3ca2b0f9ffd6d6 Mon Sep 17 00:00:00 2001 From: michael Date: Wed, 22 Jul 2020 12:18:21 +0000 Subject: [PATCH] * Correct definition of events --- packages/dataabstract/dasdk.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/packages/dataabstract/dasdk.pas b/packages/dataabstract/dasdk.pas index 4ed7e76..c336ce2 100644 --- a/packages/dataabstract/dasdk.pas +++ b/packages/dataabstract/dasdk.pas @@ -24,12 +24,12 @@ uses JS, ROSDK; Type TDAUserInfo = Class; - TDASuccessEvent = Procedure (res : JSValue) of object; - TDAFailedEvent = Procedure (response : TJSOBject; fail : String) of object; + TDASuccessEvent = Reference to Procedure (res : JSValue); + TDAFailedEvent = Reference to Procedure (response : TROMessage; Err : TJSError); TDALoginSuccessEvent = Reference to Procedure (result : Boolean; UserInfo : TDAUserInfo); - TDABaseLoginService = class external name 'RemObjects.DataAbstract.Server.SimpleLoginService' (TJSObject) + TDABaseLoginService = class external name 'RemObjects.DataAbstract.Server.SimpleLoginService' (TROService) Public Constructor new(ch : TROHTTPClientChannel; msg : TROMessage; aServiceName : string); Procedure LoginEx(aLoginString :String; aSuccess : TDALoginSuccessEvent; aFailure : TDAFailedEvent);