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

* Fix data abstract base classes, not real descendents of TROService

Browse Source
This commit is contained in:
michael 2020-07-30 17:51:14 +00:00
parent d2943a01de
commit 7ef467dea6
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/dataabstract/dasdk.pas
View File

@ -29,11 +29,18 @@ Type
TDALoginSuccessEvent = Reference to Procedure (result : Boolean; UserInfo : TDAUserInfo); 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 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);
Procedure Logout(aSuccess : TDASuccessEvent; aFailure : TDAFailedEvent); Procedure Logout(aSuccess : TDASuccessEvent; aFailure : TDAFailedEvent);
Property Message : TROMessage Read fMessage;
Property Channel : TROClientChannel Read fChannel;
Property ServiceName : String Read fServiceName;
end; end;
TDASimpleLoginService = class external name 'RemObjects.DataAbstract.Server.SimpleLoginService' (TDABaseLoginService) TDASimpleLoginService = class external name 'RemObjects.DataAbstract.Server.SimpleLoginService' (TDABaseLoginService)