Mimori's Algorithms tDiary(2005-04)

2005-04-01

λ [.NET] Scripting.Dictionary のようなクラス

CreateObject("Scripting.Dictionary") の代わりに CreateObject("DotNETbridge.ScriptingDictionary") でCOMオブジェクトを作ると、大体 Scripting.Dictionary のようにアクセスできる。

using System;
using System.Collections;
using System.Reflection;
using System.Runtime.InteropServices;

namespace DotNETbridge
{
	/// <summary>
	/// Scripting.Dictonary の振りをする .NET COM コンポーネント
	/// </summary>

	[GuidAttribute("2B115907-4561-4d0f-BF54-6A69F7AB2D35")]
	public interface IDictionary
	{
		int Count { get; }
		object this[object index] { get; set; } // インデックサ (VBScript では Itemプロパティ によるアクセス)
		// Key プロパティは実装方法がわからない
		void Add(object key, object item);
		bool Exists(object key);
		object[] Items();
		object[] Keys();
		void Remove(object key);
		void RemoveAll();
		// テスト用メソッド
		string getClassName(object o);
		object getValueOfDictionary(object o, object key);
	}

	[ClassInterfaceAttribute(ClassInterfaceType.None)]
	public class ScriptingDictionary : IDictionary
	{
		private Scripting.Dictionary dict = null;

		public ScriptingDictionary()
		{
			dict = new Scripting.Dictionary();
		}

		#region IDictionary メンバ
		public int Count
		{
			get	{ return dict.Count; }
		}
		public object this[object index]
		{
			get { return dict.get_Item(ref index); }
			set	{ dict.set_Item(ref index, ref value); }
		}
		public void Add(object key, object item)
		{
			dict.Add(ref key, ref item);
		}
		public bool Exists(object key)
		{
			return dict.Exists(ref key);
		}
		public object[] Items()
		{
			return (object[]) dict.Items(); // dict.Items() 自体の返り値は object 型(配列でない)
		}
		public object[] Keys()
		{
			return (object[]) dict.Keys(); // dict.Keys() 自体の返り値は object 型(配列でない)
		}
		public void Remove(object key)
		{
			dict.Remove(ref key);
		}
		public void RemoveAll()
		{
			dict.RemoveAll();
		}
		public string getClassName(object o)
		{
			return o.GetType().Name;
		}
		public object getValueOfDictionary(object o, object key)
		{
			if (o.GetType().Name == "DictionaryClass") 
			{
				// HashTable に代入してから取り出すテスト
				Scripting.Dictionary d = (Scripting.Dictionary)o;
				object[] arrKeys = (object[]) d.Keys();
				object[] arrValues = (object[]) d.Items();
				Hashtable h = new Hashtable(d.Count);
				for(int i = 0; i < d.Count; i++) 
				{
					h[arrKeys[i]] = arrValues[i];
				}
				return h[key];
 			}
			return null;
		}
		#endregion
	}
}

DLLファイルをマシンにインストールする際、GACに登録しなくても regasm 絶対パス.dll /codebose コマンドで利用できるようになった。いずれにせよアセンブリに署名しておく必要がある。また、も、この.NETアセンブリDLLと同じディレクトリに置いておけば利用できた。

引数を取りながら左辺値となる Key プロパティを実装する方法は分からなかった。

λ ATERM IW50

**71
*9? (91～96 の内線番号)
*0(登録) または *1(削除)
暗証番号4桁 + #

641P-II

保留を押しながら電源ON
検索ボタン
6
1 (OS番号)
9?
保留
暗証番号4桁
保留

λ NTT東日本ひかり電話ビジネスタイプ

回線代7000円upの他に、接続するために同時通話数*800円+電話番号数*100円かかる模様。同時通話数8chぐらい設定しないともったいない感じ。


		2005年 4月
日	月	火	水	木	金	土
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

λ [.NET] Scripting.Dictionary のようなクラス

λ ATERM IW50

λ 会社フロア移動

λ NewBeetle Cabriolet 修理完了

λ mimori.org プロバイダ変更

移行後に判明したトラブル

λ Mac用外付HDD

λ quagga 0.98.3

λ [FreeBSD] Postfix 設定ファイル管理用 Makefile

λ [FreeBSD] SA-05:02.sendfile

λ ScriptAlias

λ BCMSN の勉強

λ またADSL不調

λ アイシールド21

λ nagios 2.0beta

λ 桜並木

λ 642-811J

λ 月影十番勝負 猫と庄造と二人のおんな

λ [FreeBSD] Mailman + Postfix(ClamSMTP + SpamAssassin)

λ ブラックホールの原因

λ 花見

λ palau

λ Piper 次回公演

λ Cyrus saslauthd を daemontools 下で動かす

λ Japan to Palau

λ 体験ダイビング

λ YAMAHA V6-200 船外機

λ 情報処理技術者試験(DB)

λ chrooted named

λ [FreeBSD] SA-05:04.ifconf

λ [FreeBSD] The TrustedBSD MAC Framework

λ [FreeBSD] FreeBSD-5.x での bind9 (named) 起動スクリプト

λ Mac mini

λ [Windows] FAXサービスでの 0発信指定

λ [FreeBSD] firewire 外付HDD にバックアップ

λ [Mac] blojsom

λ [Mac] Java and Safari issues after updating to Mac OS X v10.3.9

λ Shuffle

λ [Windows] Windows2003 Server SP1 の適用

λ [FreeBSD] pf による NAT ルール

λ [FreeBSD] UFS2 snapshot で14日前まで参照可能にする

λ tDiary 2.0.1

λ FreeBSD-SA-05:05.cvs

λ Mac mini

λ Mac mini やり直し

λ [FreeBSD] UFS2 Snapshots Management Environment

λ [FreeBSD] courier-authlib

λ [FreeBSD] apache2 RLimitXXX

λ Mac mini システム構成

λ [Windows] ファイルの署名の確認のオプションを設定する

λ 市原 BBQ 大会

λ Mac mini 出荷

λ 月影十番勝負猫と庄造と二人のおんな