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

* Make channel/message public, so they can be used in other service constructors

Browse Source
This commit is contained in:
michael 2019-04-01 08:50:55 +00:00
parent 31e43b5ec1
commit 8aaabb14c0
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/dataabstract/dadataset.pas
View File

@ -92,8 +92,11 @@ Type
FStreamerType: TDAStreamerType; FStreamerType: TDAStreamerType;
FURL: String; FURL: String;
procedure ClearConnection; procedure ClearConnection;
function GetChannel: TROHTTPClientChannel;
function GetClientID: String;
Function GetDataService : TDADataAbstractService; Function GetDataService : TDADataAbstractService;
function GetLoginService: TDASimpleLoginService; function GetLoginService: TDASimpleLoginService;
function GetMessage: TROMessage;
procedure SetDataserviceName(AValue: String); procedure SetDataserviceName(AValue: String);
procedure SetLoginServiceName(AValue: String); procedure SetLoginServiceName(AValue: String);
procedure SetMessageType(AValue: TDAMessageType); procedure SetMessageType(AValue: TDAMessageType);
@ -120,6 +123,11 @@ Type
Property DataService : TDADataAbstractService Read GetDataService Write FDataService; Property DataService : TDADataAbstractService Read GetDataService Write FDataService;
// You can set this. If you didn't set this, and URL is filled, an instance will be created. // You can set this. If you didn't set this, and URL is filled, an instance will be created.
Property LoginService : TDASimpleLoginService Read GetLoginService Write FLoginService; Property LoginService : TDASimpleLoginService Read GetLoginService Write FLoginService;
// You can get this to use in other service constructors
Property Channel : TROHTTPClientChannel Read GetChannel;
Property Message : TROMessage Read GetMessage;
// Get client ID
Property ClientID : String Read GetClientID;
Published Published
// If set, this is the message type that will be used when auto-creating the service. Setting this while dataservice is Non-Nil will remove the reference // If set, this is the message type that will be used when auto-creating the service. Setting this while dataservice is Non-Nil will remove the reference
Property MessageType : TDAMessageType Read FMessageType Write SetMessageType; Property MessageType : TDAMessageType Read FMessageType Write SetMessageType;
@ -163,6 +171,12 @@ begin
Result:=FLoginService; Result:=FLoginService;
end; end;
function TDAConnection.GetMessage: TROMessage;
begin
CreateChannelAndMessage;
Result:=FMessage;
end;
procedure TDAConnection.SetDataserviceName(AValue: String); procedure TDAConnection.SetDataserviceName(AValue: String);
begin begin
if FDataserviceName=AValue then Exit; if FDataserviceName=AValue then Exit;
@ -191,6 +205,20 @@ begin
FMessage:=Nil; FMessage:=Nil;
end; end;
function TDAConnection.GetChannel: TROHTTPClientChannel;
begin
CreateChannelAndMessage;
Result:=FChannel;
end;
function TDAConnection.GetClientID: String;
begin
if Assigned(FMessage) then
Result:=FMessage.ClientID
else
Result:='';
end;
procedure TDAConnection.SetURL(AValue: String); procedure TDAConnection.SetURL(AValue: String);
begin begin
if FURL=AValue then Exit; if FURL=AValue then Exit;