风 风清云淡系明月 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-28 #1 我在做一个代理服务器，在我的程序中用ServerSocket组件接收客户端数据包，但是如何得到所建立连接的客户ip地址？ 200分相送！
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-28 #2 从 OnAccept 事件的 socket 参数中获得： procedure TForm1.ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket); begin end; TCustomWinSocket 有以下属性： Addr ASyncStyles Connected Data Handle LocalAddress *********** LocalHost LocalPort LookupState RemoteAddr ************ RemoteAddress ********* RemoteHost RemotePort SocketHandle 看看是哪个
从 OnAccept 事件的 socket 参数中获得： procedure TForm1.ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket); begin end; TCustomWinSocket 有以下属性： Addr ASyncStyles Connected Data Handle LocalAddress *********** LocalHost LocalPort LookupState RemoteAddr ************ RemoteAddress ********* RemoteHost RemotePort SocketHandle 看看是哪个
L LongV Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-28 #4 用ServerSocket端口的OnAccept事件， 就会得到Client端的IP。 编程如下： procedure TForm1.serverlinkAccept(Sender: TObject; Socket: TCustomWinSocket); var ClientIP : string; begin ClientIP := Socket.RemoteAddress; end;
用ServerSocket端口的OnAccept事件， 就会得到Client端的IP。 编程如下： procedure TForm1.serverlinkAccept(Sender: TObject; Socket: TCustomWinSocket); var ClientIP : string; begin ClientIP := Socket.RemoteAddress; end;
风 风清云淡系明月 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-29 #5 非常感谢jsxjd和LongV，问题已经基本解决， jsxjd是西交大（xjd）的朋友吗？在不在北京？有空联系一下：vinvin@163.com
B b2sun Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-30 #6 http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1354567 关注一下吧没有人提起来呀！用MODEM打电话利用PC机的耳机和麦克风，自己编程如何实现？ (我知道有现成的软件可以用，但是我想自己实现这个上东西） QQ：65466700 MAIL： along@b2sun.com TEL :13802785865 http://b2sun.com 请各位大侠多多指教！
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1354567 关注一下吧没有人提起来呀！用MODEM打电话利用PC机的耳机和麦克风，自己编程如何实现？ (我知道有现成的软件可以用，但是我想自己实现这个上东西） QQ：65466700 MAIL： along@b2sun.com TEL :13802785865 http://b2sun.com 请各位大侠多多指教！
