十兵衛＠わんくま同盟

時間は掛かるけど・・・

十兵衛（諸農） — Sat, 09 May 2009 08:42:00 GMT

ディレクトリ/フォルダのように階層構造を持つデータ群から特定のデータを探し出したり、またはドライブに含まれる全部のファイルやディレクトリを列挙したいときにはどうすればいいでしょうか。forやwhileを使った繰り返し処理で検索するファイルやディレクトリが無くなるまで処理を続けると言った方法が思い付きます。

    private void SearchFiles()
    {
        DirectoryInfo root = new DirectoryInfo(@"C:\Windows");
        FileInfo[] dirInfos = root.GetFiles("*.*", SearchOption.AllDirectories);
        foreach (FileInfo di in dirInfos) Console.WriteLine(di.Name);
    }

.NET v2.0で追加されたDirectoryInfo.GetFiles（）のオーバーロードバージョンを使えば、検索対象の配下のすべてのディレクトリ/ファイルを一気に取得できます※１。データを取得するだけではなく、階層構造の単位で何らかの処理をしたい、と言った場合にはちょっとよいしょが必要ですね。例えば階層構造に合わせてTreeViewに表示したい場合なら、取得したFileInfoからディレクトリの構造を抜き出してTreeViewに追加するノードを作ったり、すでにあるノードからディレクトリのノードを探し出してファイル名のノードを追加する、みたいな感じで、ちょっと考えただけでも頭の中がこんがらがってしまいそうです。

※１　ドライブを検索対象にした場合、System Volume へのアクセス権限がないと次のような例外が発生します。
System.UnauthorizedAccessException はハンドルされませんでした。
Message="パス 'C:\\System Volume Information' へのアクセスが拒否されました。"
Source="mscorlib"

ディレクトリ/フォルダの構成というのは、いくつかのディレクトリ/フォルダが階層というルールに従って並んでいるだけです。一つのディレクトリ/フォルダに対して行う処理は全部のディレクトリ/フォルダに行う処理と同じです。ただ、その処理が階層的に連続しているだけと言うことに気付きます。ということは、このディレクトリ/フォルダ単位に行う処理を繰り返し行えば目的を達成することが出来そうです。

まず最小単位の処理を考えてみます。最小単位はフォルダに対する処理です。一つのフォルダの中に含まれるフォルダとファイルの一覧を列挙する処理を作ります。フォルダに含まれるファイルを列挙するのは簡単ですが、そのフォルダの配下にあるフォルダ、つまり階層構造の次の階層のフォルダの処理はどうすればいいのでしょうか。次の階層に行う処理も、今自分が行っている処理も、処理の手順は同じと言うことに気付けば簡単です。今行っている処理と同じ処理をもう一度呼び出せば良いのです。そうすると呼び出される処理は、自分が行うべき対象のフォルダの情報を呼び出し側から受け取って処理を行い、処理の過程で新たにフォルダを発見したなら、そのフォルダの情報を使ってもう一度自分自身と同じ処理を呼び出せばよいと言うことになります。このように最小単位に分けられた処理が、その処理の中から繰り返し呼び出されることを再帰処理、または単に再帰と呼びます。

再帰処理を使う場面は階層構造をもったデータに対してだけではありません。例えば単純な場面では、いくつか並んだ数字の中に特定の数字がいくつ含まれているかをチェックする場合にも使えます。

    private int HowManyNumber(int value,int Target)
    {
        if (value == 0) return 0;
        return (((value % 10) == Target) ? 1 : 0) + HowManyNumber(value / 10, Target);
    }

    private void button1_Click(object sender, EventArgs e)
    {
        int num = 37453863;
        int target = 3;
        Console.WriteLine("{0}の中に{1}は{2}個ありました",
            num,target, HowManyNumber(num, target));
    }

応用すれば、約数/公約数や因数分解にも利用できます。

自分自身を繰り返し呼び出すことになる再帰処理には無限ループに陥るという危険性がありますから、どこかで必ず終わることが出来るように終了条件を決めておくことを忘れてはいけません。また、再帰処理は自分自身を繰り返し呼びことになるので、呼び出しの階層が深くなればなるに従って処理の中で使うメモリも少しずつ積み重なり増え続けることになります。計算対象が大きくなればなるほど消費するリソースの量が増え続けて、最悪の場合はリソース不足から処理そのものが中断されてしまうことになります。

再帰処理は高速なアルゴリズム、とは言えないです。何度も繰り返しメソッドを呼び出すのですから呼び出しのオーバーヘッドが処理の速度にも影響するでしょう。リソースも消費するのでそれだけマシンそのものの負荷増大にも繋がります。再帰処理のメリットは、プログラムの見やすさにあると考えても良さそうです。

