Eyes of Bastet » Windows

VS2010とC#でCOM作成

azurite — Wed, 16 Mar 2011 09:05:38 +0000

VS2010とC#を使用して、昔懐かしのCOMを作成する方法。
何年か前にC#でCOMを作成する方法を調べたんだけど、書いてなかったので忘れてしまった。
参考サイトの通りで出来るけど、別途COMの登録と削除も作る必要がある。

1.新規作成→プロジェクトで、クラスライブラリを選択。
2.コードは下記の通り。

using System;
using System.Runtime.InteropServices;
using System.Windows.Forms;

namespace MyClassLibrary {
    [ClassInterface( ClassInterfaceType.AutoDual )]
    public class Calc {
        public int Add( int x, int y ) {
            return x + y;
        }

        public int Sub( int x, int y ) {
            return x - y;
        }

        public void Msg( string msg ) {
            MessageBox.Show(msg);
        }
    }
}

3.プロジェクトのプロパティ→アプリケーションタブで変更。

アセンブリ情報ボタンを押下。

アセンブリをCOM参照可能にするをチェック。

4.プロジェクトのプロパティ→ビルドタブで変更。

COM相互運用機能の登録をチェック。
以上で、できあがり。

COMを呼び出すVBスクリプト

Set obj = CreateObject("MyClassLibrary.Calc")
obj.Msg("HelloCOM")

VBスクリプト実行結果

