Last change
on this file since 700 was 649, checked in by OverTaker, 16 years ago |
IPHostEntry,Dnsクラスを半分実装。getaddrinfoがXPSP1以降にしかないので、gethostbyname版の実装もあとでします。
|
File size:
710 bytes
|
Rev | Line | |
---|
[648] | 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 | */
|
---|
[649] | 23 | Static Function Create(address As SocketAddress) As EndPoint
|
---|
| 24 | Dim point = New EndPoint
|
---|
| 25 | point.socketAddress = address
|
---|
| 26 | Return point
|
---|
[648] | 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.