Functions that have just been written to read multiple NIC IP addresses

Although now more than one machine card is very common (like notebook with wire, wireless, Bluetooth, etc.), but find a ready-to-read all the network card IP address of the function is difficult, helpless to write a, good things who use who know.

[C-sharp]View PlainCopy

2. Uses WinSock;
4. Type
6. Paddrinfow = ^addrinfow;
8. Addrinfow = Record
10. Ai_flags:integer; //Ai_passive, Ai_canonname, Ai_numerichost
12. Ai_family:integer; //Pf_xxx
14. Ai_socktype:integer; //Sock_xxx
16. Ai_protocol:integer; //0 or Ipproto_xxx for IPv4 and IPv6
18. Ai_addrlen:ulong; //Length of AI_ADDR
20. Ai_canonname:pwidechar; //Canonical name for NodeName
22. AI_ADDR:PSOCKADDR; //Binary address
24. Ai_next:paddrinfow; //Next structure in linked list
26. End
28. Ppaddrinfow = ^paddrinfow;
30. Taddrinfow = addrinfow;
34. function Getaddrinfow (Nodename:pwidechar; Servicename:pwidechar; Hints:paddrinfow; PPRESULT:PPADDRINFOW): Integer; stdcall;  External ' ws2_32.dll ' name ' getaddrinfow ';
36. Procedure Freeaddrinfow (AI:PADDRINFOW); stdcall; stdcall;  External ' ws2_32.dll ' name ' freeaddrinfow ';
40. Procedure Getiplist (list:tstrings);
42. Var
44. BUFFER:ARRAY[0..63] of Ansichar;
46. Hostname: string;
48. Hints:taddrinfow;
50. Laddrinfo:paddrinfow;
52. Retval:integer;
54. Ginitdata:twsadata;
56. Begin
58. WSAStartup ($101, ginitdata);
60. GetHostName (buffer, SizeOf (buffer));
62. Hostname: = string (Buffer);
64. ZeroMemory (@Hints, SizeOf (taddrinfow));
66. Hints.ai_family: = 2{af_inet};
68. Hints.ai_socktype: = 1{sock_stream};
70. Laddrinfo: = nil;
72. RetVal: = Getaddrinfow (PChar (Hostname), nil, @Hints, @LAddrInfo);
74. Try
76. if (RetVal = 0) and (laddrinfo <> nil) Then
78. Repeat
80. With Tinaddr (LADDRINFO^.AI_ADDR^.SIN_ADDR). S_un_b Do
82. List.add (Format ('%d.%d.%d.%d ', [Byte (S_B1), Byte (s_b2), Byte (s_b3), Byte (S_B4)]));
84. Laddrinfo: = Laddrinfo^.ai_next;
86. Until Laddrinfo = nil;
88. finally
90. Freeaddrinfow (Laddrinfo);
92. WSACleanup;
94. End
96. End

PS: I use the D2009, with the low version D friend trouble oneself changed.

http://blog.csdn.net/nhconch/article/details/4897682

Functions that have just been written to read multiple NIC IP addresses