参考サイト
[C#][Excel]C#で作成したアセンブリをExcelから呼び出す
http://d.hatena.ne.jp/akiramei/20071227/1198771429関連記事:

コード分析の警告CA1014とCA1017を修正する

azurite — Thu, 25 Nov 2010 02:32:50 +0000

VB6をVB.NETに変えていて、コード分析をしたらCA1014とCA1017の警告が出てきた。
この規則による警告は抑制しないでくださいと書いてあるので、AssemblyInfo.vbに宣言を追加した。

CA1014: アセンブリに CLSCompliantAttribute を設定します
http://msdn.microsoft.com/ja-jp/library/ms182156.aspx

CA1017: アセンブリに ComVisibleAttribute を設定します
http://msdn.microsoft.com/ja-jp/library/ms182157.aspx

新規にVB.NETでWindowsアプリケーションを作成したときのAssemblyInfo.vbはこんな感じ。

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices

' アセンブリに関する一般情報は以下の属性セットをとおして制御されます。
' アセンブリに関連付けられている情報を変更するには、
' これらの属性値を変更してください。

' アセンブリ属性の値を確認します。










'このプロジェクトが COM に公開される場合、次の GUID がタイプ ライブラリの ID になります。


' アセンブリのバージョン情報は、以下の 4 つの値で構成されています:
'
'      Major Version
'      Minor Version
'      Build Number
'      Revision
'
' すべての値を指定するか、下のように '*' を使ってビルドおよびリビジョン番号を
' 既定値にすることができます:
'

CLSCompliantの宣言無くない？？？関連記事:

Option Strict Onにすると遅延バインディングエラーが出るのを修正する

azurite — Tue, 16 Nov 2010 23:29:38 +0000

VB6のソースをVS2010のVB.NETになおしたりしてると、下の様なソースがあったりする。
Option Strict Offだったりするのを、Option Strict Onに変えると
If eventSender.Checked Then
の所で、「Option Strict On では、遅延バインディングを使用できません。」とエラーになったりする。

'UPGRADE_WARNING: イベント Radiohogehoge_CheckedChanged は、フォームが初期化されたときに発生します。 詳細については、'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"' をクリックしてください。
	Private Sub Radiohogehoge_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CRadiohogehoge_CheckedChanged
		If eventSender.Checked Then
				hogehoge()
		End If
	End Sub

なので、こうなおす。

	Private Sub Radiohogehoge_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CRadiohogehoge_CheckedChanged
		Dim rb As RadioButton = TryCast(eventSender , RadioButton)
		If rb IsNot Nothing AndAlso rb.Checked Then
				hogehoge()
		End If
	End Sub

関連記事:

C# フォルダの中のファイル一覧を取得する

azurite — Wed, 22 Sep 2010 08:49:09 +0000

フォルダの中にあるファイルの一覧を取得したい、というのはよくあるお話。
いつもソースがどこかに消えてしまうので、メモ的に置いておく。

最高の出来とは言い難いので、もっとイイ具合になるよ！って方は教えて下さい。
DirProcとかはとりあえず適当です。

Util.cs

using System;
using System.IO;

namespace Utl {

    public class FileList {

        public void Search( string sDir ) {
            Search(sDir,"*");
        }

        public void Search( string sDir, string sPattern ) {
            foreach (string d in Directory.GetDirectories( sDir)) {
                DirProc(d);
                foreach (string f in Directory.GetFiles( d, sPattern )) {
                    FileProc(f);
                }
                Search( d ,sPattern);
            }
        }

        private void DirProc( string d ) {
            //ここに取得したフォルダの処理
            Console.Out.WriteLine(d);
        }

        private void FileProc( string f ) {
            //ここに取得したファイルの処理
            Console.Out.WriteLine( f );
        }

    }

}

使用例
Windowsフォームプロジェクト用
Form1.cs

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.IO;
using Utl;

namespace WindowsFormsApplication1 {
    public partial class Form1 : Form {
        public Form1() {
            InitializeComponent();
        }
         private void btnSearch_Click(object sender, System.EventArgs e) {
            lstFilesFound.Items.Clear();
            txtFile.Enabled = false;
            txtFolder.Enabled = false;
            btnSearch.Text = "Searching...";
            this.Cursor = Cursors.WaitCursor;
            Application.DoEvents();
            try {
                FileList fl = new FileList();
                fl.Search( txtFolder.Text, txtFile.Text );
            } catch (Exception ex) {
                MessageBox.Show(ex.Message);
            }
            btnSearch.Text = "Search";
            this.Cursor = Cursors.Default;
            txtFile.Enabled = true;
            txtFolder.Enabled = true;
        }

        private void Form1_Load(object sender, System.EventArgs e) {
            txtFolder.Text="";
        }

        private void button1_Click( object sender, EventArgs e ) {
            folderBrowserDialog1.ShowNewFolderButton = false;
            if (folderBrowserDialog1.ShowDialog() == DialogResult.OK) {
                txtFolder.Text = folderBrowserDialog1.SelectedPath;

            }

        }

    }

}

Form1.Designer.cs

namespace WindowsFormsApplication1 {
    partial class Form1 {
        /// 
        /// 必要なデザイナー変数です。
        /// 
        private System.ComponentModel.IContainer components = null;

        /// 
        /// 使用中のリソースをすべてクリーンアップします。
        /// 
        /// マネージ リソースが破棄される場合 true、破棄されない場合は false です。
        protected override void Dispose( bool disposing ) {
            if (disposing && (components != null)) {
                components.Dispose();
            }
            base.Dispose( disposing );
        }

        #region Windows フォーム デザイナーで生成されたコード

        /// 
        /// デザイナー サポートに必要なメソッドです。このメソッドの内容を
        /// コード エディターで変更しないでください。
        /// 
        private void InitializeComponent() {
            this.btnSearch = new System.Windows.Forms.Button();
            this.txtFile = new System.Windows.Forms.TextBox();
            this.lblFile = new System.Windows.Forms.Label();
            this.lblDirectory = new System.Windows.Forms.Label();
            this.lstFilesFound = new System.Windows.Forms.ListBox();
            this.folderBrowserDialog1 = new System.Windows.Forms.FolderBrowserDialog();
            this.txtFolder = new System.Windows.Forms.TextBox();
            this.button1 = new System.Windows.Forms.Button();
            this.SuspendLayout();
            //
            // btnSearch
            //
            this.btnSearch.Anchor = ((System.Windows.Forms.AnchorStyles)((System.Windows.Forms.AnchorStyles.Bottom | System.Windows.Forms.AnchorStyles.Right)));
            this.btnSearch.Location = new System.Drawing.Point( 608, 248 );
            this.btnSearch.Name = "btnSearch";
            this.btnSearch.Size = new System.Drawing.Size( 75, 23 );
            this.btnSearch.TabIndex = 0;
            this.btnSearch.Text = "Search";
            this.btnSearch.Click += new System.EventHandler( this.btnSearch_Click );
            //
            // txtFile
            //
            this.txtFile.Location = new System.Drawing.Point( 8, 40 );
            this.txtFile.Name = "txtFile";
            this.txtFile.Size = new System.Drawing.Size( 120, 19 );
            this.txtFile.TabIndex = 4;
            this.txtFile.Text = "*.dll";
            //
            // lblFile
            //
            this.lblFile.Location = new System.Drawing.Point( 8, 16 );
            this.lblFile.Name = "lblFile";
            this.lblFile.Size = new System.Drawing.Size( 144, 16 );
            this.lblFile.TabIndex = 5;
            this.lblFile.Text = "Search for files containing:";
            //
            // lblDirectory
            //
            this.lblDirectory.Location = new System.Drawing.Point( 8, 96 );
            this.lblDirectory.Name = "lblDirectory";
            this.lblDirectory.Size = new System.Drawing.Size( 120, 23 );
            this.lblDirectory.TabIndex = 3;
            this.lblDirectory.Text = "Look In:";
            //
            // lstFilesFound
            //
            this.lstFilesFound.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom)
                        | System.Windows.Forms.AnchorStyles.Left)
                        | System.Windows.Forms.AnchorStyles.Right)));
            this.lstFilesFound.ItemHeight = 12;
            this.lstFilesFound.Location = new System.Drawing.Point( 152, 8 );
            this.lstFilesFound.Name = "lstFilesFound";
            this.lstFilesFound.Size = new System.Drawing.Size( 528, 232 );
            this.lstFilesFound.TabIndex = 1;
            //
            // txtFolder
            //
            this.txtFolder.Location = new System.Drawing.Point( 8, 111 );
            this.txtFolder.Name = "txtFolder";
            this.txtFolder.Size = new System.Drawing.Size( 120, 19 );
            this.txtFolder.TabIndex = 6;
            this.txtFolder.Text = "txtFolder";
            //
            // button1
            //
            this.button1.Location = new System.Drawing.Point( 8, 136 );
            this.button1.Name = "button1";
            this.button1.Size = new System.Drawing.Size( 120, 23 );
            this.button1.TabIndex = 7;
            this.button1.Text = "Select Folder";
            this.button1.UseVisualStyleBackColor = true;
            this.button1.Click += new System.EventHandler( this.button1_Click );
            //
            // Form1
            //
            this.AutoScaleDimensions = new System.Drawing.SizeF( 6F, 12F );
            this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
            this.ClientSize = new System.Drawing.Size( 685, 275 );
            this.Controls.Add( this.button1 );
            this.Controls.Add( this.txtFolder );
            this.Controls.Add( this.btnSearch );
            this.Controls.Add( this.txtFile );
            this.Controls.Add( this.lblFile );
            this.Controls.Add( this.lblDirectory );
            this.Controls.Add( this.lstFilesFound );
            this.Name = "Form1";
            this.Text = "Form1";
            this.Load += new System.EventHandler( this.Form1_Load );
            this.ResumeLayout( false );
            this.PerformLayout();

        }

        #endregion
        private System.Windows.Forms.Button btnSearch;
        private System.Windows.Forms.TextBox txtFile;
        private System.Windows.Forms.Label lblFile;
        private System.Windows.Forms.Label lblDirectory;
        private System.Windows.Forms.ListBox lstFilesFound;
        private System.Windows.Forms.FolderBrowserDialog folderBrowserDialog1;
        private System.Windows.Forms.TextBox txtFolder;
        private System.Windows.Forms.Button button1;

    }
}

