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

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

@@ -21 +21 @@
     @return SocketAddressを元に作成したEndPoint
     */
-    Function Create(address As SocketAddress) As EndPoint
-        socketAddress = address
+    Static Function Create(address As SocketAddress) As EndPoint
+        Dim point = New EndPoint
+        point.socketAddress = address
+        Return point
     End Function