.Net下进程外COM服务器的实现

2007-07-10 作者:bitsCN整理来源:中国网管联盟点评 投稿 收藏

2．C++客户端测试代码

网管u家www.bitscn.net

#include \"stdafx.h\"

#import \"Server.tlb\"

class COMHelper

网管u家u.bitsCN.com

{

public:

网管有家www.bitscn.net

COMHelper(){ ::CoInitialize(NULL);}

网管u家www.bitscn.net

~COMHelper(){ ::CoUninitialize();} 网管有家bitscn.net

HRESULT FindRunningInstance(LPOLESTR lpszItem, IUnknown** ppUnk)

{

网管联盟bitsCN@com

HRESULT hr = S_OK;

IMonikerPtr pMoniker;

hr = CreateItemMoniker(_T(\"!\"), lpszItem, &pMoniker);

if(!SUCCEEDED(hr))

return hr;

网管网www_bitscn_com

IRunningObjectTablePtr pROT;

GetRunningObjectTable(0, &pROT);

hr = pROT->GetObjectW(pMoniker, ppUnk);

return hr;

}

}; 网管网www.bitscn.com

int _tmain(int argc, _TCHAR* argv[])

{

网管u家bitscn.net

COMHelper comSystem;

IUnknownPtr pUnk;

HRESULT hr = S_OK;

//look up the ROT table directly

hr = comSystem.FindRunningInstance(_T(\"{58C142C7-E599-4921-BF29-33DC0FCCBECA}\"), &pUnk); 网管u家www.bitscn.net

//alternative approach find running object in OLE way

//hr = ::GetActiveObject(__uuidof(Server::ProviderImp), NULL, &pUnk);

//if no running instance found start a new one.

if(!SUCCEEDED(hr))

{

网管有家bitscn.net

hr = CoCreateInstance(__uuidof(Server::ProviderImp), NULL, CLSCTX_LOCAL_SERVER,

__uuidof(Server::IProvider), (LPVOID*)&pUnk);

if(!SUCCEEDED(hr))

throw 0;

}

网管下载dl.bitscn.com

//convert IUnknown to IProvider

Server::IProviderPtr pProvider;

hr = pUnk->QueryInterface(__uuidof(Server::IProvider), (LPVOID*)&pProvider);

if(!SUCCEEDED(hr))

网管u家www.bitscn.net

throw 0;

//call IProvider

pProvider->Test();

return 0;

}

网管联盟bitsCN@com

顶一下

TAGs：实现 服务器 进程 COM static 程序 int

上一篇：用VC 6.0实现串行通信的三种方法下一篇：VC实现系统热键激活后台服务程序

.Net下进程外COM服务器的实现

2007-07-10 作者:bitsCN整理 来源:中国网管联盟 点评 投稿 收藏

2007-07-10 作者:bitsCN整理来源:中国网管联盟点评投稿收藏