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

Timestamp:

Oct 18, 2008, 10:22:52 PM (16 years ago)

Author:

OverTaker

Message:

IPEndPointの実装

File:

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

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

@@ -40 +40 @@
         item = malloc(size)
         memcpy(item, VarPtr(ip), size)
+    End Sub
+
+    /*!
+    @brief コンストラクタ
+    @param SocketAddressクラスから作成
+    @note  このコンストラクタはライブラリ内のみで使用する目的で作られています。
+    */
+    Sub IPAddress(address As SocketAddress)
+        family = address.AddressFamily
+        Select Case family
+            Case AF_INET
+                Dim addr4 = address.Items 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
+                size = SizeOf(in6_addr)
+                item = malloc(size)
+                memcpy(item, VarPtr(addr6->sin6_addr.s6_addr), size)
+            Case Else
+                Throw New NotSupportedException("IPAddress: Not Supported AddressFamily.")
+        End Select
     End Sub