関連記事:

Visual Studio 2010 & .NET Framework 4 Training Kit を試そうとしたが失敗

azurite — Wed, 19 May 2010 09:13:10 +0000

http://msdn.microsoft.com/ja-jp/netframework/ee959223.aspx
Visual Studio 2010 ＆ .NET Framework Training Kit でも試してみようと、英語版をダウンロード。

本 Training Kit を日本語環境 (日本語 OS) で使用する場合、そのままでは環境構築のためのツール (CheckDependencies.cmd) を使用することができません。そのため、日本語環境に対応したセットアップ用のスクリプトファイルを下記からダウンロードし、Labs フォルダーに上書きしてください。(ご自身の環境にあったものをダウンロードしてください。)

と、あるので、日本語セットアップ用ファイルをダウンロードして、実行。
→Visual Studio 2010 Beta 2が必要ですと言われ途中終了。
英語版は環境構築のツールが動かないし、日本語版はVS2010ベータが必要ですといわれるし、どっちも動かない。
製品版で動く、日本語版がでれば解決する気がする。
関連記事:

SQL Server 2008 R2 Express Editionのインストール

azurite — Thu, 13 May 2010 09:54:42 +0000

VS2010のインストーラーではSQLServer2008Expressがインストールエラーになるので、Microsoft SQL Server2008 R2 RTM – Express with Advanced Servicesをダウンロードしてインストール。

もともと使っているVAIO（VGN-SZ93NS）には、SQLServer2005Expressがインストールされていて、VAIOの何かに使っているようなので、アップグレードせずに、SQLServer2008R2Expressを追加インストール。

