Delphi中有ListenSocket.Pas文件码？哪里有？

Question

作什么用的？
WinSock.pas  封装socket API的单元
ScktComp.pas  Delphi对socket的封装类。
还有indy....
ListenSocket什么东东？

Answer 1

我看过:user
ListenSocketprivate
ListenSocket:TListenSocket;  procedure TfrmServerMain.FormCreate(Sender: TObject);
const ClientPort=6666;
begin
  LoadWinSock2;
  ListenSocket:=TListenSocket.Create(Self);
  with ListenSocket do
  begin
    CacheSize :=10;
    ListPort:=ClientPort;
    Open;
  end;
  AddIcon;//(True,Application.Handle,WM_ServerMSG,Application.Title);
end;

Answer 2

哦，这玩意，是用来替代borland socket service的功能(bin\ScktSrvr.exe)
这个单元我找找，等一会

Answer 3

http://www.csdn.net/Develop/Read_Article.asp?Id=3740
我看过代码，有点问题。就是在
TListenSocket = class(TObject)
  ...
class procedure AddClientThread(Thread :TSocketDispatcherThread);
    class procedure RemoveClientThread(Thread:TSocketDispatcherThread);end;
这两个类函数有点问题

Answer 4

这里就有：
http://www.csdn.net/expert/topic/62/62524.xml?temp=.9638941