如何从这结构中取出地址与端口

[hanxian]

sockaddr_in = record
　sa_family: u_short;
　sa_data: array[0..13] of Char;
end;
这是通过getPeerName返回客户端地址信息的变量类型

如何从sa_data: array[0..13] of char 这个数组中取回IP 与PORT

[hanxian]

UP

[hanxian]

AS;DLKFJA;LSDF;LASDFJ;LDSA

[qi7]

var
Adr : Sockaddr_in;
IP:=iNet_nToA(Adr.sin_addr);
Port:=nToHs(Adr.sin_port);

//////////////////////////////////
sockaddr_in = record
case Integer of
0:
(sin_family: u_short;
sin_port: u_short;
sin_addr: TInAddr;
sin_zero: array[0..7] of Char);
1:
(sa_family: u_short;
sa_data: array[0..13] of Char);
end;