Procházet zdrojové kódy

fcl-net: comment: TInetServer.SockToStream should be using TServerSocketStream

mattias před 2 roky
rodič
revize
5271d19585
1 změnil soubory, kde provedl 4 přidání a 1 odebrání
  1. 4 1
      packages/fcl-net/src/ssockets.pp

+ 4 - 1
packages/fcl-net/src/ssockets.pp

@@ -1269,8 +1269,11 @@ Var
 begin
   H:=GetClientSocketHandler(aSocket);
   aClass:=DefaultInetSocketClass;
+
+  // Should be: Result:=TServerSocketStream.Create(ASocket,H);
+
   if aClass=Nil then
-      aClass:=TInetSocket;
+    aClass:=TInetSocket;
   Result:=aClass.Create(ASocket,H);
   (Result as TInetSocket).FHost:='';
   (Result as TInetSocket).FPort:=FPort;