最初の話に戻って、ディレクトリ/ファイル一覧をTreeViewに表示するのに次のような処理を使ってみました。再帰処理の最小単位となる処理の内容は、受け取ったディレクトリの情報からそのディレクトリに含まれるディレクトリ一覧とファイル一覧を取得しディレクトリのノードを作成します。ノードを作成したディレクトリの情報を使ってもう一度自分自身を呼びます。この時に、作成したディレクトリのノードも引き渡します。そうすることで受け取った側は、引き渡されたディレクトリ情報からそのディレクトリ内に含まれるディレクトリを一階層上のノードに子ノードとして追加することが出来ます。ディレクトリがなければファイル一覧のノードが追加されます。

    private string[] SearchDrives()
    {
        List<string> driveStr = new List<string>();
        DriveInfo[] drives = DriveInfo.GetDrives();
        foreach (DriveInfo di in drives)
        {
            if (di.IsReady)
                driveStr.Add(string.Format("{0} [{1}]", di.Name, di.VolumeLabel));
            else
                driveStr.Add(string.Format("{0}", di.Name));
        }
        return driveStr.ToArray();
    }

    private TreeNode SearchFiles(DirectoryInfo ADirInfo,TreeNode ANode)
    {
        DirectoryInfo[] dirInfos = ADirInfo.GetDirectories();
        foreach (DirectoryInfo di in dirInfos)
        {
            if ((di.Attributes & FileAttributes.System) > 0) continue;
            TreeNode node = ANode.Nodes.Add(di.Name);
            SearchFiles(di, node);
        }
        FileInfo[] fileInfos = ADirInfo.GetFiles();
        foreach (FileInfo fi in fileInfos) ANode.Nodes.Add(fi.Name);
        return ANode;
    }

    private void Linear()
    {
        treeView1.Nodes.Clear();
        string drive = (string)comboBox1.Items[comboBox1.SelectedIndex];
        drive = drive.Substring(0, 3);
        DriveInfo di = new DriveInfo(drive);
        if (di.IsReady)
        {
            try
            {
                treeView1.BeginUpdate();
                TreeNode root = treeView1.Nodes.Add(di.Name);
                DirectoryInfo dirInfo = new DirectoryInfo(di.Name);
                SearchFiles(dirInfo, root);
                root.Expand();
                treeView1.TopNode = root;
            }
            finally
            {
                treeView1.EndUpdate();
            }
        }
    }

フォーム上に配置したComboBoxにドライブ一覧が表示されていて、ComboBox上の選択アイテムが変更されたときに起動するようにしています。ドライブ情報の取得方法は次の通りです。

    private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)
    {
        Linear();
    }

この方法ではドライブ内のディレクトリ/ファイルの一覧を延々と検索するのですが、ドライブに含まれるディレクトリ/ファイルの数が多すぎると、処理を行っている最中はフォームが無応答、つまり固まったように見えます。

この現象は時間の掛かる処理をフォームを作成したスレッドと同じスレッドで行っているのが原因です。この固まったように見える現象をデリゲートの非同期実行によって回避してみましょう。ComboBoxのアイテム選択が変更され、ディレクトリ/ファイル一覧を作成するデリゲートを作成しBeginInvoke()で非同期実行を開始します。この時、非同期で実行されるデリゲートが終了した時点で呼び出されるコールバックメソッドも指定しておきます。処理が終了したらコールバックメソッドが呼び出されるので、コールバックメソッドの中でデリゲートの戻り値、つまりディレクトリ/ファイル一覧のTreeNodeを受け取ります。そして受け取ったTreeNodeをTreeViewにセットするのですが、コールバックメソッドはフォームとは違うスレッドで実行されているので、コールバックメソッドの中からフォーム上のコントロールには直接アクセスすることはできません。そこで、フォームと同じスレッドで実行されるデリゲートを作成しフォームのInvoke/BeginInvokeメソッドに処理を委譲する、つまりデリゲートします。この時、匿名メソッドを使えば、コールバックメソッド内で受け取ったTreeNode変数をメソッドの外で定義する必要が無くなり、一つのメソッド内で完結させることが出来ます。

private delegate TreeNode SeachFileDelegate(DirectoryInfo ADirInfo, TreeNode ANode);
private delegate void InvokeDelegate();

    private void Asynchronous()
    {
        treeView1.Nodes.Clear();
        string drive = (string)comboBox1.Items[comboBox1.SelectedIndex];
        drive = drive.Substring(0, 3);
        DriveInfo di = new DriveInfo(drive);
        if (di.IsReady)
        {
            TreeNode root = new TreeNode(di.Name);
            DirectoryInfo dirInfo = new DirectoryInfo(di.Name);
            SeachFileDelegate sfd = new SeachFileDelegate(SearchFiles);
            sfd.BeginInvoke(dirInfo,root,new AsyncCallback(CallBack),sfd);
        }
    }

    private void CallBack(IAsyncResult ar)
    {
        SeachFileDelegate sfd = (SeachFileDelegate)ar.AsyncState;
        TreeNode root = sfd.EndInvoke(ar);
        this.BeginInvoke(new InvokeDelegate(
            delegate()
            {
                try
                {
                    treeView1.BeginUpdate();
                    treeView1.Nodes.Add(root);
                    treeView1.Nodes[0].Expand();
                    treeView1.TopNode = root;
                }
                finally
                {
                    treeView1.EndUpdate();
                }
            })
        );
    }

