Last change
on this file since 675 was 649, checked in by OverTaker, 17 years ago |
IPHostEntry,Dnsクラスを半分実装。getaddrinfoがXPSP1以降にしかないので、gethostbyname版の実装もあとでします。
|
File size:
710 bytes
|
Line | |
---|
1 |
|
---|
2 |
|
---|
3 | /*!
|
---|
4 | @brief ネットワーク端末のアドレスを表します。
|
---|
5 | @author OverTaker
|
---|
6 | @date 2008/10/08
|
---|
7 | */
|
---|
8 |
|
---|
9 |
|
---|
10 |
|
---|
11 | Namespace System
|
---|
12 | Namespace Net
|
---|
13 |
|
---|
14 | Class EndPoint
|
---|
15 | socketAddress As SocketAddress
|
---|
16 | Public
|
---|
17 |
|
---|
18 | /*!
|
---|
19 | @brief SocketAddressクラスから作成する
|
---|
20 | @param SocketAddressクラス
|
---|
21 | @return SocketAddressを元に作成したEndPoint
|
---|
22 | */
|
---|
23 | Static Function Create(address As SocketAddress) As EndPoint
|
---|
24 | Dim point = New EndPoint
|
---|
25 | point.socketAddress = address
|
---|
26 | Return point
|
---|
27 | End Function
|
---|
28 |
|
---|
29 | /*!
|
---|
30 | @brief アドレスファミリを取得する
|
---|
31 | @return アドレスファミリ
|
---|
32 | */
|
---|
33 | Function AddressFamily() As Sockets.AddressFamily
|
---|
34 | Return socketAddress.AddressFamily
|
---|
35 | End Function
|
---|
36 | End Class
|
---|
37 |
|
---|
38 | End Namespace
|
---|
39 | End Namespace
|
---|
Note:
See
TracBrowser
for help on using the repository browser.