浏览代码

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

mattias 2 年之前
父节点
当前提交
5271d19585
共有 1 个文件被更改,包括 4 次插入1 次删除
  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;