paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 08:30:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow to specify DB connection params on command-line

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-11-13 23:44:26 +01:00
parent 9145565895
commit 71f8893366
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-web/examples/restbridge/demorestbridge.pp
View File

@ -73,10 +73,11 @@ end;
procedure TRestServerDemoApplication.DoRun;
var
UN,PWD,
ErrorMsg: String;
begin
// quick check parameters
ErrorMsg:=CheckOptions('hc:s:m:p:', ['help','config:','save-config:','max-requests:','port:']);
ErrorMsg:=CheckOptions('hc:s:m:p:u:w:', ['help','config:','save-config:','max-requests:','port:','user:','password:']);
if ErrorMsg<>'' then begin
ShowException(Exception.Create(ErrorMsg));
Terminate;
@ -97,7 +98,7 @@ begin
else
FDisp:=TSQLDBRestDispatcher.Create(Self);
if HasOption('c', 'config') then
FDisp.LoadFromFile(GetOptionValue('c', 'config'),[dioSkipReadSchemas])
FDisp.LoadFromFile(GetOptionValue('c', 'config'),[{dioSkipReadSchemas}])
else
begin
// create a Default setup
@ -107,7 +108,13 @@ begin
FAuth.DefaultPassword:='secret';
FAuth.AuthenticateUserSQL.Text:='select uID from users where (uLogin=:UserName) and (uPassword=:Password)';
FDisp.DispatchOptions:=FDisp.DispatchOptions+[rdoCustomView,rdoHandleCORS];
FDisp.ExposeDatabase(TPQConnectionDef.TypeName,'localhost','expensetracker','You','YourSecret',Nil,[foFilter,foInInsert,foInUpdate,foOrderByDesc]);
UN:=GetOptionValue('u','user');
if UN='' then
UN:='You';
PWD:=GetOPtionValue('w','password');
if PWD='' then
PWD:='Secret';
FDisp.ExposeDatabase(TPQConnectionDef.TypeName,'localhost','expensetracker',UN,PWD,Nil,[foFilter,foInInsert,foInUpdate,foOrderByDesc]);
With FDisp.Schemas[0].Schema.Resources do
begin
FindResourceByName('users').Fields.FindByFieldName('uID').GeneratorName:='seqUsersID';
@ -152,6 +159,8 @@ begin
Writeln('-m --max-requests=N Server at most N requests, then quit.');
Writeln('-p --port=N TCP/IP Port to listen on (default 3000)');
Writeln('-s --saveconfig=File Write config to .ini file (ignored when -c or --config is used)');
Writeln('-u --user=USER Database connection username');
Writeln('-w --password=PWD Password for database connection user');
Writeln('-x --xml-only Only allow XML requests)');
end;