《Windows网络与通信程序设计》——示例：地址信息

示例：地址信息

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.