さてさて、実生活においても、これくらい非同期で色んなことが出来たらいいのに・・・と思うのは、僕だけかしらん(^^;

ストリーム型プロパティ

十兵衛（諸農） — Sat, 09 May 2009 07:26:00 GMT

読み取り専用のストリーム型プロパティを作成した場合、getアクセッサの実装をどうするか。

コンストラクタでもらったオーディオストリームをコピーして内部で保持しておき、必要なときにSoundPlayerで演奏するつもりで、内部で保持しているストリームオブジェクトの参照をそのままreturnすると負けます。

private class MyClass
{
    private System.IO.Stream audio;
    public System.IO.Stream Data
    {
        get
        {
            return audio;
        }
    }

    public MyClass(System.IO.Stream AAudio)
    {
        audio = new System.IO.MemoryStream();
        AAudio.WriteTo(audio);
    }
}

private void DoPlay()
{
      SoundPlayer snd = new System.Media.SoundPlayer();
      snd.LoadCompleted += new AsyncCompletedEventHandler(LoadCompleted);
      snd.Stream = obj.Data;
      snd.LoadAsync();
}

private void LoadCompleted(object sender,System.ComponentModel.AsyncCompletedEventArgs e)
{
while (!snd.IsLoadCompleted) System.Threading.Thread.Sleep(5);
snd.PlaySync();
}

一回目はちゃんと演奏できますけど、二回目以降は「WAVヘッダが壊れています」と言うメッセージが出ます。
なぜなら、SoundPlayerが一度演奏すると、ストリームのポジションが終わりに到達しているからなんです。参照をもらっているのでオブジェクト側のストリームも終端に達していると言うわけで、この終端に達した状態でもう一度SoundPlayerに読み込ませても、SoundPlayerは先頭に巻き戻しをしない。その場所から演奏を開始しようとする。なのでエラーになっちゃう。
渡す前に巻き戻しをするか、新しくStreamオブジェクトを作成してreturnするか。今回の場合はgetアクセッサだけを装備した読み取り専用プロパティという意味もあるので、新しくStreamを作った方が良いと思います。外部操作で中身が変更されてしまっては、読み取り専用の意味がなくなりますね。

配列を扱う（C#のArray型）

十兵衛（諸農） — Sat, 09 May 2009 07:21:00 GMT

.NET Frameworkでは、一次元配列のリサイズがstaticメソッドで簡単にできます。また、Fileクラスを使ってテキストデータを直接読み込むことも出来ます。
この二つを組み合わせれば、ファイルのテキストデータを文字列配列として確保することが出来ます。

今回の「配列を扱う」テストのために準備したテキストデータは、一つの国名を「漢字」「ひらがな」「カタカナ」の順に半角スペースで区切って一行に記載したものです。
準備した国名は全部で29個ですが、二つのファイルに分割して保存しています。

読み込みデータ１

露西亜	ろしあ	ロシア
英吉利	いぎりす	イギリス
日本	にっぽん	ニッポン
阿弗利加	あふりか	アフリカ
独逸	どいつ	ドイツ
印度	いんど	インド
濠太剌利	おーすとらりあ	オーストラリア
亜米利加	あめりか	アメリカ
阿蘭陀	おらんだ	オランダ
白耳義	べるぎー	ベルギー
伯剌西爾	ぶらじる	ブラジル
加奈陀	かなだ	カナダ
仏蘭西	ふらんす	フランス
伊太利亜	いたりあ	イタリア

読み込みデータ２


瑞西	すいす	スイス
西班牙	すぺいん	スペイン
葡萄牙	ぷろとがる	ポルトガル
墺太利	おーすとりあ	オーストリア
瑞典	すうぇーでん	スウェーデン
諾威	のるうぇー	ノルウェー
芬蘭	ふぃらんど	フィンランド
丁抹	でんまーく	デンマーク
希臘	ぎりしゃ	ギリシャ
波蘭	ぽーらんど	ポーランド
墨西哥	めきしこ	メキシコ
玖馬	きゅーば	キューバ
亜爾然丁	あるぜんちん	アルゼンチン
智利	ちり	チリ
秘露	ぺるー	ペルー

    static string[] ArrayConcat()
    {
        //国名辞書の読み込み
        string dir = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments);

        string[] dicStr = File.ReadAllLines(
            Path.Combine(dir,"Country name.dic"), Encoding.Default);

        string[] temp = File.ReadAllLines(
            Path.Combine(dir,"Country name2.dic"), Encoding.Default);

        //配列データの連結
        int pos = dicStr.Length;
        Array.Resize<string>(ref dicStr, pos + temp.Length);
        Array.Copy(temp, 0, dicStr, pos, temp.Length);

//中身確認
DisplayArray<string>(dicStr);

return dicStr;
}

