paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 10:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix handling of options file

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-10-19 22:57:02 +02:00
parent 9e60c686b4
commit 850685844b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/examples/simpleserver/simpleserver.pas
View File

@ -392,7 +392,11 @@ begin
FAPISecret:=ReadString(SConfig,keyAPI,''); FAPISecret:=ReadString(SConfig,keyAPI,'');
FCrossOriginIsolation:=ReadBool(SConfig,KeyCOI,FCrossOriginIsolation); FCrossOriginIsolation:=ReadBool(SConfig,KeyCOI,FCrossOriginIsolation);
if ValueExists(SConfig,KeyCapture) then if ValueExists(SConfig,KeyCapture) then
begin
FCaptureFileName:=ReadString(SConfig,keyCapture,'');
if FCaptureFileName='' then
FCaptureFileName:='-';
end;
L:=TstringList.Create; L:=TstringList.Create;
ReadSectionValues(SProxy,L,[]); ReadSectionValues(SProxy,L,[]);
For I:=0 to L.Count-1 do For I:=0 to L.Count-1 do