示例:地址信息
unit uSockAddr;
interface
uses
WinSock2;
procedure InitSockAddr;
implementation
procedure InitSockAddr;
var
SockAddr: TSockAddrIn;
begin
with SockAddr do
begin
sin_family := AF_INET; //--设置地址家族
sin_addr.S_addr := inet_addr('127.0.0.1'); //--inet_addr以函效转化一个“aa.bb.cc.dd”类型的IP地址字符串到长整型,它是以网络字节顺序记录的lP地址
sin_port := htons(6789); //--转化端口号6789到网络字节顺序.并安排它到正确的成员
//---也可以用下面的代码设置IP地址(通过设置4个字节部分)
{with sin_addr.S_un_b do
begin
s_b1 := char(127);
s_b2 := char(0);
s_b3 := char(0);
s_b4 := char(1);
end;}
end;
end;
end.