国产精品伊人久久伊人电影,丁香色欲久久久久久综合网,无码国产69精品久久久久网站

swo — Mon, 11 Dec 2006 15:40:00 GMT

属性，是面向对象程序设计中不可�~�少的元素，�q�义的属性是用来描述一个对象所处于的状态�?br />而我们这���文章所说的属性是狭义的，指能用�?”操作符对类的一个数据进行get或set操作�Q�而且能控制get和set的权限�?br />        先看一下代码：
#include 
#include 
#include 
#include 
using namespace std;
class propertytest{
int m_xvalue;
int m_yvalues[100];
map<string,string> m_zvalues;
public:
__declspec(property(get=GetX, put=PutX))
int x;
__declspec(property(get=GetY, put=PutY))
int y[];
__declspec(property(get=GetZ, put=PutZ))
int z[];
int GetX()	
{
return m_xvalue;
 };
void PutX(int x)
 {
m_xvalue = x;	
};
int GetY(int n)	
{
	return m_yvalues[n];	
};
void PutY(int n,int y)	
{
m_yvalues[n] = y;	
};
string GetZ(string key)	
{
return m_zvalues[key];	
};
void PutZ(string key,string z)	
{
	m_zvalues[key] = z;	
};
};
int main(int argc, char* argv[]){
propertytest test;
test.x = 3;
test.y[3] = 4;
test.z["aaa"] = "aaa";
std::cout << test.x <<std::endl;
std::cout << test.y[3] <<std::endl;
std::cout << test.z["aaa"] <<std::endl;	getch();
return 0;
}

__declspec(property(get=[get�Ҏ(gu��)��名], put=[put�Ҏ(gu��)��名])) [�c�d��] [属性名];
        __declspec(property)实际上就是做了一个映���，把你的方法映���成属性，以供讉K���?br />get和put���是属性访问的权限�Q�一个是�ȝ��权限�Q�一个是写的权限。你可以�Ҏ(gu��)��需要来军_��get和put两种权限的取舍�?br />

swo 2006-12-11 23:40 发表评论

outlook

swo — Mon, 11 Dec 2006 15:28:00 GMT

http://www.codeproject.com/com/outlookcontacts.asp