複数の配列を連結したらやっぱりソートですね。ソートはデリゲートを使って行いました。

static SortKey key = SortKey.Kanji;

    static string[] ArraySort()
    {
        string[] dicStr = ArrayConcat();

        //ソート
        key = SortKey.Kana;
        Array.Sort<string>(dicStr, Comparison);

DisplayArray<string>(dicStr);

return dicStr;
}

    static int Comparison(string x, string y)
    {
        string[] strX = x.Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);
        string[] strY = y.Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);
        return strX[(int)key].CompareTo(strY[(int)key]);
    }

ここでは、読み込んだ文字列のソートをどの要素で行うかを列挙型のSortKey で判定するようにしています。この列挙型は別のクラスでも使いたいのでinternal で宣言しています。

internal enum SortKey { Kanji = 0, Hira = 1, Kana = 2 };

列挙型は数値型にキャストして利用することが出来るので、Comparisonデリゲートの内部で引き渡された文字列をスペースで分割した後に取得できる文字列の配列のどの要素で比較するのかのインデックスに利用しています。

return strX[(int)key].CompareTo(strY[(int)key]);

配列に格納したデータから要素を見つけ出すには BinarySearch() メソッドが使えます。BinarySearch()メソッドではIComparer<T>の実装を通して比較検索を行うことが出来ます。実装するためのクラスを作ります。クラスには先ほどのSortKey 列挙型をプロパティに持たせませます。public int Compare(string x, string y) のyパラメータにBinarySearch()メソッドで指定されるvalueパラメータが引き渡されます。xパラメータには配列の要素が順に引き渡されますので、Compare()メソッドの中身ではxパラメータだけを分解するようにします。

    internal class DicComparer : IComparer<string>
    {
        //BinarySearchに渡されたキーワードはyパラメータになる
        public int Compare(string x, string y)
        {
            string[] strX = x.Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);
            return strX[(int)key].CompareTo(y);
        }

        private SortKey key = SortKey.Kanji;
        public SortKey Key
        {
            set { key = value; }
            get { return key; }
        }
    }

BinarySearch()メソッドでは検索オブジェクトが見つかればその要素のインデックスを返しますが、配列内に同じ要素が複数ある場合はどの要素のインデックスが返されるかは判らないです。バイナリサーチなので仕方がないですね。検索対象の要素が配列に存在しない場合、返される値は0以下の数字になります。この数字を補数演算すると、もしも検索対象の要素が配列内に存在していたとするなら、配列内のどこに位置していたかを知ることが出来ます。

    static void BinarySearch()
    {
        string[] dicStr = ArraySort();
        switch (key)
        {
            case SortKey.Kanji:
                Console.WriteLine("漢字で国名を入力してください");
                break;
            case SortKey.Kana:
                Console.WriteLine("カタカナで国名を入力してください");
                break;
            default:
                Console.WriteLine("ひらがなで国名を入力してください");
                break;
        }
        string keyStr = Console.ReadLine();

        //検索
        DicComparer dicComp = new DicComparer();
        dicComp.Key = key;
        int ret = Array.BinarySearch<string>(dicStr, keyStr, dicComp);

        if (ret > -1)
        {
            Console.WriteLine("{0}を{1}番目に発見しました", keyStr, ret);
            Console.WriteLine("詳細情報 = {0}", dicStr[ret]);
        }
        else
        {
            ret = ~ret;
            Console.WriteLine("{0}は発見できませんでした", keyStr);
            if (ret == 0)
                Console.WriteLine("{0}は{1}よりも小さいです", keyStr, dicStr[ret]);
            else
                if(ret == dicStr.Length)
                    Console.WriteLine("{0}は{1}よりも大きいです", keyStr, dicStr[ret-1]);
                else
                    Console.WriteLine("{0}は{1}と{2}の間に入ります", keyStr, dicStr[ret - 1], dicStr[ret]);
        }
    }

この他にも配列型を扱うArrayクラスには Predicate<T> デリゲートを使った検索メソッドのExists()、Find()、FindAll()、FindIndex()、FindLast()、FindLastIndex()メソッドやAction<T>デリゲートを配列の各要素に適用させるForEach()メソッドが準備されています。

VBは難しい

十兵衛（諸農） — Sat, 09 May 2009 07:16:00 GMT

