Jelajahi Sumber

* Fix handling of options file

Michaël Van Canneyt 2 tahun lalu
induk
melakukan
850685844b
1 mengubah file dengan 5 tambahan dan 1 penghapusan
  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