如何找到TIdTCPServer的SOCKET句柄？(100分)

暗

暗夜中独舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-13

• #1

我们在用WIN32 API创建SOCKET的时候：
SOCKET sListen;
sListen = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
这个sListen就是SOCKET句柄，如何在TIdTCPServer中找到类似的东西？

 

P

pcmagic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-13

• #2

TIdTCPServer.Socket.Binding.Handle

 

暗

暗夜中独舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-13

• #3

TIdTCPServer.Socket.Binding应该是TIdSocketHandles类型的，是一组TIdSocketHandle。
TIdTCPServer.Socket.Binding.Handle才是应该，不过怎么确定i的值？

 

暗

暗夜中独舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-13

• #4

终于找到了。。。。
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
AThread.Connection.Socket.Binding;
end;

 

暗

暗夜中独舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-13

• #5

接受答案了.