(换个题目和分类)关于网络端口的弱智问题 ( 积分: 100 )

-----------------------------------
  //检查WinSock版本号
  if WSAStartup(MakeWord(2, 2), WSData) <> 0 then
    raise Exception.Create('不能启动WinSock2.2版本。');

  //初始化RAW_Socket
  RAWSocket := socket(AF_INET, SOCK_RAW, IPPROTO_RAW);
  if RAWSocket = INVALID_SOCKET then
    raise Exception.Create('不能初始化RAW_Socket。')
  else
    lbMsg.Items.Append('初始化RAW_Socket成功');

  //设置IP头操作选项为:包括IP头信息(98不支持)
  fIPInclude := 1;
  if setsockopt(RAWSocket, IPPROTO_IP, IP_HDRINCL, @fIPInclude, SizeOf(fIPInclude)) = SOCKET_ERROR then
  begin
    btnClearupClick(nil);
    raise Exception.Create('不能设置为捕获IP头。');
  end // IF:
  else
    lbMsg.Items.Append('设置捕获IP头模式');

  //获取本机名
  if gethostname(LocalName, SizeOf(LocalName)) = SOCKET_ERROR then
  begin
    btnClearupClick(nil);
    raise Exception.Create('不能获取本机名称。');
  end // IF:
  else
    lbMsg.Items.Append('本机名称:' + LocalName);

  //获取本地 IP 地址
  pHost := gethostbyname(LocalName);
  if pHost = nil then
  begin
    btnClearupClick(nil);
    raise Exception.Create('不能获取本机IP。');
  end; // IF:

  //设置绑定内容
  with AddressIn do
  begin
    sin_addr.S_addr := Longint(PLongint(pHost^.h_addr_list^)^);
    sin_family := AF_INET;
    sin_port := htons(80); //HTTP
  end; // WITH:

  lbMsg.Items.Append('本机IP:' +
    IntToStr(Integer(AddressIn.sin_addr.S_un_b.s_b1)) +
    '.' +
    IntToStr(Integer(AddressIn.sin_addr.S_un_b.s_b2)) +
    '.' +
    IntToStr(Integer(AddressIn.sin_addr.S_un_b.s_b3)) +
    '.' +
    IntToStr(Integer(AddressIn.sin_addr.S_un_b.s_b4))
    );

  //把 sock 绑定到本地地址上  <--------这个步骤在2000下不能执行。
  if bind(RAWSocket, AddressIn, SizeOf(AddressIn)) = SOCKET_ERROR then
  begin
    btnClearupClick(nil);
    raise Exception.Create('不能绑定RAW_Socket到本机IP 80端口。');
  end // IF:
  else
    lbMsg.Items.Append('80端口绑定');

  //设置SOCK_RAW为SIO_RCVALL,接收所有的IP包
  dwRcvAll := 1;
  if ioctlsocket(RAWSocket, SIO_RCVALL, dwRcvAll) <> 0 then
  begin
    btnClearupClick(nil);
    raise Exception.Create('不能设置为接收所有IP包。');
  end // IF:
  else
    lbMsg.Items.Append('设置接收所有IP包');

-----------------------------------