最近はプログラムを書くことがほとんどないのですが、燃えさかるプロジェクトのヘルプに入るとどうしてもメンテナンスすることになります。
ウチの会社の場合、大体のプロジェクトで採用されているのがVBな訳ですが、やっぱりVBは難しいです。
C#的発想でVBに取り組むとハマってしまうことも多々あります。

そんな一つが「IIf関数」。
SDKの定義では次のようになっています。

Public Function IIf( _
   ByVal Expression As Boolean, _
   ByVal TruePart As Object, _
   ByVal FalsePart As Object _
) As Object

第一引数に評価式を指定して、その式の結果が真の時は第二引数で指定したオブジェクトが、偽の時は第三引数で指定したオブジェクトが返されるというわけです。C#的発想だと「?:」演算子が思い浮かぶんですけど。。。今日ハマったのは、DataRowのあるカラムかNullならスペースを返し、Nullでないならカラムの内容を返すと言った部分で、C#だとこんな感じで問題なくできるんですよね。

            DataTable tbl = new DataTable();
            tbl.Columns.Add("COL1");
            tbl.Columns.Add("COL2");
            tbl.Columns.Add("COL3");
            tbl.Columns.Add("COL4");
            DataRow r = tbl.NewRow();
            string s = r[0] == DBNull.Value? "NULL":(string)r[0];
            MessageBox.Show(s);

で、同じようにVB.NETでも書いてみました。

        Dim r As DataRow = tbl.NewRow()
        Dim s As String = IIf(r(0) Is DBNull.Value, "", CStr(r(0)))
        MessageBox.Show(s)

一通りのコーディングが済んでテストじゃテストじゃってなことで実行させてみると、なんといきなり例外が発生するんですよ。

'System.InvalidCastException' のハンドルされていない例外が microsoft.visualbasic.dll で発生しました。
追加情報 : 型 'DBNull' から型 'String' へのキャストが有効ではありません。

え？何？何？何が悪いの？あ～意味がわから～～～ん、なのです。なんで？なんで？頭の上には？が10個以上並びましたよ。ホントに。全く判りませんでしたね。まさかね、IIf関数が、先に全部実行するなんて思いもしなかったですよ。えぇ、その後泣きながらコードを修正しましたよ。くそっ。
他にも色々とハマったことがあって、配列宣言の時に配列要素数を指定する場合は確保したい要素数よりも一つ少ない数字を指定するのとか。二次元配列オブジェクトのLengthを見てみると倍の長さが返ってくるとか。。

さて、こんな私の強い味方が、この本です。

定価1,800円ということで、技術系書籍にしてはかなりお手頃な価格なんですけど、C#とVB.NET言語の基本的な項目がコンパクトにまとめられているのと、両言語の相違点とハマりがちなツボをよく押さえているので費用対効果は抜群だと思います。さっきのIIf関数についても解説がありました。ウソかホントか知りませんが、IIf関数は通常のIF文よりも実行速度が最大で300倍ほど遅くなる可能性があるそうです（P.41）。

