Michaël Van Canneyt пре 4 година
родитељ
комит
db0d1501e0
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      packages/fcl-web/examples/httpserver/simplehttpserver.pas

+ 1 - 1
packages/fcl-web/examples/httpserver/simplehttpserver.pas

@@ -59,7 +59,7 @@ begin
     Serv.AcceptIdleTimeout:=1000;
     Serv.OnAcceptIdle:[email protected];
     Serv.WriteInfo:[email protected];
-    Serv.EnableKeepAlive:=True;
+    Serv.KeepAliveEnabled:=True;
     Serv.Active:=True;
   finally
     Serv.Free;