paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 11:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* OntSetupHTTPRequest

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-14 20:15:17 +02:00
parent 0416e2e946
commit f25e729f20
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/pas2js/components/stubs/stub.restdataset.pas
View File

@ -21,7 +21,7 @@ unit stub.restdataset;
interface interface
uses uses
Classes, SysUtils, db, fpJSONDataset; Classes, SysUtils, db, fpJSONDataset, stub.web;
Type Type
@ -33,6 +33,7 @@ Type
TRestGetURLEvent = Procedure (Sender : TComponent; aRequest : TDataRequest; Var aURL : String) of Object; TRestGetURLEvent = Procedure (Sender : TComponent; aRequest : TDataRequest; Var aURL : String) of Object;
TRestUpdateURLEvent = Procedure (Sender : TComponent; aRequest : TRecordUpdateDescriptor; Var aURL : String) of Object; TRestUpdateURLEvent = Procedure (Sender : TComponent; aRequest : TRecordUpdateDescriptor; Var aURL : String) of Object;
TSetupHTTPRequestEvent = Procedure (Sender : TComponent; aHTTPRequest : TJSXMLHttpRequest) of Object;
TSQLDBRestConnection = Class(TComponent) TSQLDBRestConnection = Class(TComponent)
private private
@ -44,6 +45,7 @@ Type
FMetaDataResourceName: String; FMetaDataResourceName: String;
FonGetResources: TNotifyEvent; FonGetResources: TNotifyEvent;
FOnGetURL: TRestGetURLEvent; FOnGetURL: TRestGetURLEvent;
FOnSetupHTTPRequest: TSetupHTTPRequestEvent;
FOnUpdateURL: TRestUpdateURLEvent; FOnUpdateURL: TRestUpdateURLEvent;
FPageParam: String; FPageParam: String;
FPassword: String; FPassword: String;
@ -78,6 +80,8 @@ Type
Property OnGetURL : TRestGetURLEvent Read FOnGetURL Write FOnGetURL; Property OnGetURL : TRestGetURLEvent Read FOnGetURL Write FOnGetURL;
// callback to get the REST Update/Post url // callback to get the REST Update/Post url
Property OnUpdateURL : TRestUpdateURLEvent Read FOnUpdateURL Write FOnUpdateURL; Property OnUpdateURL : TRestUpdateURLEvent Read FOnUpdateURL Write FOnUpdateURL;
// Property to perform additional setup
Property OnSetupHTTPRequest : TSetupHTTPRequestEvent Read FOnSetupHTTPRequest Write FOnSetupHTTPRequest;
end; end;