Browse Source

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

mattias 2 years ago
parent
commit
5271d19585
1 changed files with 4 additions and 1 deletions
  1. 4 1
      packages/fcl-net/src/ssockets.pp

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

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