Delphi网络数据包嗅探器

代码说明：

应用背景样品：单位umain；接口使用 ；窗口，消息，SysUtils，类，图形，控件，窗体， ；对话框，stdctrls，Winsock，comctrls；const ；max_packet_size = 10000美元；2 ^ / / 16 ；sio_rcvall = 98000001美元； ；wsa_ver = 202美元；max_adapter_name_length  ； ； ； ； ； ； ； ；= 256； ；max_adapter_description_length = 128；max_adapter_address_length  ； ； ； ； ；= 8； ；IPHelper =“很DLL；关键技术型 ；UShort =词； ；页= DWORD； ；time_t = LongInt； ；tipheader =压缩记录 ； ； ；iph_verlen： ； ；函数； ； ； ；/ /âåðñèÿèäëèíàçàãîëîâêà ； ； ；iph_tos： ； ； ； ； ；函数； ； ； ；/ /òèïñåðâèñà ； ； ；iph_length： ； ；UShort； ； ；/ /äëèíàâñåãîïàêåòà ； ； ；iph_id： ； ； ； ； ； ；UShort； ； ；/ /Èäåíòèôèêàöèÿ ； ； ；iph_offset： ； ；UShort； ； ；/ /ôëàãèèñìåùåíèÿ ； ； ；iph_ttl： ； ； ； ； ；函数；