VC编写COM进程内组件.pptVIP

VC编写COM进程内组件 1. 建立工程：文件－新建－ATL COM Appwizard并存为Hello工程－接受第一步操作中所有默认值－－点击finish－单击OK 2. 添加类：点击“插入”菜单－－插入ATL对象－在该窗口的右边选择Simple Object并单击按钮Next，在Short Name下输入名称Hello，其余选项都使用默认值。并在属性页中选择“single”、“Custom”和“No”选项。 3. 加入接口：使用右键单击工作区窗口中的IHello并从上下文菜单中选择Add Method…，在添加方法界面中，返回值选择HRESULT，方法名为get_Greeting，参数为[out] BSTR *p1,[out] BSTR *p2 ，点击确定生成该方法 4.方法实现：实现get_Greeting方法如下： STDMETHODIMP CHello:: get_Greeting(BSTR *p1,BSTR p2) { CComBSTR bstr1(Hello),bstr2(World); *p1=bstr1.Detach(); *p2=bstr2.Detach(); return S_OK; } 5. 编译生成这个进程年内组件。 6. 使用Regsvr32 Hello.dll进行注册(如果不使用的时候在使用Regsvr32 /u Hello.dll来删除此组件) VC客户端实现 1 . 新建一个MFC Appwizard[exe]工程 2. 给一个工程名helloclientc，确定 3. 选择基本对话框 4. 然后点击完成－－－－确定 5. 进入程序编辑状态 6. 把上面生成的组件文件中的hello.tlb从服务器目录拷贝到客户目录中。 7. 把下列的include和import语句加入到头文件stdafx.h中。 #include afxdisp.h #import “Hello.tlb no_namespace #include afxdtctl.h 8. 编译该工程并确认没有错误。 9.再通过调用InitInstance的AfxOleInit来初始化OLE.代码如下： BOOL ChelloclinetcApp::InitInstance() { AfxEnableControlContainer(); if (!AfxOleInit()) { AfxMessageBox(IDP_OLE_INIT_FAILED); return FALSE; } …… } 10.通过按钮来实现服务器的显示，代码如下： try { IGreetPtr pGreet(“hello.greet.1); BSTR greeting1,greeting2; pGreet-get_Greeting(greeting1,greeting2); _bstr_t greet1(greeting1); _bstr_t greet2(greeting2); SetDlgItemText(IDC_EDIT1,greet1); SetDlgItemText(IDC_EDIT2,greet2); } catch(_com_errorex) { MessageBox(ex.ErrorMessage()); } VB客户端实现 调用代码如下: On Error GoTo ErrorHandler Dim p1 As String Dim p2 As String Dim objGreet As New ATLDLLLib.Hello objGreet.get_Greeting p1, p2 Text1.Text = p1 Text2.Text = p2 Exit Sub ErrorHandler: MsgBox Err.Description * *