IP之大尾端 下尾端 显示---网络字节

var
  t_IPBstart, t_IPBend,trans :LongWord;
  strname:string;
  pstart,pstop,ppoint:PByte;
  temp:PByte;
  temp1:TBytes;

begin
//    temp1:=5;
//    temp:=@temp1;
//    Writeln(Format('%d',[temp^]));

//  trans:=ntohl(inet_addr(PansiChar('172.16.0.255')));
  trans:=inet_addr(PansiChar('172.16.0.255'));
  pstart:=PByte(@trans);
  Writeln(Format('%d',[pstart^]));
  Inc(pstart);
  Writeln(Format('%d',[pstart^]));
    Inc(pstart);
  Writeln(Format('%d',[pstart^]));
    Inc(pstart);
  Writeln(Format('%d',[pstart^]));
  Writeln('------------------------------------');
  Writeln(Format('%x',[Byte(inet_addr(PansiChar('172.16.0.255')))]));
  Writeln(Format('%x',[inet_addr(PansiChar('172.16.0.255'))]));
//  Writeln(Format('%x',[ntohl(inet_addr(PansiChar('172.16.0.255')))]));

  Readln(strname);

end.