paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 11:09:32 +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

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

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