Delphiで作成したOLEサーバを呼び出してみよう

【DelphiでOLEサーバを作成】

上記の場所で作成したサンプルのOLEサーバを呼び出してみよう。

　サンプルの実行ファイル名 : Project1.exe


【サンプル】

//タイプライブラリを読み込む
//(サンプルの実行ファイル名を記述して下さい。)
#import "C:\temp\Project1.exe"

void COleServTestDlg::OnButton1() 
{
	//namespaceを宣言(Project1.tlhを参照すると分かります。)
	using namespace Project1;
	
	//インターフェイス オブジェクトの宣言
	Project1::IOleIO_TestPtr pOleSv;

	//OLEサーバ(Project1.exe)を起動
	pOleSv.CreateInstance("Project1.OleIO_Test");

	//メソッドを実行
	pOleSv->AppRun();

	//OLEサーバの終了と解放
	pOleSv.Release();
	pOleSv = NULL;
}


[サンプル・ソース]