Changeset 649 for trunk/ab5.0/ablib/src/Classes/System/Net/IPAddress.ab

Timestamp:

Oct 19, 2008, 11:25:55 AM (16 years ago)

Author:

OverTaker

Message:

IPHostEntry,Dnsクラスを半分実装。getaddrinfoがXPSP1以降にしかないので、gethostbyname版の実装もあとでします。

File:

• trunk/ab5.0/ablib/src/Classes/System/Net/IPAddress.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/System/Net/IPAddress.ab

@@ -47 +47 @@
     @note  このコンストラクタはライブラリ内のみで使用する目的で作られています。
     */
-    Sub IPAddress(address As SocketAddress)
-        family = address.AddressFamily
+    Sub IPAddress(addr As *sockaddr)
+        family = addr.sa_family
         Select Case family
             Case AF_INET
-                Dim addr4 = address.Items As *sockaddr_in
+                Dim addr4 = addr As *sockaddr_in
                 size = SizeOf(in_addr)
                 item = malloc(size)
                 memcpy(item, VarPtr(addr4->sin_addr.s_addr), size)
             Case AF_INET6
-                Dim addr6 = address.Items As *sockaddr_in6
+                Dim addr6 = addr As *sockaddr_in6
                 size = SizeOf(in6_addr)
                 item = malloc(size)
@@ -63 +63 @@
                 Throw New NotSupportedException("IPAddress: Not Supported AddressFamily.")
         End Select
+    End Sub
+
+    /*!
+    @brief コンストラクタ
+    @param IPアドレスを表したバイト列
+    @param IPアドレスの長さ
+    @note  このコンストラクタはライブラリ内のみで使用する目的で作られています。
+    */
+    Sub IPAddress(af As DWord, address As *Byte, len As Long)
+        family = af
+        size = len
+        item = malloc(size)
+        memcpy(item, address, size)
     End Sub
 
@@ -213 +226 @@
     */
     Static Function Any() As IPAddress
-        Return New IPAddress(0)
+        Return New IPAddress(0 As DWord)
     End Function