Raw Socket（原始套接字）实现Sniffer（嗅探）

Raw Socket（原始套接字）实现Sniffer（嗅探）(4) : TForm(Owner) 
{ 
WSADATA WSAData; 
BOOL flag = true; 
int nTimeout = 1000; 
char LocalName[16]; 
struct hostent *pHost; 

//检查 Winsock 版本号 
if (WSAStartup(MAKEWORD(2, 2), &WSAData) != 0) 
throw Exception("WSAStartup error!"); 

//初始化 Raw Socket 
if ((sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW)) == INVALID_SOCKET) 
throw Exception("socket setup error!"); 

//设置IP头操作选项 
if (setsockopt(sock, IPPROTO_IP, IP_HDRINCL, (char*)&flag, sizeof(flag)) == SOCKET_ERROR) 
throw Exception("setsockopt IP_HDRINCL error!"); 

//获取本机名 
if (gethostname((char*)LocalName, sizeof(LocalName)-1) == SOCKET_ERROR) 
throw Exception("gethostname error!"); 

//获取本地 IP 地址 
if ((pHost = gethostbyname((char*)LocalName)) == NULL) 
throw Exception("gethostbyname error!"); 

addr_in.sin_addr = *(in_addr *)pHost->h_addr_list[0]; //IP 
addr_in.sin_family = AF_INET; 
addr_in.sin_port = htons(57274); 

//把 sock 绑定到本地地址上 
if (bind(sock, (PSOCKADDR)&addr_in, sizeof(addr_in)) == SOCKET_ERROR) 
throw Exception("bind error!"); 

iSortDirection = 1; 
} 
//--------------------------------------------------------------------------- 
__fastcall TMainForm::~TMainForm() 
{ 
WSACleanup(); 
} 
//--------------------------------------------------------------------------- 

void __fastcall TMainForm::btnCtrlClick(TObject *Sender)