Explorar o código

* Fix handling of options file

Michaël Van Canneyt %!s(int64=3) %!d(string=hai) anos
pai
achega
850685844b
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  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,'');
       FCrossOriginIsolation:=ReadBool(SConfig,KeyCOI,FCrossOriginIsolation);
       if ValueExists(SConfig,KeyCapture) then
-
+        begin
+        FCaptureFileName:=ReadString(SConfig,keyCapture,'');
+        if FCaptureFileName='' then
+          FCaptureFileName:='-';
+        end;  
       L:=TstringList.Create;
       ReadSectionValues(SProxy,L,[]);
       For I:=0 to L.Count-1 do