paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:39:09 +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; procedure TRestServerDemoApplication.DoRun;
var var
UN,PWD,
ErrorMsg: String; ErrorMsg: String;
begin begin
// quick check parameters // 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 if ErrorMsg<>'' then begin
ShowException(Exception.Create(ErrorMsg)); ShowException(Exception.Create(ErrorMsg));
Terminate; Terminate;
@ -97,7 +98,7 @@ begin
else else
FDisp:=TSQLDBRestDispatcher.Create(Self); FDisp:=TSQLDBRestDispatcher.Create(Self);
if HasOption('c', 'config') then if HasOption('c', 'config') then
FDisp.LoadFromFile(GetOptionValue('c', 'config'),[dioSkipReadSchemas]) FDisp.LoadFromFile(GetOptionValue('c', 'config'),[{dioSkipReadSchemas}])
else else
begin begin
// create a Default setup // create a Default setup
@ -107,7 +108,13 @@ begin
FAuth.DefaultPassword:='secret'; FAuth.DefaultPassword:='secret';
FAuth.AuthenticateUserSQL.Text:='select uID from users where (uLogin=:UserName) and (uPassword=:Password)'; FAuth.AuthenticateUserSQL.Text:='select uID from users where (uLogin=:UserName) and (uPassword=:Password)';
FDisp.DispatchOptions:=FDisp.DispatchOptions+[rdoCustomView,rdoHandleCORS]; 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 With FDisp.Schemas[0].Schema.Resources do
begin begin
FindResourceByName('users').Fields.FindByFieldName('uID').GeneratorName:='seqUsersID'; 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('-m --max-requests=N Server at most N requests, then quit.');
Writeln('-p --port=N TCP/IP Port to listen on (default 3000)'); 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('-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)'); Writeln('-x --xml-only Only allow XML requests)');
end; end;