Microsoft SQL Server2008 R2 RTM – Express with Advanced Servicesをダウンロードしたものの、フルテキストサービスとReportingServicesは要らなそうなのでインストールから外す。ローカルPCの開発用だし。

VAIO_VEDBとSQLEXPRESSとMSSQLSERVERと3つもインストールされてる…それらとは別に、SQL2008EXPRESSとしてインストール。

このまま次へ。

認証は混合にしておく。

エラーのでないインストーラーをお願いします。

インストール中。

無事にインストール完了！

関連記事:

VisualStudio2010をインストール

azurite — Wed, 12 May 2010 09:11:06 +0000

VS2005とVS2008関連を削除したので、ようやくVS2010をインストール。

「すべて」を選択。

インストール中。

Microsoft .Net Framework4.0をインストールすると、再起動しろと言われます。
再起動後、続き。

この後大分長い時間がかかります…。
放置しておいたら、終了していたので、結果を見ると失敗の文字が。
以下の3つが失敗。

Microsoft SQL Server 2008 Express Service Pack1(x86)アップグレード
Microsoft SQL Server 2008 R2 Transact-SQL言語サービス
Microsoft Visual Studio 2010 ADO.NET Entity Framework Tools

仕方がないので、もう一度インストーラーを起動して、メンテナンスモードで再度挑戦。

Microsoft SQL Server 2008 Express Service Pack1(x86)アップグレード以外はインストール終了。
検索してみると、VS2010のインストーラーではなく、SQLServer2008Express単体でインストールするとよい、みたいな記事もあり早速MSDNから、SQLServer2008Expressのインストーラーをダウンロード。

で、実行してみると…。

エラーでインストーラーが動かない。

SQLServer2008インストールエラーとかで、検索するとかなりいっぱいひっかかって、インストーラーの出来がイマイチな模様。
結局、このサイトを参考にMicrosoft SQL Server2008 R2 RTM – Express with Advanced Servicesをインストール。
これは無事に成功しました。
というわけで、Microsoft SQL Server2008 R2 RTMのインストールへ続く。関連記事:

VisualStudio2008をアンインストール

azurite — Tue, 11 May 2010 09:15:14 +0000

VS2005に引き続き、VS2008をアンインストール。

削除削除。

アンインストールが完了しました！VS2005の様に、手動で削除しろとのメッセージは無し。素晴らしい！そう思いながら、「コントロールパネル＞プログラムと機能」を見てみると、VS2008関連がまだ残っていたので、これまた手動で削除。
削除したのは以下の物

Microsoft Document Explorer 2008
Microsoft Document Explorer 2008 Language Pack
Microsoft MSDN Library for Visual Studio 2008
Microsoft Windows SDK for Visual Studio 2008 .NET Framework Tools – jpn
Microsoft Windows SDK Visual Studio 2008 Headers and Libraries
Microsoft Windows SDK Visual Studio 2008 Reference Assemblies and InteliSense
Microsoft Windows SDK for Visual Studio 2008 SP1 Tools
Microsoft Windows SDK for Visual Studio 2008 SP1 Win32 Tools
Microsoft Silverlight 3 Tools Visual Studio 2008 SP1 – JPN
Crystal Reports Basic for Visual Studio 2008
Crystal Reports Basic Japanese Language Pack for Visual Studio 2008
Microsoft Visual Studio ProjectAggregator2
Visual Studio Tools for the Office system 3.0 Runtime
Microsoft Silverlight 3 Toolkit November 2009
Microsoft Silverlight 3 SDK
Microsoft Silverlight

VS2008関連以外にも、VisualStudioと付いている物は削除、ついでにSilverlight関係も一度削除してみた。
これでようやく、VS2010のインストール。関連記事:

VisualStudio2005をアンインストール

azurite — Tue, 11 May 2010 08:46:55 +0000

VS2010をインストールしようと思って、その前にVS2005とVS2008をアンインストール。
VS2005自体は、すぐにアンインストールできた。

…が、いくつかのコンポーネントは自分で削除しろというので、VS2005関連のあれこれを「コントロールパネル＞プログラムと機能」から探してきて、一個ずつ消していった。
手動で消したのは以下の物

