当TClientSocket 和TServerSocket建立了连接后，怎样获得连接在Server上的Client的IP?

[BoweirrKing]

当TClientSocket 和TServerSocket建立了连接后，怎样获得连接在Server上的Client的IP?
在什么时候获得合适呢？
我在OnAccept事件发生的时候使用：MyServerComputer->Socket->RemoteAddress来取得Client的IP时就出错，怎么回事？

[chifengwatch]

看看BCB里的例子，很详细的

[BoweirrKing]

我这里没有啊。

[铖邑]

在OnAccept事件中，可以直接使用Socket参数，原型是：
typedef void __fastcall (__closure *TSocketNotifyEvent)(System::TObject* Sender, TCustomWinSocket* Socket);

如果你通过TServerSocket访问客户端，因为客户端有多个，是存在一个数组ServerSocket->Socket->Connections里。客户端个数是ServerSocket->Socket->ActiveConnections。

[BoweirrKing]

楼上的，不好意思，你理解错了。请仔细看我的问题。

[GFK]

Socket->RemoteAddress;
Socket->RemoteHost;

[BoweirrKing]

不行，出错。有没有其他方法？

[BoweirrKing]

在使用语句MyServerComputer->Socket->RemoteAddress取地址的时候，总是出现“Windows Socket Error(10057), on API 'getpeername'”的错误！为什么啊？

为什么直接使用由参数传递进来的Socket->RemoteAddress取地址的时候就不出错呢？

那个Socket->Listen()函数需要我们手动调用么？

[JedyWoody]

RemoteAddress

[MartinWang]

--我在OnAccept事件发生的时候使用：MyServerComputer->Socket->RemoteAddress来取得Client的IP时就出错，怎么回事？--
你在ClientConnect事件上写试试？

[GFK]

如此简单的问题，你在TServerSocket的OnAccept事件写上下列代码就可以了。
ShowMessage(Socket->RemoteAddress);

[铖邑]

回复人： BoweirrKing(忽然变傻) ( ) 信誉：100 2003-11-29 21:04:00 得分:0


楼上的，不好意思，你理解错了。请仔细看我的问题。

是你搞错了！！！请看清楚！！！


在OnAccept事件中，可以直接使用Socket参数，原型是：
typedef void __fastcall (__closure *TSocketNotifyEvent)(System::TObject* Sender, TCustomWinSocket* Socket);

void __fastcall TForm1::ServerSocket1Accept(TObject *Sender,
TCustomWinSocket *Socket)
{
ShowMessage(Socket->RemoteAddress); // 这是接受连接那个客户的地址
}
//---------------------------------------------------------------------------


如果你通过TServerSocket访问客户端，因为客户端有多个，是存在一个数组ServerSocket->Socket->Connections里。客户端个数是ServerSocket->Socket->ActiveConnections。
for(int i = 0; i < ServerSocket->Socket->ActiveConnections; i ++)
ShowMessage(ServerSocket->Socket->Connections[i]->RemoteAddress); // 穷举所有客户的地址

不能直接访问ServerSocket->Socket]->RemoteAddress！！！
人家好心解答，请你看清楚点！

[BoweirrKing]

ok. ok