paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-12 09:15:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct definition of events

Browse Source
This commit is contained in:
michael 2020-07-22 12:18:21 +00:00
parent 50ce665a76
commit f643b25c92
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/dataabstract/dasdk.pas
View File

@ -24,12 +24,12 @@ uses JS, ROSDK;
Type Type
TDAUserInfo = Class; TDAUserInfo = Class;
TDASuccessEvent = Procedure (res : JSValue) of object; TDASuccessEvent = Reference to Procedure (res : JSValue);
TDAFailedEvent = Procedure (response : TJSOBject; fail : String) of object; TDAFailedEvent = Reference to Procedure (response : TROMessage; Err : TJSError);
TDALoginSuccessEvent = Reference to Procedure (result : Boolean; UserInfo : TDAUserInfo); 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 Public
Constructor new(ch : TROHTTPClientChannel; msg : TROMessage; aServiceName : string); Constructor new(ch : TROHTTPClientChannel; msg : TROMessage; aServiceName : string);
Procedure LoginEx(aLoginString :String; aSuccess : TDALoginSuccessEvent; aFailure : TDAFailedEvent); Procedure LoginEx(aLoginString :String; aSuccess : TDALoginSuccessEvent; aFailure : TDAFailedEvent);