C# と VB.NET の質問掲示板

C# 2005 Express（Framework2.0）で開発しています。
宜しくお願いします。

Tcpで通信するアプリを開発中です。
System.Net.TcpClientの同期式の接続だと
Serverの電源OFFの場合に
２０秒程度待たされます。

そこで、非同期接続を使いタイムアウトを
加味して接続するClassを作成しました。

WaitOneでタイムアウト時に何もしないと
その後ConnectCallBackが走るため
タイムアウトでCloseをやってみました。

特に問題はないと思ってるのですが、
ご意見ありましたら、お願いします。


    public class TcpConnect {
        /// <summary>
        /// 接続待ちEvent
        /// </summary>
        private ManualResetEvent _evConnect = new ManualResetEvent(false);

        /// <summary>
        /// 非同期接続処理のException
        /// </summary>
        private Exception _connEx;

        /// <summary>
        /// 指定先に接続したTcpClient クラスを返す(タイムアウト機能付)
        /// </summary>
        /// <param name="host">DNSマシン名orIPアドレス</param>
        /// <param name="portNo">ポート番号</param>
        /// <param name="timeoutMSec">タイムアウト[mSec]</param>
        /// <returns></returns>
        public TcpClient Connect(string host, int portNo, int timeoutMSec) {

            lock (this) {
                _evConnect.Reset();
                _connEx = null;

                TcpClient tc = new TcpClient();
                tc.BeginConnect(host, portNo, new AsyncCallback(ConnectCallBack), tc);

                if (_evConnect.WaitOne(timeoutMSec, false)) {
                    if (_connEx == null) {
                        return tc;
                    } else {
                        throw _connEx;
                    }
                } else {
                    // ConnectCallBackを発生させる
                    // （TcpClient.Clientがnullで発生する）
                    tc.Close();

                    // タイムアウト通知
                    throw new TimeoutException("Tcp Connect Timeout");
                }
            }
        }

        /// <summary>
        /// TcpClient.BeginConnect の CallBack
        /// </summary>
        /// <param name="ar"></param>
        private void ConnectCallBack(IAsyncResult ar) {

            try {
                TcpClient client = ar.AsyncState as TcpClient;
                if (client.Client != null) {
                    client.EndConnect(ar);
                } else {
                    // BeginConnect中にTcpClient.Close
                    // を呼んだことにより発生
                    // 無視する
                }
            } catch (Exception ex) {
                _connEx = ex;
            } finally {
                _evConnect.Set();
            }
        }
    }

■No63235 (SAQ さん) に返信

正規表現を使ったほうが楽でしょう。
使わなくても独自に文字列解析をすれば可能です。
以下正規表現を使ったサンプルです。


Imports System.Text.RegularExpressions

Public Class Form1
    Private Class CompSorter
        Implements IComparer(Of String)

        Private FilePat As Regex

        Public Sub New()
            FilePat = New Regex("(?<Alp>.+?)-(?<Num>\d+)_Ver(?<Ver>\d+)\.txt")
        End Sub

        Public Function Compare(x As String, y As String) As Integer Implements System.Collections.Generic.IComparer(Of String).Compare
            Dim FileX As New IO.FileInfo(x)
            Dim FileY As New IO.FileInfo(y)
            Dim xm = FilePat.Match(FileX.Name)
            Dim ym = FilePat.Match(FileY.Name)
            Compare = 0
            If xm.Success AndAlso ym.Success Then
                Dim AlpX = xm.Groups("Alp").Value
                Dim AlpY = ym.Groups("Alp").Value
                Dim NumX = CInt(xm.Groups("Num").Value)
                Dim NumY = CInt(ym.Groups("Num").Value)
                Dim VerX = CInt(xm.Groups("Ver").Value)
                Dim VerY = CInt(ym.Groups("Ver").Value)

                Dim ret = NumX.CompareTo(NumY)
                If ret = 0 Then
                    ret = VerX.CompareTo(VerY)
                End If
                If ret = 0 Then
                    ret = String.Compare(AlpX, AlpY)
                End If
                Return ret
            ElseIf xm.Success Then
                Return 1
            ElseIf ym.Success Then
                Return -1
            End If
        End Function
    End Class
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim FileNames() As String = New String() { _
                                        "C:\Folder_01\AA-001_Ver2.txt",
                                        "C:\Folder_02\CC-002_Ver1.txt",
                                        "C:\Folder_03\CC-003_Ver3.txt",
                                        "C:\Folder_04\BB-002_Ver1.txt",
                                        "C:\Folder_05\AA-001_Ver1.txt"
                                    }
        Dim Sorter As New CompSorter

        Array.Sort(FileNames, Sorter)
    End Sub
End Class