打印本文 
关闭窗口 1.File|New Application （做 Automation 要有 Form ，即使是个空的也不要拿掉）;
2.File|New... 选 ActiveX 页上的 Automation Object; 在对话框中输入 COM 名： AutoTest ，其它就用默认值。
3.在打开的 Type Library Editor （就是那个标题为 Project1.tlb 东东）中，左边的树中的 IAutoTest 上点右键， New 一个 Property ，会产生两个同名的东东，分别用于 Get 和 Set ，取名为 Hello （两个会自动变为一样的），然后在右边找到 Parameters 页，将 Type 改为 BSTR(Set) 和 BSTR *(Get ，注意，列表中的 BSTR 没有＊，要自已输入一个）。
4.然后点顶上那个 Refresh Implementation 的按钮（按钮上的小图片是一张纸，里面有两个绿色的箭头成环绕状），这一步很重要，每次修改完 TLB 文件都要点这个按钮再存盘，它将产生相应的代码。
5.在 AutoTestImpl.h 文件中找到如下内容：
// IAutoTest
public:
STDMETHOD(get_Hello(BSTR* Value));
STDMETHOD(set_Hello(BSTR Value));
这是 Refresh Implementation 时自动产生的代码，在后面加上：
private :
WideString FData;
Type Library Editor 产生的 CPP/H 文件除了这个以 Impl （即 Implementation ）结尾的以外，还有两个，分别是以 _ATL 和 _TLB 结尾的： _ATL 是自动产生的，通常不用变它，当然如果你有特别的要求并且你对 ATL 又很熟，也可以改改它； _TLB 是由 Type Library Editor 自动维护，无须修改，改了也没用，你的任何修改都会在 Refresh Implementation 时被改回来的。
再看 AutoTestImpl.cpp 文件，找到如下内容：
STDMETHODIMP TAutoTestImpl::get_Hello(BSTR* Value)
{
try
{
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IAutoTest);
}
return S_OK;
};
这也是自动产生的东东，在这个 try 中输入：
try
{
*Value = FData; // 加在这里
}
在 Set 的 Try 中输入：
FData = Value;
注意一定要用 try..catch 括起来，否则..。 Delphi 就不用，这没办法，因为 BCB 是用 ATL 的嘛，而 Delphi 是用 Borland 自已搞的 DAX(Delphi ActiveX Extension) ， BCB 就是在这点上和 Delphi 有很大不同。
6.Save All ，编译。
7.在命令行下运行：
Project1 /regserver
注册这个 COM ，注销则用：
Project1 /unregserver
记得删除 COM 之前一定要先注销，不然你只好到注册表里慢慢找了。
使用 Automation （前期联编用法）：
1.File|New Application
2.在 Project2 中加入 Project1_TLB.CPP
3.在 Unit2.h 中加入：
#include "Project1_TLB.h"
和：
private: // User declarations
TCOMIAutoTest MyTest; // 加入的
4.在 Form 上放一个 Label 和一个 Button 。双击BUTTON，在事件响应中输入：
try {
if ( !MyTest )
{
MyTest = CoAutoTest::Create( );
MyTest.Hello = WideString( "Hello world!" );
}
Label1->Caption = MyTest.Hello;
}
catch ( EOleSysError &e )
{
ShowMessage( e.Message );
}
5.Save All ，编译。
6.运行后，点 Button ，你会看到 Project1 也运行起来，同时 Label1 显示 "Hello world!" 。
当 Project2 退出时， Project1 也自动退出。会了吧。
另一种使用 Automation 的方法（后期联编用法）：
1.File|New Application
2.在Unit3.cpp中加入：
#include <vcl/ComObj.hpp>
3.在 Form 上放一个 Label 和一个 Button 。双击BUTTON，在事件响应中输入：
Variant v = CreateOleObject( "Project1.AutoTest" );
v.Exec( PropertySet( "Hello" ) << "Hello world!" );
Label1->Caption = v.Exec( PropertyGet( "Hello" ) );
4.Save All ，编译。
5.运行后，点 Button ，你会看到 Project1 也运行起来，同时 Label1 显示 "Hello world!" ，然后 Project1 就退出了。
打印本文 关闭窗口