Question

Delphi TCP/IP 传送数据，客户端IP地址。

客户端是局域网中的一台电脑，它发送数据给一个固定IP地址的服务器。某个时候，服务器需要向客户端发送指令。问题就是怎样知道客户端的IP地址。具体怎样实现，需要具体一点，比如用到哪些控件，以及主要的函数。高手快来解答。。。。解决方案好的话，追加100分。。。
是不是客户端向服务器端发送请求的时候，有函数可以获得请求的客户端的实际Internet IP地址啊？求高手解答~~

Answer 1

tcp控件收到的数据包包头里面直接有发送方的ip地址跟端口，直接读出来再给它回复就可以

追问

是这样吗？AThread.Connection.Socket.Binding.PeerIP。是不是发送方只负责发送数据，IP地址和端口这些东西TCP/IP协议自动为其加上啊。。。。

Answer 2

这个你需要添加 两个控件 TIDUDPSever 和TIDUDPClient。这两个控件。

追问

具体点啊，我现在用的是TIDTCPServer和TIDTCPClient。客户机连服务器发送数据很简单。主要是服务器向客户机发送数据这里。

追答

你现在是主机给客户机发能收到，客户机给主机发收不到？是吗？下边这个是获取IP的代码
fuction TFORM1.NameToIP(NameZ:string):string
var
WSDAata:TWSAData;
HostEnt:PHostEnt;
sComputername,sIP:string;
begin
sComputername:=NameZ;
WSAStartup(2,WSAData);
HostEnt:=gethostbyname(PChar(sComputername));
if HostEntnil then
begin
with HostEnt^ do
sIP:=format('%d.%d.%d.%d',[Byte(h_addr^[0]),Byte(h_addr^[1]),Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
result:=sIP;
end;

追问

不是收不到，是我根本就不知道怎么发，这个函数的的参数是传什么进去啊，我就是想获得IP啊，继续啊，快有答案了~

追答

函数里边的参数是你计算机名字，下边这段代码可以获取计算机名。这两段加起来就可以获取本地IP地址。
fuction TForm1.GettoName:string;
var
size:Cardinal;
Computername:PAnsichar;
begin
result:='';
size:=255; //设置内存空间大小
getmem(Computername,size); //创建一个内存空间
GetComputerName(Computername,size); //获取本机计算机名
result:=StrPas(Computername); //返回信息
end;

追问

这只能获得本地的IP地址吧，我想要得到的是Internet上的地址啊

追答

获取地址是相互的，当客户机给你发的时候，通过程序就可以传递他的IP地址

追问

传递的IP地址是人为的加到数据包里面吗？

追答

使用TIDUDPSever 和TIDUDPClient 做通讯时，必须是要求本地地址和目标地址的。你再主机收到数据时，同时UDP协议也传来源地址的IP 。IDUDPClient1.host:=IP;STR:=IDUDPClint1.receivestring;//一个是获取IP 一个是获取内容

Answer 3

你本机的IP知道嘛？
可以将你本机做为服务端，然后将客户机做为客户端
当客户机打开程序时主动连接你在的电脑也就是服务端
这样再发送程序就可以了
你可以参考一下远程控制软件的模型

追问

本机是在局域网，只有局域网的IP地址，而且这地址随时都可能变动。服务器端不知道什么时候向本机发指令，这个时间是不确定的，并不一定是在本机连接上服务器时向本机发送指令。

追答

本机：192.168.1.100 端口：8888
客户机每次连接的时候都连接192.168.1.100这台机器的8888端口就行了呀！
不是一台机器也行。建议看一下远程控制软件的域名更新IP和反向连接

追问

本机：192.168.1.100 端口：8888 服务器：202.168.168.96 端口：8888，本机连服务器这个很简单，问题是，某个时候服务器要连本机，本机是在局域网的。。。到哪里去看远程控制软件的域名更新IP和反向连接呢，我要的是用Delphi解决的啊。。。

Answer 4

RemoteAddress

追问

高手不要吝啬语句啊，烦劳详细一点啊~~

追答

我记得好像ServerSocket在响应Accept的时候可以用Socket.RemoteAddress获取远程IP地址，但不知道这是不是你想要的……