Microsoft Visual Studio 2005 Team Edition for Database Professionals – Trial JPN
Microsoft Visual Studio 2005 Tools for Office Runtime Language Pack
Microsoft Visual Studio 2005 Premier Partner Edition – JPN
Microsoft Visual C++ 2005 ATL Update kb973923 – x86 8.0.50727.4053
Microsoft Visual C++ 2005 Redistributable
Microsoft Visual J#2.0 再配布可能パッケージ
Microsoft Visual J#2.0 再配布可能パッケージ日本語 Language Pack
Microsoft Document Explorer 2005
Microsoft Silverlight v1.0 SDK
Visual Studio 2005 extensions for .Net Framework3.0(WCF&WPF), November 2006 CTP
Visual Studio 2005 Tools for Office Second Edition Runtime
MSDN Library for Visual Studio 2005 – 日本語版
Microsoft SQL Server 2005 Compact Edition Tools for Visual Studio 2005 [JPN]

何故かアンインストール出来なかったのが、一つ。

Microsoft Silverlight 1.0 SDK VisualStudio 2005 Template

VS2005をアンインストールする前に削除しないと駄目なようです…。

続いて、VS2008のアンインストール。関連記事:

コード737DでWindowsUpdateが失敗する

azurite — Mon, 10 May 2010 07:33:53 +0000

WindowsUpdateで、いつも失敗に終わるのが、SQL Server 2005 Service Pack 3 のセキュリティ更新プログラム(KB970892)
再起動しても駄目なので、あれこれ検索。
いくつか理由はあるようだけど、VAIOの場合はレジストリの値を変更するといいらしいって事で試してみました。

レジストリエディタで「」HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\MICROSOFT SQL Server\MSSQL.1\Setup\Resume」の値を「1」から「0」に変える。
再起動する。
WindowsUpdateを行う。

これで無事にインストールできました。

参考サイト：
http://social.answers.microsoft.com/Forums/ja-JP/vistaassistantja/thread/c9434cb7-1790-46fd-9079-f64748e7efd3関連記事:

WindowsVistaにSP2をインストール

azurite — Thu, 28 May 2009 07:10:09 +0000

WindowsVistaのService Pack 2が公開されています。

あちこちで評判を見ると、Vistaの動作が軽快になったと言う人と、あまり変わらないと言う人と

二通りの様ですが、概ね軽くなったという人が多いようです。

さっそくダウンロードして、最近動作が重い気がするvaio（VGN-SZ93NS）へインストールしてみました。

それほど時間もかからずにインストールはすんなり終了。

エクスプローラーでフォルダをダブルクリックすると、設定していないのに新しいウィンドウが開く

謎の現象と、IE8βをインストールしていた所為か、IE8で新しいタブが上手く開けない事があるのも無事に治ったようです。

特に問題は無いようですし、他の動作もたしかに軽くなっているような気もします。

Windows Server 2008 Service Pack 2 および Windows Vista Service Pack 2
http://msdn.microsoft.com/ja-jp/windows/dd262148.aspx関連記事:

WLXQuickTimeControlHost.exe

azurite — Tue, 26 May 2009 07:09:28 +0000

謎のEXE、WLXQuickTimeControlHost.exe

信頼性とパフォーマンスモニタで誰がCPUを使っているのか眺めていたら、Windows Live QuickTime Control Hostという見慣れない物を発見。

実態はC:Program FilesWindows LivePhoto GalleryWLXQuickTimeControlHost.exeらしい。

WindowsLiveMessangerをアップデートした時に、WindowsLiveフォトギャラリーなんかもインストールしたような気がする。

WLXQuickTimeControlHost.exeが動いていると.mp4ファイルのリネームや削除が出来なくなったり

PCが重くなったりする事があるとか、そういえば時々そんな事が合った気がする。

WindowsLiveフォトギャラリーをアンインストールするとWLXQuickTimeControlHost.exeも消える

WindowsLiveフォトギャラリーなんて使わないのでアンインストール。

アンインストールすると、エクスプローラーで.mp4ファイルのサムネイル表示がされなくなる。

これはレジストリを変更すればいいらしい。

エクスプローラーで.mp4サムネイル表示用レジストリ登録

[HKEY_CLASSES_ROOT.mp4ShellEx{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}]
@=”{c5a40261-cd64-4ccf-84cb-c394da41d590}”
ちなみに、.mp4を他の拡張子に変えると、そのファイルもサムネイル表示される模様。

※.mp4はWindows Media Playeyと関連付ける事

参考サイト：

WLXQuickTimeControlHost.exe で　操作が固まる！？

http://kaze88.exblog.jp/9969651/

Xacti C6の動画のファイルのサムネールを表示する

http://blogs.shintak.info/archive/2006/07/28/28365.aspx
関連記事: