Browse Source

* Fix handling of options file

Michaël Van Canneyt 2 years ago
parent
commit
850685844b
1 changed files with 5 additions and 1 deletions
  1. 5 1
      packages/fcl-web/examples/simpleserver/simpleserver.pas

+ 5 - 1
packages/fcl-web/examples/simpleserver/simpleserver.pas

@@ -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