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

[shan7shui6]

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

[copy_paste]

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

[shan7shui6]

我看过:

user
ListenSocket

private
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;

[copy_paste]

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

[copy_paste]

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

end;
这两个类函数有点问题

[copy_paste]

老兄，能不能和你聊聊
qq:36404026

[lvloj]

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