#include using namespace std;
#define interface class __declspec(novtable)interface ICodec
{
	public:	virtual bool Decode(char * lpDataSrc,unsigned int nSrcLen,char * lpDataDst,unsigned int *pnDstLen);
	virtual bool Encode(char * lpDataSrc,unsigned int nSrcLen,char * lpDataDst,unsigned int *pnDstLen);
};
class CCodec : public ICodec
{
	public:	virtual bool Decode(char * lpDataSrc,unsigned int nSrcLen,char * lpDataDst,unsigned int *pnDstLen)
 	{
		cout << "解码..." << endl;
		return true;	
	}
	virtual bool Encode(char * lpDataSrc,unsigned int nSrcLen,char * lpDataDst,unsigned int *pnDstLen)	
	{	
		cout << "�~�码..." << endl;
		return true;	
	}
};
int main(int argc, char* argv[]){
 	ICodec * pCodec = new CCodec();
	pCodec->Decode(NULL,0,NULL,NULL);
	pCodec->Encode(NULL,0,NULL,NULL);
	delete (CCodec*)pCodec;
	return 0;
}
上面的ICodec接口�{��h(hu��n)于下面的定义�Q?br />class ICodec{
public:	virtual bool Decode(char * lpDataSrc,unsigned int nSrcLen,char * lpDataDst,unsigned int *pnDstLen)=0;
virtual bool Encode(char * lpDataSrc,unsigned int nSrcLen,char * lpDataDst,unsigned int *pnDstLen)=0;
};

swo 2006-12-11 23:28 发表评论

How To Automate Outlook Using Visual C++/MFC

swo — Mon, 11 Dec 2006 13:57:00 GMT

MORE INFORMATION

Follow the steps below to build and run the example:

1. Start Visual C++ and create a new MFC EXE dialog-based application.

2. Add a button to your dialog.

Double-click the button to add a handler for it, and add the following code:

   // Start Outlook.
   // If it is already running, you'll use the same instance...
   _Application olApp;
   COleException e;
   if(!olApp.CreateDispatch("Outlook.Application", &e)) {
      CString str;
      str.Format("CreateDispatch() failed w/error 0x%08lx", e.m_sc);
      AfxMessageBox(str, MB_SETFOREGROUND);
      return;
   }

   // Logon. Doesn't hurt if you are already running and logged on...
   NameSpace olNs(olApp.GetNamespace("MAPI"));
   COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
   olNs.Logon(covOptional, covOptional, covOptional, covOptional);

   // Create and open a new contact
   _ContactItem olItem(olApp.CreateItem(2));

   // Setup Contact information...
   olItem.SetFullName("James Smith");
   COleDateTime bdDate;
   bdDate.SetDate(1975, 9, 15);
   olItem.SetBirthday(bdDate);
   olItem.SetCompanyName("Microsoft");
   olItem.SetHomeTelephoneNumber("704-555-8888");
   olItem.SetEmail1Address("someone@microsoft.com");
   olItem.SetJobTitle("Developer");
   olItem.SetHomeAddress("111 Main St.\nCharlotte, NC 28226");

   // Save Contact
   olItem.Save();

   // Create a new appointment
   _AppointmentItem olAppt(olApp.CreateItem(1));

   // Schedule it for two minutes from now...
   COleDateTime apptDate = COleDateTime::GetCurrentTime();   
   olAppt.SetStart((DATE)apptDate + DATE(2.0/(24.0*60.0)));

   // Set other appointment info...
   olAppt.SetDuration(60);
   olAppt.SetSubject("Meeting to discuss plans...");

   olAppt.SetBody("Meeting with James to discuss plans.");
   olAppt.SetLocation("Home Office");
   olAppt.SetReminderMinutesBeforeStart(1);
   olAppt.SetReminderSet(TRUE);

   // Save Appointment
   olAppt.Save();

   // Prepare a new mail message
   _MailItem olMail(olApp.CreateItem(0));
   olMail.SetTo("someone@microsoft.com");
   olMail.SetSubject("About our meeting...");
   olMail.SetBody(
      "Hi James,\n\n"
      "\tI'll see you in two minutes for our meeting!\n\n"
      "Btw: I've added you to my contact list!");

   // Send the message!
   olMail.Send();

   AfxMessageBox("All done.", MB_SETFOREGROUND);
   olNs.Logoff();

4. Bring up the ClassWizard (Control-W) click the Automation Tab, and choose "From a type library" under the Add Class menu.

In the dialog box that comes up, navigate to the directory where Outlook is installed, and choose the Outlook type library (see table below). Select all the items it finds, and click OK to have ClassWizard generate MFC wrapper classes for all of them:

Outlook Version	Type Library
97	msoutl8.olb
98	msoutl85.olb
2000	msoutl9.olb
2002	msoutl.olb
2003	msoutl.olb

Add the following just before the implementation of your button handler:

   #include "msoutl85.h" // for Outlook 2000 use msoutl9.h
                         // for Outlook 2002 & Outlook 2003 use msoutl.h

   // Ole-initialization class.
   class OleInitClass {
   public:
      OleInitClass() {
         OleInitialize(NULL);
      }
      ~OleInitClass() {
         OleUninitialize();
      }
   };
   // This global class calls OleInitialize() at
   // application startup, and calls OleUninitialize()
   // at application exit...
   OleInitClass g_OleInitClass;

7. Compile and run the project. Once it has run, you should have a new contact named James Smith, an appointment scheduled in two minutes with a reminder to appear in one minute, and have sent a message to someone@microsoft.com. Also, because you added a birthday for your contact (9/15), a recurring event was added for your Outlook Calendar to remind you on that day.

Back to the top

Automating Microsoft Outlook 2000, 2002, and 2003

You can use the sample code previously described to automate Outlook 2000, 2002, and 2003 with one small change. The Outlook 97 Namespace class member has changed to _Namespace in Outlook 2000, 2002, and 2003. To use the code above for automating Outlook 2000, 2002, and 2003 change this line:

Namespace olNS(olApp.GetNames("MAPI"));

to:

_Namespace olNS(olApp.GetNames("MAPI"));

swo 2006-12-11 21:57 发表评论

��d��Outlook收�g��׃��信的�c�d��(HTML/RTF/WORD/TEXT)

swo — Mon, 11 Dec 2006 13:01:00 GMT

Dim OL As New Outlook.Application
Dim OLNameSP As Outlook.NameSpace
Dim OLMFolder As Outlook.MAPIFolder
Dim OLMItem As Outlook.MailItem
Dim i As Integer

Set OLNameSP = OL.GetNamespace("MAPI")
Set OLMFolder = OLNameSP.GetDefaultFolder(olFolderInbox)
For i = 1 To OLMFolder.Items.Count
    Set OLMItem = OLMFolder.Items.Item(i)
    Select Case OLMItem.GetInspector.EditorType
        Case olEditorText
            Debug.Print i & "   " & "olEditorText"
'            Debug.Print OLMItem.Body
        Case olEditorHTML
            Debug.Print i & "   " & "olEditorHTML"
'            Debug.Print OLMItem.HTMLBody
        Case olEditorRTF
            Debug.Print i & "   " & "olEditorRTF"

        Case olEditorWord
            Debug.Print i & "   " & "olEditorWord"
'            Debug.Print OLMItem.GetInspector.EditorType
        Case Else
            Debug.Print i & "   " & "Unknow"
    End Select
Next

swo 2006-12-11 21:01 发表评论

��d��Outlook收�g��׃��信的�c�d��

swo — Mon, 11 Dec 2006 13:00:00 GMT

try{
                FormList->ListView1->Clear();
                _ApplicationPtr pApp;
                _NameSpace* pNS;
                AddressLists* pAddr;
                AddressEntries * pAddrEntries;
                AddressEntry* pEntry;
                AddressList* pList;
                int count,count1;
                pApp = this->OutlookApplication1->get_Application();
                pNS = pApp->GetNamespace(WideString("MAPI"));
                pAddr = pNS->AddressLists;
                count = pAddr->Count;

WideString email;

email.SetLength(128);
//emailname.SetLength(128);

                for(int i = 1;i <= count;i++)
                {
                        pList = pAddr->Item(TVariant(i));
                        pAddrEntries = pList->get_AddressEntries();
                        count1 = pAddrEntries->Count;
                        for(int j = 1;j <= count1;j++)
                        {
                                pEntry = pAddrEntries->Item(TVariant(j));
                                //pEntry->get_Name(&emailname);
                                pEntry->get_Address(&email);
                                //this->Memo1->Lines->Add(AnsiString(emailname.c_bstr()) + "\t"+AnsiString(email.c_bstr()));
                                TListItem * ListItem;
                                ListItem = FormList->ListView1->Items->Add();
                                ListItem->Caption = "";
                                ListItem->SubItems->Add(AnsiString(email.c_bstr()));

ListItem->Checked = true;
}

                }
                ListView1->SetFocus();
                ListView1->Update();
        }
        catch(...)
        {
                try{
                        HRESULT hRes;
                        //LPADRBOOK lpAdrBook;
                        DelphiInterface lpAdrBook;
                //LPWABOBJECT lpWABObject;
                        DelphiInterface lpWABObject;
                //LPWAB_PARAM lpWABParam = NULL;
                DWORD Reserved2 = NULL;

                        char szPath[MAX_PATH];
                        SHGetFolderPathX(szPath);
                        char * s = "\\System\\wab32.dll";
                        strcat(szPath, s);

HINSTANCE hinstLib;
hinstLib = LoadLibrary(szPath);

// hinstLib = LoadLibrary(s.c_str()+"\\System\\wab32.dll");
fWABOpen procWABOpen;

                if (hinstLib != NULL)
                {
                // 获取"Wab32.dll"内部涉|��WABOpen的进�E�地址
                procWABOpen = (fWABOpen) GetProcAddress(hinstLib, "WABOpen");

                if (procWABOpen != NULL)
                {
                hRes = (procWABOpen)(&lpAdrBook,&lpWABObject,NULL,Reserved2);
                //_ASSERTE(hRes == S_OK);
                if (hRes != S_OK)
                                                exit(1);

                ULONG lpcbEntryID;
                ENTRYID *lpEntryID;
                hRes = lpAdrBook->GetPAB(
                &lpcbEntryID,
                &lpEntryID
                        );
                //_ASSERTE(hRes == S_OK);
                if (hRes != S_OK)
                                                exit(2);

                ULONG ulFlags = MAPI_BEST_ACCESS;
                ULONG ulObjType = NULL;
                //LPUNKNOWN lpUnk = NULL;
                                        DelphiInterface lpContainer;
                hRes = lpAdrBook->OpenEntry(
                                                lpcbEntryID,
                lpEntryID,
                NULL,
                ulFlags,
                &ulObjType,
                (LPUNKNOWN FAR *)&lpContainer
                        );

ulFlags = NULL;

if (ulObjType == MAPI_ABCONT)
{

//IABContainer *lpContainer = static_cast (lpUnk);

                LPMAPITABLE lpTable = NULL;
                hRes = lpContainer->GetContentsTable(
                ulFlags,
                &lpTable
                        );
                //_ASSERT(lpTable);
                ULONG ulRows;
                hRes = lpTable->GetRowCount(0,&ulRows);
                //_ASSERTE(hRes == S_OK);
                SRowSet *lpRows;

                hRes = lpTable->QueryRows(
                ulRows,// 获取所有行
                0,
                &lpRows
                );
                ListView1->Clear();
                for(ULONG i=0;icRows;i++)
                {
                SRow *lpRow = &lpRows->aRow[i];
                AnsiString strTemp;

                for(ULONG j=0;jcValues;j++)
                {
                SPropValue *lpProp = &lpRow->lpProps[j];

                if (lpProp->ulPropTag == PR_EMAIL_ADDRESS_A)
                 {
                    TListItem * ListItem;
                    ListItem = FormList->ListView1->Items->Add();
                    ListItem->Caption = "";
                    ListItem->SubItems->Add((char *)lpProp->Value.lpszA);
                //strTemp =(char *)lpProp->Value.lpszA;

                 ListItem->Checked = true;
                                                                }
                }
                //ListEmail->Lines->Add(strTemp);

                lpWABObject->FreeBuffer(lpRow);
                }
                lpWABObject->FreeBuffer(lpRows);
                }
                }
                //FreeLibrary(hinstLib);�Q�装载和释放 dll 文�g的地�Ҏ(gu��)��成在�ȝ��序执行之前装载，�l�束的时候释放）
                }

                }
                catch(...)
                {
                        MessageBox(Handle,"没有扑ֈ�地址�?","提示信息",MB_OK);
                }
        }

swo 2006-12-11 21:00 发表评论

使用Delphi开发Office Word插�g

swo — Thu, 07 Dec 2006 15:58:00 GMT

使用 Delphi 开发Office Word插�g

在Office 2000中提供了��Z��COM的插件开发框�Ӟ��q��得我们可以利用Delphi来扩展Office的功能�?/p>

在Delphi 3,4中编写基于COM的插�Ӟ��我们需要自己创建COM接口的封装类�Q�更�p�糕的是要想支持事�g的话�q�需要��用连接点�Q�connection points�Q�对象来实现事�g回调�Q�这是非帔R��烦的。但在Delphi 5中这一切就变得非常��L��了，Delphi 5的类型库引入工具提供�?L+的开养I��可以自动为我们生成封装好的OLE Server。这下子再也没有什么好抱怨的了�?/p>

Office 2000 插�g框架

在Microsoft'的网站上�Q�知识库文章�Q�Knowledge Base article Q230689�Q�中有一��：Office 2000 COM Add-In Written in Visual C++ 。文章中提供了一个例�?http://support.microsoft.com/download/support/mslfiles/ COMADDIN.EXE)。这��文章详�l�地描述了插件框架中的COM接口。仔�l�研�I�一下C++代码��可以了解如何编写Office 2000插�g�?/p>

Office 2000插�g其实��是一个实��C��IDTExtensibility2接口的自动化对象。IDTExtensibility2 接口相当��单，插�g需要实现接口定义的全部�Q�个函数�Q?/p>

OnConnection�Q�当应用�E�序�q�接到插件时会调用这个函数。插件在函数中接收下列初始化信息——应用程序对象模型进入点的指针，�q�接模式(是手工加入还是通过命��o行蝲�?, 应用�E�序的对象模型指针和用户自定义的信息�?/p>

OnDisconnection�Q�当应用�E�序断开插�g时被调用�Q�插件应该在�q�里清除先前分配的资源，删除它添加到应用�E�序的界面元素�?/p>

OnStartupComplete�Q�这个函数是当应用程序自动启动插件时被调用的。调用时�Q�其他的插�g都已�l�被加蝲��C��内存�Q�这时可以同其他插�g�q�行通信。这个函数还适合��d��用户界面元素�?/p>

OnBeginShutdown�Q�当应用�E�序准备关闭�q�将要断开插�g时会被调用，�q�时插�g应该停止接收用户输入�?/p>

OnAddInsUpdate�Q�当注册的插件列表被改变后会被调用。如果我们的插�g不依赖于其他插�g�Q�这个函数可以�ؓ�I��?/p>

接口、类型库和常�?/p>

创徏插�g前，我们需要引入COM对象的接口类型库。这里��用Delphi 5带的TlibImp.exe (Delphi5\Bin目录�?来引入类型库。新版的TlibImp.exe支持新的/L+开养I��可以自动创徏一个OLE Server的Delphi��装。IDTExtensibility2接口是在MSADDNDR.DLL文�g中声明的�Q�位于\Program Files\Common Files\Designer\ 目录下。调用TLIBIMP\L+\Program Files\Common Files\ Designer\MSADDNDR.DLL会生成AddInDesignerObjects_TLB.pas �? AddInDesignerObjects_TLB.dcr两个文�g。在��目的uses部分加上对上面文件的引用以便使用接口。clause of our project to gain access to the interface.使用时注意：TLIBIMP重命名接口�ؓ_IDTExtensibility2�?/p>

本文中将使用Word 2000作�ؓ例子�Q�如果想�~�写Outlook、Excel或其他Office�E�序的插仉��要引入相应特定的�c�d��库。比如Word的类型库是定义在\ Program Files\Microsoft Office\Office\MSWORD9.OLB文�g中。类似的�Q�Excel、Access和OutLook�c�d��库分别定义在EXCEL9.OLB�? MSACC9.OLB和MSOUTL9.OLB文�g中。引入的接口生成在Office_TLB.pas和Word_TLB.pas单元中�?/p>

注意�Q�Office 2000的插件无法工作在Office 97的应用程序中�?/p>

最��单的插�g

现在让我们来实现一个最��单的插�g�Q�它只实��C��IDTExtensibility2接口而没有实��C�Q何比较有意义的功能，但对于演�C�如何实现插件是一个很好的开始�?/p>

插�g可以以进�E�内或进�E�外COM服务器的形式实现�Q�在本文中，我们创徏的是�q�程内COM服务器。在Delphi中，选择菜单File | New命��o�Q�然后创��Z��个ActiveX Library�Q�保存生成的文�g�Q�再创徏一个自动化对象�Q�Automation Object�Q�，�c�d��定义为AddIn�Q�把实现单元保存为AddInMain.pas。在AddInMain.pas单元的uses部分��d��? AddinDesignerObjects_TLB�Q�Word_TLB和Office_TLB单元的引用。最后添�? IDTExtensibility2 接口到类定义部分定义�c�要实现的接口。类定义如下�Q?

type

TAddIn = class(TAutoObject, IAddIn, IDTExtensibility2)

...

在类声明的protected部分�Q�添加IDTExtensibility2 接口声明的方法定义，代码�C�意如下�Q?/p>

// IDTExtensibility2 methods

procedure OnConnection(const Application: IDispatch;

ConnectMode: ext_ConnectMode; const AddInInst: IDispatch;

var custom: PSafeArray); safecall;

procedure OnDisconnection(RemoveMode: ext_DisconnectMode;

var custom: PSafeArray); safecall;

procedure OnAddInsUpdate(var custom: PSafeArray); safecall;

procedure OnStartupComplete(var custom: PSafeArray); safecall;

procedure OnBeginShutdown(var custom: PSafeArray); safecall;

使用快捷键[Ctrl][Shift][C]来完成类定义�Q��ƈ��d��Ҏ(gu��)��的实现部分的框架到单元中。�ؓ了测试插�Ӟ��可添加下面代码到OnConnection�Ҏ(gu��)��中：

ShowMessage('�q�接�? + WordApp.Name);

��d��下面代码到OnDisconnection�Ҏ(gu��)��的实现部分：

ShowMessage('断开插�g');

�q�样��完成了一个最��单的插�g了，接下来就是编译�ƈ注册插�g到Word中去�?/p>

注册Office插�g

同其他COM对象一��P��一个Office插�g必须在系�l�中注册后才能��用。在Delphi中选择Run | Register ActiveX Server菜单命��o�Q�就可以注册我们刚才创徏的插件。除了标准的COM注册�Q�还需要进行Office 相关的注册，�q�需要在注册表中创徏一个新的键��|��

HKEY_CURRENT_USER\Software\Microsoft\Office\

\Addins\

��是插�g宿主应用�E�序的名字（�q�里是Word�Q�，是自动化对象的名字（�q�里是DIWordAddIn.AddIn�Q�ActiveX library和类名的�l�合�Q��?/p>

HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ Word \ Addins\DIWord AddIn.AddIn

我们�q�需要在�q�个键��g��创徏几个��|��一个DWORD�c�d��的名为LoadBehavior的值决定插件是如何加蝲及被应用�E�序调用的。在本文中我们设定它�? 3–相当于�Q�和�Q�的�l�合��是应用�E�序�q�接插�g�q�在启动时自动加载。值的意义列在�?.2中，各种值可以相互组合�?/p>

�?.2

�?/p>	意 �?�?/p>
$0	断开�Q�不加蝲
$1	�q�接�Q�加�?
$2	自动启动加蝲
$8	只有当用戯��求时才加�?/p>
$16	只在下次�E�序启动时加载一��?/p>

�q�有一些其他的值可以出现在注册表键��g��Q�比如定义出现在应用�E�序COM��理器对话框中的名字�Q�以及设定是否可以从命��o行激�z�L��件�?/p>

Office 2000用户界面

�Q�ffice应用�E�序�׃�n一�l�通用的用��L��面元素对象、菜单条、工��h��通用控�g�Q�比如工��h��按钮和组合编辑框�Q�以及Office��助手�?/p>

此前引入的Word�c�d��库就包括了这些通用对象的类型库�Q�但是Delphi引入时�ƈ没有像通常那样建立一个封装好的OLE Server�Q�我们不得不手工创徏一个Office公开的CommandBarButton对象的Delphi��装。这个对象对应于Office应用�E�序的一个简单的菜单��Ҏ(gu��)��工具条按钮�?/p>

对大多数的Microsoft的应用程序来��_��Application对象代表对象模型的切入点。Office Application�c�L��供了对CommandBars属性的引用。CommandBar对象包括工具条、��Q动工��h��和菜单。Office对象模型允许我们创徏或更新已有的CommandBars对象。Office_TLB.pas单元包含了ICommandBar接口�Q�它可以被用来修�? CommandBar对象�?/p>

CommandBar有一个Controls集合属性，对应于一�l�CommandBarControl控�g。CommandBarControl控�g对应于放�|�在工具条上的控�Ӟ��比如一个CommandBarButton对应一个简单的工具条按钮（或菜单项�Q�，CommandBarCombo控�g对应�l�合 �~�辑框，CommandBarPopup对应于下拉菜单和CommandBarActiveX对应于ActiveX控制�?/p>

在Office_TLB.pas单元中，除了ICommandBarButton接口�Q�还有一个ICommandBarButtonEvents接口用来提供对工��h��上控件的事�g支持。事件的支持通常是通过�q�接炏V��事件接收连接到可连接对象来实现。但�q�比较麻烦，我们�q�可以通过更简单的办法来实��C��件支持。检查一下Delphi在word_tlb.pas单元创徏的TWordApplication的实��C��码可以发现Delphi��装了每一个可�q�接�? 象，自动实现了事件接收机制。这个单元可以作��Z��个范本用来创��定义的对接口对象的封装�?/p>

BtnSvr.pas单元包含了一个手工创建的Delphi��装。除了按标准的Delphi属性方式实��C��CommandBarButton对象的属�? 外，�q�实��C��InitServerData、InvokeEvent、Connect、ConnectTo和Disconnect�Ҏ(gu��)��。可以注意到�q�部�? 完全是模仿TWordApplication实现部分�~�写的CommandBarButton事�g实现。主要就是在InitServerData�Ҏ(gu��)��中定义服务器数据。根据Office_TLB.pas中不同的接口GUID�Q�定义一个CommandBarButton接口的内部的接口Fintf�Q�设�? InvokeEvent�Ҏ(gu��)��来激�z�d��于定义在事�g接口部分的DispID的Delphi事�g支持。最后，Connect、ConnectTo�? Disconnect�Ҏ(gu��)��讑֮�Fintf�l�需要的接口�q�接收相应的事�g�?/p>

定义在BtnSvr.pas单元中的Delphi��装�c�d��名�ؓTButtonServer。它需要从TOleServer对象�l�承以便支持事�g处理�?/p>

同应用程序连�?/p>

有了工具条按钮封装类后，接下来要声明一个TWordApplication域来保存对Word Application对象的引用。此外还需要�ؓ新的工具条定义一个接口指针以及两个域使用新的TButtonServer�c�L��保存我们要创建的新的工具条按钮和菜单��V�?/p>

在插件类的private部分��d��Q?/p>

FWordApp : TWordApplication;

DICommandBar : CommandBar;

DIBtn : TButtonServer;

DIMenu : TButtonServer;

在OnConnection�Ҏ(gu��)��中，保存应用�E�序指针�Q?/p>

var

WA : Word_TLB._Application;

begin

FWordApp := TWordApplication.Create(nil);

WA := Application as Word_TLB._Application;

WordApp.ConnectTo(WA);

………………………�?.

TWordApplication是Delphi 5中带的Server�l��g�Q�ConnectTo �Ҏ(gu��)��是用来连接插件和Word提供的接口。因为TWordApplication 把接口事件映��成了Delphi事�g�Q�我们可以直接��用标准的Delphi语法来设定事件处理过�E�。示意如下：

WordApp.OnEventX := EventXHandler;

比如我们如果惛_��Word的选区发生改变时实现某��功能，��可以设定OnWindowSelectionChange 事�g�?/p>

插�g如何创徏新的工具条、按钮和菜单

在创建新的工��h��和按钮前�Q�需要�ؓ按钮的OnClick�q�程先创��Z��件处理函敎ͼ�下面��是��单的处理函数例子�Q?/p>

procedure TAddIn.TestClick(const Ctrl: OleVariant;

var CancelDefault: OleVariant);

begin

ShowMessage('有�h�Ҏ(gu��)��?');

CancelDefault := True;

end;

CancelDefault参数用来讑֮�是否替代�~�省的菜单或工具条按钮的处理�q�程。这里不需要设定这个参敎ͼ�因�ؓ我们��在插�g中创��Z��个新的按钮。插�? 注册为在�E�序启动时被加蝲�Q�所以OnStartupComplete�Ҏ(gu��)��一定会被调用，用这个方法创建用��L��面元素是比较合适的。这里定义BtnIntf 为CommandBarControl接口�c�d��(要创建的CommandBarButton的父�c�L��?。接下来的�Q务是��定自定义的工具条是否已�l�被�? ��Z��

DICommandBar := nil;

for i := 1 to WordApp.CommandBars.Count do

if (WordApp.CommandBars.Item[i].Name ='Delphi') then

DICommandBar := WordApp.CommandBars.Item[i];

// ��定是否已经注册了命令条

if (not Assigned(DICommandBar)) then begin

DICommandBar:=

WordApp.CommandBars.Add('Delphi',EmptyParam,EmptyParam,EmptyParam);

DICommandBar.Set_Protection(msoBarNoCustomize)

end;

先给工具条�v一个唯一的名字“Delphi”，然后在启动时��查工��h��是否已经被创��Z��。如果是的话��把它赋值给DICommandBar�Q�否则调�? Word的CommandBars属性的Add�Ҏ(gu��)��创徏一个新的工��h��。接着�l�工��h��d��msoBarNoCustomize的保护，�q�可以防止用��h��? 或删除工��h��上的按钮。这时DICommandBar指向一个有效的工具条，我们可以从接口的Controls集合中获得工��h��按钮接口指针。如果工��h�� 上没有控�Ӟ��创��Z��个新的按钮�?/p>

if (DICommandBar.Controls.Count > 0) then

BtnIntf := DICommandBar.Controls.Item[1]

else

BtnIntf := DICommandBar.Controls.Add(msoControlButton,

EmptyParam, EmptyParam, EmptyParam, EmptyParam);

注意�Q�集合中�W�一��Ҏ(gu��)��?为底的，而不像Delphi中那样通常�?为底。现在我们获得了需要的工具条按钮接口，然后要创��Z��个基于按钮接口的TButtonServer �c�d��装�?/p>

DIBtn := TButtonServer.Create(nil);

DIBtn.ConnectTo(BtnIntf as _CommandBarButton);

DIBtn.Caption := 'Delphi Test';

DIBtn.Style := msoButtonCaption;

DIBtn.Visible := True;

DIBtn.OnClick := TestClick;

�q�里使用ConnectTo �Ҏ(gu��)��q�接按钮的事件�ƈ讑֮�先前创徏的OnClick事�g处理�q�程。最后，要确认��工具条可见�?/p>

DICommandBar.Set_Visible(True);

TLIBIMP�E�序创徏了一个只�ȝ��而非可读写的工具条Visible 属性，但可以��用Set_Visible �Ҏ(gu��)��来设定显�C�属性（不能生成可读写的属性可能是TLIBIMP的bug�Q�。添加新的菜单项�c�M��于前面，首先创徏菜单的OnClick事�g处理函数�Q�下�? �q�个�q�程遍历被选文本的�W�一�D�，�q�设定其�Ҏ(gu��)��样式�Q?/p>

procedure TAddIn.MenuClick(const Ctrl: OleVariant;

var CancelDefault: OleVariant);

var

Sel : Word_TLB.Selection;

Par : Word_TLB.Paragraph;

begin

Sel := WordApp.ActiveWindow.Selection;

if (Sel.Type_ in [wdSelectionNormal,

wdSelectionIP]) then begin

Par := Sel.Paragraphs.Item(1);

if (Par.Borders.OutsideLineStyle < wdLineStyleInset) then

Par.Borders.OutsideLineStyle := 1 + Par.Borders.OutsideLineStyle

else

Par.Borders.OutsideLineStyle := wdLineStyleNone;

end;

在OnStartupComplete�Ҏ(gu��)��中，��d��下面的代码来获得工具菜单的接口指针，查找自定义的的菜单项�Q�如果没有就创徏新的�Q�然后设定它的OnClick事�g�Q?/p>

ToolsBar := WordApp.CommandBars['Tools'];

MenuIntf := ToolsBar.FindControl(EmptyParam, EmptyParam,

'DIMenu', EmptyParam, EmptyParam);

if (not Assigned(MenuIntf)) then

MenuIntf := ToolsBar.Controls.Add(msoControlButton,

EmptyParam, EmptyParam, EmptyParam, EmptyParam);

DIMenu := TButtonServer.Create(nil);

DIMenu.ConnectTo(MenuIntf as _CommandBarButton);

DIMenu.Caption := 'Delp&hi Menu';

DIMenu.ShortcutText := '';

�?.34

DIMenu.Tag := 'DIMenu';

DIMenu.Visible := True;

DIMenu.OnClick := MenuClick;

CommandBar接口的FindControl�Ҏ(gu��)��使用唯一的标识来查找菜单��，如果扑ֈ�了控件就赋值给 MenuIntf�Q�如果没有找到就创徏一个新的菜单项。图1.34昄��了自定义的工��h��?/p>

清理资源

注意应该在OnBeginShutdown �Ҏ(gu��)��中清理用��L��面元素：

if (Assigned(DIBtn)) then

begin

DIBtn.Free;

DIBtn := nil;

end;

if (Assigned(DIMenu)) then

begin

DIMenu.Free;

DIMenu := nil;

end;

if (Assigned(DICommandBar)) then begin

DICommandBar.Delete;

DICommandBar := nil;

end;

因�ؓ插�g的框架是通用的，我们可以��同��L��OLE Server DLL用于多个应用�E�序�Q�方法就是确定将�Ȁ�z�L��件的应用�E�序�Q��ƈ使用合适的对象模型。最��单的判断�Ҏ(gu��)��是在OnConnection中把应用�E�序�? IDispatch的接口指针赋值给一个OleVariant变量�Q�然后��用相应的Name 属性来��定相应的程序：

var

AppVar : OleVariant;

begin

AppVar := Application;

if (AppVar.Name = 'Outlook') then

begin

...

end

else if (AppVar.Name = 'Microsoft Word') then

begin

...

end else ...

最后，要想获得关于Office开发和Office 2000插�g创徏更详�l�的资料�Q�可以查阅microsoft.public.officedev新闻�l�上的信息�?

swo 2006-12-07 23:58 发表评论

com

swo — Wed, 06 Dec 2006 15:29:00 GMT

http://www.codeproject.com/com/AddinProjectFramework.asp

An ATL Component in C++ that fires COM events

http://www.codeproject.com/com/nbd_ipc.asp

http://www.codeproject.com/com/AddinProjectFramework.asp

http://www.codeproject.com/com/LocalCOMServerClient.asp

swo 2006-12-06 23:29 发表评论

cdo

swo — Wed, 29 Nov 2006 15:44:00 GMT

http://www.codeproject.com/com/OutlookForms.asp

http://www.cdolive.com/cdo.htm

http://www.codeproject.com/useritems/OutlookAdd-in.asp

http://www.codeproject.com/com/OutlookForms.asp

swo 2006-11-29 23:44 发表评论

swo — Wed, 29 Nov 2006 15:26:00 GMT

http://blog.csdn.net/tgh1981/archive/2004/11/18/185859.aspx

swo 2006-11-29 23:26 发表评论

Using Native COM Support in Microsoft Visual C++

swo — Wed, 29 Nov 2006 15:24:00 GMT

Using Native COM Support in Microsoft Visual C++

Microsoft Visual C++ version 5.0 or later has native COM support through the #import statement. Using this statement allows you to automatically add type information contained in a type library into your project. The generated files normally have the same name as the component DLL with the extensions .tlh and .tli.

When using the #import statement, make sure to import the ActiveX Data Objects type information before the Microsoft CDO for Windows 2000 type information. The following examples demonstrate using the #import statement:

#import "c:\program files\common files\system\ado\msado15.dll" no_namespace raw_interfaces_only　rename("EOF", "EndOfFile")#import  no_namespace raw_interfaces_only#include "cdosysstr.h"#include "cdosyserr.h"void main() {  CoInitialize(NULL);  IMessage* pMsg = NULL;  HRESULT hr =     CoCreateInstance( __uuidof(Message),                      NULL,                      CLSCTX_INPROC_SERVER,                      __uuidof(IMessage),                     (void**) &pMsg                     );  ...  CoUninitialize();}

Note

You must have the ADO 2.5 type information in the same namespace as CDO type information. CDO interfaces make use of ADO types in arguments. These types are not qualified using namespaces in the CDO interface definitions. If these types are not in the same namespace, errors will occur. You can do one of the following to solve this problem:

Rename the default ADODB ADO namespace to CDO.
Import type information into the global namespace, if feasible.
Rename both CDO and ADODB to another namespace, such as CDOSYS.

The GUID definitions for ADO and CDO types can be retrieved using the __uuidof operator supported by Visual C++. You can use #import flags to specify the CLSID_XXX and IID_XXX definitions if this format is desired.

Consider the following issues when using the #import statement:

The header file generated by the #import directive does not contain the module constant definitions contained within the type library. However, the Platform SDK provides two separate headers that can be included within your project so that these constants are available. These files are cdosysstr.h and cdosyserr.h. The first contains the field name constants, and the second includes the CDO custom HRESULT error codes. If you do not include these, you will have to manually insert these values. For example, the field "urn:schemas:httpmail:to" has an associated constant called cdoTo in the string constant header file cdosysstr.h.
The #import statement strips the default values for arguments when generating the header files. If you use #import, you will need to explicitly specify the defaults. For example:
```
hr = pBp->AddBodyPart(-1); // the -1 is the default value in cdosys.h
```

Using Interface Pointer Wrapper Classes with Import

The raw_interfaces_only flag to #import directive suppresses the creation of "smart pointer" C++ wrapper classes. However, in many cases these wrappers simplify working with CDO in C++. The following example demonstrates using the wrapper classes produced by the #import statement:

#import "c:\program files\common files\system\ado\msado15.dll" no_namespace　rename("EOF", "EndOfFile")#import  no_namespace#include "cdosysstr.h"#include "cdosyserr.h"void main() {  CoInitialize(NULL);  {  try {   IMessagePtr iMsg(__uuidof(Message));   FieldsPtr Flds;   Flds = iMsg->Fields;   Flds->Item[cdoTo]->Value      = _variant_t("example@example.com");   Flds->Item[cdoFrom]->Value    = _variant_t("example@example.com");   Flds->Item[cdoSubject]->Value = _variant_t("a test");   Flds->Item[cdoTextDescription]->Value = _variant_t("this is a test");   Flds->Update();   iMsg->Send();  }  catch( _com_error err) {   //  ... }  }  CoUninitialize();  return 1;}

Using the CDO Namespace

You can use namespaces with the #import statement. However, when you import the ADO type information, you must make sure to add it to the CDO namespace, or suppress the namespace by adding it to the global namespace. If you do not do this, all ADO type information will reside in the ADODB namespace by default, and CDO arguments that are ADO types will not resolve at compile time. The following example demonstrates this:

#import "c:\program files\common files\system\ado\msado15.dll" rename("ADODB","CDO")　rename("EOF", "EndOfFile")#import #include "cdosysstr.h"#include "cdosyserr.h"void main() {  CoInitialize(NULL);  {  try {   CDO::IMessagePtr iMsg(__uuidof(CDO::Message));   CDO::FieldsPtr Flds;   Flds = iMsg->Fields;   Flds->Item[cdoTo]->Value      = _variant_t("example@example.com");   Flds->Item[cdoFrom]->Value    = _variant_t("example@example.com");   Flds->Item[cdoSubject]->Value = _variant_t("a test");   Flds->Item[cdoTextDescription]->Value = _variant_t("this is a test");   Flds->Update();   iMsg->Send();  }  catch( _com_error err) {   //  ...  }}  }  CoUninitialize();  return 1;}

swo 2006-11-29 23:24 发表评论

利用CDO实现邮�g回执功能

swo — Wed, 29 Nov 2006 15:12:00 GMT

http://blog.csdn.net/irvine007/archive/2006/02/22/606117.aspx

使用CDO发送邮�?/a>

引用CDO�l��g�Q�SYSTEM32下的CDOSYS。DLL�Q�增加一个包装器

using CDO;

conf.Fields.Update();
MessageClass msg=new MessageClass();

   msg.Configuration=conf;

   msg.To="greystar@21cn.com";
   msg.Subject= "注册��认通知";
   msg.HTMLBody="注册信息"
     msg.From="greystar@21cn.com";

msg.Send();

swo 2006-11-29 23:12 发表评论

A Complete ActiveX Web Control Tutorial

swo — Tue, 28 Nov 2006 16:37:00 GMT

http://www.codeproject.com/com/CompleteActiveX.asp

swo 2006-11-29 00:37 发表评论

swo — Tue, 28 Nov 2006 15:42:00 GMT

http://www.vckbase.com/document/viewdoc/?id=539
http://www.codeproject.com/csharp/OutlookConnector.asp

swo 2006-11-28 23:42 发表评论

swo — Tue, 28 Nov 2006 15:03:00 GMT

INFO�Q��?Visual C++ �?Office 自动�?/font>

察看本文应用于的产品

文章�~�号	:	238972
最后修�?/td>	:	2006�q?�?0�?/td>
修订	:	6.1

本页

概要

更多信息

自动化和 COM

�?Visual C++ 使用自动化的三种�Ҏ(gu��)��

如何使用 Office �c�d��?/span>

使嵌入的 Office �l��g自动�q�行

参�?/span>

概要

�(zh��n)�可以��用自动化功能�?Visual C++ 应用�E�序中控�?Microsoft Office �l��g。本文提供�� Office 自动�q�行所需的基本信息以及指向相兌��源和�C�Z��代码的指针�?div class="topOfPage">

回到��端

Office 应用�E�序	�c�d��?/th>
Word 95 及更低版�?/td>	wb70en32.tlb
Excel 95 及更低版�?/td>	xl5en32.olb
PowerPoint 95 及更低版�?/td>	PowerPoint.tlb
Access 95 及更低版�?/td>	msaccess.tlb
Binder 95	binder.tlb
Schedule+	sp7en32.olb

实现Office的COM插�g

swo — Tue, 28 Nov 2006 14:55:00 GMT

实现Office的COM插�g

作者： ZDNet China
2003-08-11 01:43 PM

当��Y件开发者考虑扩展Microsoft Office�Ӟ��最常想到方法就是是使用VB了。实际上�Q�用C++和ATL扩展Office是相当容易的�?br />
我将向你演示如何建立��目以及如何把Office插�g作�ؓCOM对象注册到Office中去。（本文用Outlook来作为插件的�ȝ��序。）

��目的徏�?br />

让我们徏立一个新的ATL��目。首先，��d��一个叫着Plugin的简单COM对象。用�c�d��导把_IDTExtensibility2接口��d��到Plugin�c�M��。（别忘了选中IsupportErrorInfo复选框。）

�c�d��g��把下�q�方法添加到Plugin�c�M��Q�OnConnection、OnDisconnection、OnAddinsUpdate�? OnStartupComplete、OnBeginShutdown。本文只处理OnConnection和OnDisconnection�Ҏ(gu��)��?br />
然后�Q�在Plugin头文件中创徏一个类型定义（typedef�Q�它只是用来��化代码的�Q�，如下所�C�：

#define APPID 102
class CPlugin;
typedef IDispEventImpl &LIBID_Outlook,9,0> OutLookSink;

我们现在需要在Plugin�cȝ��l�承列表中添加OutLookSink�c�：

class ATL_NO_VTABLE CPlugin :
       public IPlugin,
       public IDispatchImpl<_IDTExtensibility2, &__uuidof(_IDTExtensibility2),
               &LIBID_AddInDesignerObjects, /* wMajor = */ 1, /* wMinor = */ 0>,
    public OutLookSink

在Plugin.h文�g中�ؓMso9.dll和Msoutl9.olb引入声明�Q�如下所�C�：

#import "C:\Program Files\Common Files\Designer\msaddndr.dll" \
raw_interfaces_only, \
raw_native_types, no_namespace, named_guids, auto_search

#import "C:\Program Files\Microsoft Office\Office\mso9.dll" \
rename_namespace("Office") named_guids

#import "C:\Program Files\Microsoft \
Office\Office\msoutl9.olb" \
rename_namespace("Outlook"), raw_interfaces_only, \
named_guids

using namespace Office;
using namespace Outlook;

注意�Q�你需要按照你的系�l�中的文件�\径来修正上面那些被引入文件的路径�?/p>

你必��L��Office扩展作�ؓCOM�l��g注册到Office中去。Visual C++自动产生.rgs文�g来控制COM注册。我们将需要添加额外的��目加到.rgs文�g来支持Office的自动注册�?br />
在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office键下�Q�有若干个子键，每一个子键对应于�pȝ��中安装的每一个Office应用�E�序。在�q�些键中有插件关键字�Q�add-in key�Q��?br />

��Z��在Office中注册我们的COM对象�Q�我们需要在插�g键中��d��新键。在HKEY_CURRENT_USER下同��h��对应的树来控制单个用��L��插�g�Q�而HKEY_LOCAL_MACHINE控制整个机器的插件�?br />
下面�?rgs文�g中Outlook的插件注册码�Q?/p>

HKCU
{
    NoRemove Software
    {
        NoRemove Microsoft
        {
            NoRemove Office
            {
                NoRemove Outlook
                {
                    NoRemove Addins
                    {
                        ForceRemove OutlookDemo.Plugin.1
                        {
                            val FriendlyName = s 'Outlook Plugin'
                            val Description = s 'An Outlook plugin'
                            val LoadBehavior = d 3
                            val CommandLineSafe = d 0
                        }

                    }
                }
            }
        }
    }
}

�q�套注册��Ҏ(gu��)��为特定用��h��册插件的�Q��ؓ了把插�g讄��为整个系�l�范围之内可用，只需把HKCU改�ؓHKLM�?br />

LoadBehavior的值控制了�ȝ��序运行后插�g的行为。�ؓ了让�ȝ��序开始运行后插�g自动�q�行�Q�把LoadBehavior的��D��|��ؓ3。如果想让用��h��工蝲入插�Ӟ��把LoadBehavior讄��?�?br />
如果你编译了�q�个��目�Q�你��有了一个Outlook 插�g�Q�这个插件实际上没有做�Q何事�Q�但是它的确是一个可以工作的插�g�?br />
我们现在向这个插件添加一些功能。首先，��d��一个新的成员变量：

_ApplicationPtr m_pApp;

然后讄��OnConnection�Ҏ(gu��)��Q?/p>

    STDMETHOD(OnConnection)(LPDISPATCH Application,
                                                            ext_ConnectMode ConnectMode,
                                                            LPDISPATCH AddInInst,
                                                            SAFEARRAY * * custom)
    {
             HRESULT rslt = S_OK;
             try{
                  m_pApp = Application;
                  OutLookSynch::DispEventAdvise(m_pApp);
             }catch(_com_error &e){
                  OutputDebugString(e.ErrorMessage());
                                    rslt = E_UNEXPECTED;
             }
             return rslt;
    }

再设�|�与之对应的OnDisconnection�Ҏ(gu��)��Q�如下所�C�：

    STDMETHOD(OnDisconnection)(ext_DisconnectMode RemoveMode,SAFEARRAY
* * custom)
      {
                 HRESULT rslt = S_OK;
                 try{
                       OutLookSynch::DispEventUnadvise(m_pApp);
                 }catch(_com_error &e){
                       OutputDebugString(e.ErrorMessage());
                       rslt = E_UNEXPECTED;
                 }
                 return rslt;
    }

现在我们可以收到好几�U�事�Ӟ��例如�Q�OnNewMail事�g。得��C��件的信息以及它们的ID的最好方法就是打开MSVC工具菜单上的OLE/COM观察器（viewer�Q��?/p>

�q�入File菜单�q��择View Typelib�?/li>
��览Msoutl9.olb文�g�?/li>
Scroll down ApplicationEvents的dispinterface。注意OnNewMail事�g的ID号�ؓ0x0000f003.�?/li>
向Cplugin�c�L��加一个叫着OnNewMail的方法�?/li>
建立一个Sink映射来把OnNewMail�Ҏ(gu��)��兌��到OnNewMail事�g�?/li>

    BEGIN_SINK_MAP(CPlugin)
              SINK_ENTRY_EX(APPID, Outlook::DIID_ApplicationEvents, /
0x0000f003, OnNewMail)
    END_SINK_MAP()

现在我们只需要完成OnNewMail事�g处理函数了�?/p>

    void _stdcall OnNewMail(){
           MessageBox(NULL, "New Mail", NULL, MB_OK);
    }

如果你想消除�q�些讨厌的弹出式对话框（��p��目所创徏�Q�，那么最��单方法就是遵循下面的步骤�Q?/p>

�q�入Outlook的Tools | Options菜单��V�?/li>
选择Other标签�?/li>
点击Advanced Options按钮�?/li>
点击COM 的插件按钮�?/li>
选中Outlook的Plugin��ƈ点击Remove�?/li>

如你所见，Office的COM插�g实现��h��相对来说�q�不�ȝ��甚至可以说很��L��。创��Z��个COM Office插�g最困难的计��出所有参数的初倹{��不�q�一旦你发现可以在OLE/COM查看器中得到�q�些信息�Q�这也就不成问题了�?p align="left">

swo 2006-11-28 22:55 发表评论

�?/td>	“Inside OLE - Second Edition”，Kraig Brockschmidt 著，ISBN 1-55615-843-2
�?/td>	“Inside COM”，Dale Rogerson 著，ISBN 1-57231-349-8
�?/td>	“Automation Programmer's Reference”，ISBN 1-57231-584-9

�?/td>	�? 助于 MFC�Q��?zh��n)�可以使�?Visual C++ ClassWizard �?Microsoft Office �c�d��库生成“包装类”。这些类以及诸如 COleVariant、COleSafeArray �?COleException 之类的其�?MFC �c�d��化自动化��d��。此�Ҏ(gu��)��优于其他�Ҏ(gu��)��Q�通常��使用该方法，�q�且大部�?Microsoft 知识库示例都使用 MFC�?/td>
�?/td>	#import �?Visual C++ 5.0 中引入的一个新指��o�Q�它可以从指定的�c�d��库创�?VC++“智能指针”。它的功能非常强大，但通常不徏议��用它�Q�因为它�?Microsoft Office 应用�E�序一起��用时�Q�经�怼�出现引用计数问题�?/td>
�?/td>	C/C++ 自动化要困难得多�Q�但有时��Z��避免�׃��使用 MFC 时所造成的开销或避免��?#import 时所出现的问题，需要��用该�Ҏ(gu��)��。基本上�Q��?zh��n)�会用�? CoCreateInstance() �q�样�?API 以及诸如 IDispatch �?IUnknown 之类�?COM 接口�?/td>

国产精品伊人久久伊人电影,丁香色欲久久久久久综合网,无码国产69精品久久久久网站

outlook

How To Automate Outlook Using Visual C++/MFC

MORE INFORMATION

Automating Microsoft Outlook 2000, 2002, and 2003

��d��Outlook收�g��׃��信的�c�d��(HTML/RTF/WORD/TEXT)

��d��Outlook收�g��׃��信的�c�d��

使用Delphi开发Office Word插�g

使用 Delphi 开发Office Word插�g

com

cdo

Using Native COM Support in Microsoft Visual C++

利用CDO实现邮�g回执功能

A Complete ActiveX Web Control Tutorial

INFO�Q����?Visual C++ �?Office 自动�?/font>

本页

概要

更多信息

自动化和 COM

�?Visual C++ 使用自动化的三种�Ҏ(gu��)��

实现Office的COM插�g

��目的徏�?br />

INFO�Q��?Visual C++ �?Office 自动�?/font>