瀏覽代碼

* Fix hierarchy

Michaël Van Canneyt 2 年之前
父節點
當前提交
59501f11a5
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/fcl-net/src/ssockets.pp

+ 2 - 2
packages/fcl-net/src/ssockets.pp

@@ -296,7 +296,7 @@ type
 {$if defined(unix) or defined(windows)}
 {$DEFINE HAVENONBLOCKING}
 {$endif}
-  TInetSocket = Class(TServerSocketStream)
+  TInetSocket = Class(TSocketStream)
   Private
     FHost : String;
     FPort : Word;
@@ -315,7 +315,7 @@ type
 
 {$ifdef Unix}
 
-  TUnixSocket = Class(TServerSocketStream)
+  TUnixSocket = Class(TSocketStream)
   Private
     FFileName : String;
   Protected