いや、ホントにね、この本がなければクラスのプロパティ宣言すら出来なかったりするんですよ(^^;
かなり、重宝しています。
オライリー様々って感じです。

偶数か、奇数か。

十兵衛（諸農） — Sat, 09 May 2009 07:10:00 GMT

ある整数が偶数か奇数かを判断するのは簡単ですね。１の位の数字が「０，２，４，６，８」なら偶数、そうでないなら奇数です。計算式で言うなら、２で割り切ることが出来れば偶数、割り切れなければ奇数と言うことになります。では、プログラムのコードで偶数か奇数かの判定をするにはどうすればいいのでしょうか。単純に２で割ればいいと言うことではないんです。例えば「15」が偶数かどうかを、単純に２で割るコードで確認してみると次のような結果になります。

private void DevideNum()
{
    int num = 15;
    System.Diagnostics.Trace.WriteLine(
        string.Format("15 devide 2 is {0}", num / 2));
}

コードを実行した結果は「７」※になってしまいました。もちろん人間の脳みそでならコレは奇数だとすぐに判断が出来るのですが、プログラムにはこれだけの情報で偶数か奇数かの判定はできません。もう少し突っ込んで考えないとダメですね。ある整数を２で割った場合、偶数の場合は余りが０になり、奇数の場合は余りが１になると言うことに気付けばとっても簡単です。剰余演算子の「％」を使えば余りを求めることが出来るので、偶数か奇数の判定をしたい整数を２で割ったときの余りを求めて、その余りが０なのか１なのかを確認すれば良いと言うことになります。
※オペランドによって出力結果は変わります。

private void DevideNum()
{
    int num = 15;
    System.Diagnostics.Trace.WriteLine(
        string.Format("15 is Even ? {0}", (num % 2)==0));
}

剰余を求める以外にも、別のやりかたで判定する方法があります。それはビットを見るという方法です。具体的には０ビット目（最下位ビット）を確認するのです。０ビット目が立っていなければ偶数、立っていれば奇数なので、判定の方法としては、判定したい整数と1との論理積を取ってその結果が０ならば偶数、１ならば奇数であると判断ができるのです。

private bool IsEven(int ATarget)
{
return (ATarget & 1) == 0;
}

private void CheckNumber()
{
    int num;
    num = 4;
    System.Diagnostics.Trace.WriteLine(
        string.Format("{0} is {1}", num,IsEven(num)?"Even":"Odd"));
    num = 35481;
    System.Diagnostics.Trace.WriteLine(
        string.Format("{0} is {1}", num, IsEven(num) ? "Even" : "Odd"));

}

なんとなくかっこいいでしょ？

スプラッシュフォーム

十兵衛（諸農） — Sat, 09 May 2009 07:07:00 GMT

スプラッシュフォームを使うと現在の状態が処理の完了待ちであることを表現することが出来ます。しかしメインの処理が完全にブロックするような場合、スプラッシュフォーム側の表示更新もメインの処理に引きずられるようにブロックされてしまい、本来の目的である「待ち状態を表現する」ことが難しくなります。例えば次のようなコードの場合、処理回数をメッセージ文字列としてスプラッシュフォーム上に表示していますが、ブロックされる処理がブロックから解放されるタイミングでしかメッセージ文字列の更新が出来ません。

private void SyncProc()
{
//スプラッシュフォーム
    Form3 f = new Form3();
    f.Show();
    for (int i = 0; i < 10; i++)
    {
//ブロックされる処理をシミュレート
        Thread.Sleep(1000);

//ブロックから解放されるタイミングでしかメッセージの更新が出来ない
        f.StepProg(
            string.Format("{0:d4} 回目の処理を行いました", i));
    }
    f.Close();
}

このような場合に別のスレッドを作成し、そのスレッド内でスプラッシュフォームの更新を行うようにしてみてはいかがでしょうか。
スプラッシュフォーム側にスレッドメソッドを作成しておき、その中でスプラッシュフォームのインスタンスを作成するようにしておきます。オーバーロードバージョンのコンストラクタを作成しておき必要なパラメータを受け取ります。コンストラクタからスプラッシュが表示されている間に行う繰り返し処理が記述されたメソッドを呼び出します。

public static void ThreadMethod(object AParam)
{
ThreadParam param = (ThreadParam)AParam;
new Form2(param.Parent, param.ProgressMin, param.ProgressMax, param.ProgressStep);
}

public Form2(Form1 AForm, int Min, int Max, int Step)
    : this()
{
    min = Min;
    max = Max;
    step = Step;
    parent = AForm;

SyncDoWork();
}

private void SyncDoWork()
{
this.Show();

    for (int i = 0; true; i++)
    {
        if (!this.Visible) break;
        Thread.Sleep(100);
        progressBar1.PerformStep();
        label1.Text = string.Format("{0:d4} 回目の処理を行いました", i);
//メインの処理は完了したか？
        if ((parent.InvokeRequired) ?
            (bool)parent.Invoke(new GetBool(parent.Done)) : parent.Done()) break;
        Application.DoEvents();
    }

    label1.Text = "メインフォームの処理が完了しました";
    this.Update();
    Thread.Sleep(1000);
    label1.Text = "スプラッシュフォームを閉じます";
    this.Update();
    Thread.Sleep(1000);
    this.Close();
}

v2.0からスレッド開始デリゲートに汎用型のパラメータを一つ渡すことが出来るようになりました。複数個のパラメータが必要な場合は、パラメータをプロパティまたはフィールドに持つクラスを定義して汎用オブジェクトとしてスレッドスタートの呼び出し時に引き渡すようにします。

const int max = 10;
private void StartThread1()
{
//パラメータ
    ThreadParam param = new ThreadParam(this, 0, max * 100, 1);
//パラメータ引き渡し型スレッドデリゲート
    Thread th = new Thread(new ParameterizedThreadStart(Form2.ThreadMethod));
//パラメータ渡し
    th.Start(param);
    for (int i = progressBar1.Minimum; i <= progressBar1.Maximum; i++)
    {
        Thread.Sleep(1000);
        progressBar1.PerformStep();
        label1.Text = string.Format("{0:d4} 回目の処理を行いました", i);
        Application.DoEvents();
    }
}

ところが結果は同じで、メインの処理とほぼ同じスピードでしかメッセージの表示更新が行われません。なぜならメインフォームの処理が完了したかどうかを「parent.Invoke(new GetBool(parent.Done)) 」で検査しているからです。Invokeは操作対象となるコントロールが存在するスレッド上で指定されたメソッドデリゲートの呼び出しを行うため、操作対象のコントロールがロックされていればロックが解除されるまで待つことになるからです。このような場合はBeginInvoke非同期メソッド呼び出しを使うとメインスレッドに引きずられることなくスプラッシュ側のスレッド処理を継続して行うことが出来ます。

private void DoWork()
{
this.Show();
//ステータスの確認を非同期で行う
IAsyncResult art = parent.BeginInvoke(new GetBool(parent.Done));

    for (int i = 0; true; i++)
    {
        if (!this.Visible) break;
        Thread.Sleep(10);
        progressBar1.PerformStep();
        label1.Text = string.Format("{0:d4} 回目の処理を行いました", i);
//ステータス確認のメソッド呼び出しは完了しているか？
        if (art.IsCompleted)
        {
//ステータスの取得
            if ((bool)parent.EndInvoke(art)) break;
            else
//ステータスが完了でないなら再度ステータス確認を非同期で行う
                art = parent.BeginInvoke(new GetBool(parent.Done));
        }
        Application.DoEvents();
    }
    label1.Text = "メインフォームの処理が完了しました";
    this.Update();
    Thread.Sleep(1000);
    label1.Text = "スプラッシュフォームを閉じます";
    this.Update();
    Thread.Sleep(1000);
    this.Close();
}

BeginInvokeメソッドはEndInvokeメソッドと対で使用します。BeginInvokeメソッドはデリゲートを非同期で呼び出す役目、そしてEndInvokeメソッドはメソッド呼び出しが完了した時点で呼び出したメソッドの戻り値を取得する役目があります。BeginInvokeメソッドの戻り値はIAsyncResult インタフェース型のオブジェクトとなります。IAsyncResult には4つのプロパティがあり、そのうちの一つであるIsCompletedを使ってメソッド呼び出しが完了しているかどうかを確認しています。完了しているならEndInvokeメソッドを使ってメインフォーム側から提供される状況ステータスを取得します（Form1.Done()メソッド）。

C# Cookbook のChap 18.4 ～ 18.6 では、非同期でのメソッド呼び出しやコールバックの方法、IAsyncResultインタフェースの使い方について判りやすくシンプルなコードで解説が行われています。今回紹介したスプラッシュとは直接関係はないのですが Chap 18の最初の段階では、多くの書籍のサンプルコードで採用されているロックの方法の問題点を明らかにしており、解決方法としてMSDN Magazine Jan 2003 のJeffrey Richter 氏の記事を引用参照しています。余談となりますが、Jeffrey Richter 氏の CLR via C# のPart Ⅴ：CLR Facilities Chapter 23（p.589～）、Chapter 24 ではスレッドについて詳細な解説がされています。

アルゴリズムの再利用

十兵衛（諸農） — Sat, 09 May 2009 07:03:00 GMT

Genericsを使うと、タイプセーフなアルゴリズムの再利用が可能となります。

例えばコレクションや配列を逆順にソートしたい場合を考えてみます。逆順ソートの対象が配列型であるなら、まず最初にArray.Sort()メソッドを呼び出しその後にArray.Reverse()メソッドを呼び出すことで簡単に実現できます。つまりICollectionインタフェースを実装しているクラスであるならコレクションアイテムを一時的に配列に出力し、その配列に対してSort→Reverseを行うことで逆順ソートを実現することが出来ると言うことです。

static private U[] SortReverse<T, U>(T Collection)
    where T : ICollection
    where U : IComparable
{
    U[] val = new U[Collection.Count];
    Collection.CopyTo(val, 0);
    Array.Sort(val);
    Array.Reverse(val);
    return val;
}

Genericsメソッドではメソッドで使用する型パラメータを「<>」内で宣言します。ここでは二種類の型を宣言しています。Tは引数の型、Uは戻り値となる配列の要素の型です。メソッド宣言の後にwhereを使って型パラメータに制約を付与しています。メソッド引数となるT型パラメータにはICollectionインタフェースが実装されている必要があります。なぜならICollection.CopyTo()メソッドを使ってコレクションアイテムの要素を一次元配列に格納する必要があるからです。そしてもう一つのU型パラメータにはIComparableインタフェースが実装されている必要があります。これはArray.Sort()メソッドが要素アイテムを比較する際にIComparableインタフェースを呼び出すからです。

このようにGenericsメソッドを準備することで逆順ソートというアルゴリズムを再利用することが可能となります。次のstCollection()メソッドではStringCollectionクラスを使って文字列リストを作成し逆順ソートを行っていますが、intArray()メソッドではint型の配列（int[]型）で数値配列を作成して、先ほどのStringCollectionを逆順ソートしたのと同じメソッドで逆順ソートを実現しています。

static void stCollection()
{
    StringCollection slist = new StringCollection();
    slist.Add("伊太利亜");
    slist.Add("阿弗利加");
    slist.Add("露西亜");
    slist.Add("英吉利");
    slist.Add("独逸");
    slist.Add("白耳義");
    slist.Add("伯剌西爾");
    slist.Add("加奈陀");
    slist.Add("仏蘭西");
    slist.Add("日本");
    slist.Add("亜米利加");
    slist.Add("阿蘭陀");
    slist.Add("印度");
    slist.Add("濠太剌利");
    string[] sAry = SortReverse<StringCollection, string>(slist);
    DispList<string[]>(sAry, "文字列の逆ソート");
}

static void intArray()
{
    int[] iAry = new int[] { 5, 9, 12, 87, 3, 4, 8 };
    iAry = SortReverse<int[], int>(iAry);
    DispList<int[]>(iAry, "数値の逆ソート");
}

今回作成したメソッドを利用する上で注意が必要なのは、配列要素に自分で定義した型（クラス）を利用しようとした場合にIComparableインタフェースを実装する必要があるということです。もしも実装していない場合はコンパイル時にエラーとなります。これはメソッドの型パラメータに対してwhereキーワードで制約を付与しているからです。このように制約を与えることでGenericsの持つ「タイプセーフ」をより厳密にすることができます。

例えば次のようなクラスを作成し、List<>クラスで保持した後に逆順ソートを行おうとしてもコンパイル時に次のようなエラーが出力されます。

//IComparableを実装していないクラス
class MyClass
{
    private string fname;
    private string lname;
    public MyClass(string ALastName, string AFirstName)
    {
        fname = AFirstName;
        lname = ALastName;
    }
    public string FirstName
    {
        get { return fname; }
    }
    public string LastName
    {
        get { return lname; }
    }
    public override string ToString()
    {
        return string.Format("{0} , {1}", lname, fname);
    }
}
static void myTypeArray()
{
    List<MyClass> myList = new List<MyClass>();
    myList.AddRange(
        new MyClass[]
          {
            new MyClass("本上","まなみ"),
            new MyClass("宮部","みゆき"),
            new MyClass("黒谷","友香"),
            new MyClass("南野","陽子"),
            new MyClass("菅山","かおる")
          }
        );
    MyClass[] myAry = SortReverse<List<MyClass>, MyClass>(myList);
    DispList<MyClass[]>(myAry, "マイクラスの逆ソート");
}

「型 'SortOrderC.Program.MyClass' は、ジェネリック型またはメソッド 'SortOrderC.Program.SortReverse<T,U>(T)' 内でパラメータ 'U' として使用するために、'System.IComparable' に変換可能でなければなりません。」
制約のせいでエラーが出るからといって制約を外してしまうと、実行時にArray.Sort()のところでエラーになるので、頑張ってIComparableを実装するようにしましょう。

コンソール出力用のメソッドもGenericsメソッドを使用しています。ここでも同じようにwhereキーワードを使って制約を付与しています。

static private void DispList<T>(T Collection, string AMessage)
    where T : IEnumerable
{
    Console.WriteLine(AMessage);
    foreach (object o in Collection)
        Console.WriteLine("Item value = {0}", o);
    Console.WriteLine("");
}

MSDN Library 2007 06 のインストール

十兵衛（諸農） — Sun, 15 Jul 2007 09:29:00 GMT

2007年6月号がアップされていたので、この休みを利用してインストールしてみようと思ったのですが。。。

なぜディスクが必要なの？？？
仕方がないのでキャンセルをクリック。

取り消すしかないでしょう？
他に方法があるんなら良いんだけど。。

結局、インストールできずに終わってしまった。。。

MSDN Subscriber Downloads

十兵衛（諸農） — Sun, 24 Sep 2006 20:52:00 GMT

サブスクライバダウンロードサイトに入るとトップページに「最新のダウンロード一覧」が表示されますね。ざっと目を通すとそこに「MSDN Subscriptions Library, September 2006 Edition - DVD (Japanese)」を発見したわけです。先日届いたものは8月版だったし、あれまぁもう更新されたんかいな、ってことで3時間ほど掛けてダウンロードしました。
そしたら、中身は先日分と同じ8月版でしたとさ。。(T_T)

気を取り直して、Vista RC1 Build5600 をダウンロードしてみようかと。

Turbo Delphi のネタ

十兵衛（諸農） — Mon, 18 Sep 2006 12:55:00 GMT

Turbo Delphi Explorer のネタをココログにアップしました。

Turbo Delphi Explorer にコンポを登録

Turbo Delphi Explorer で実行時パッケージを使う

画像がたくさんなのでココログへ。。(^^;

編集追記
最初の投稿記事では裏技によるコンポの登録方法を知るリンクを貼り付けていましたが削除いたしました。また、スナップショットも削除いたしました。
ライセンス違反を助長する投稿をしましたことを深くお詫びいたします。
とおりすがりさんによるコメント・助言、ありがとうございました。