소스 검색

* Fix handling of options file

Michaël Van Canneyt 3 년 전
부모
커밋
850685844b
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  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