Changeset 649 for trunk/ab5.0/ablib/src/Classes/System/Net/IPEndPoint.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/IPEndPoint.ab (modified) (3 diffs)

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

@@ -15 +15 @@
     Inherits EndPoint
 Public
+
+    /*!
+    @brief  コンストラクタ
+    */
+    Sub IPEndPoint()
+    End Sub
 
     /*!
@@ -61 +67 @@
     */
     Function Address() As IPAddress
-        Return New IPAddress(socketAddress)
+        Return New IPAddress(socketAddress.Items)
     End Function
 
@@ -96 +102 @@
                 Throw New NotSupportedException("IPEndPoint.Port: Unknown AddressFamily.")
         End Select
+    End Function
+
+    /*!
+    @brief  SocketAddressクラスから作成する
+    @param  SocketAddressクラス
+    @return SocketAddressを元に作成したIPEndPoint
+    */
+    Static Function Create(address As SocketAddress) As IPEndPoint
+        Dim point = New IPEndPoint
+        point.socketAddress = address
+        Return point
     End Function