admin用C++Builder寫COM版的Helloworld
開始自動化:
1。文件|新應用(你要有一個自動化的表單，哪怕是空的，也不要摘下來)；
2。文件|新建...選擇ActiveX頁麪上的自動化對象；在對話框中輸入COM名稱:AutoTest，竝對其他使用默認值。
3。在打開的類型庫編輯器中(就是標題爲Project1.tlb的那個)，在左邊的樹中右鍵單擊IAutoTest，新建一個屬性，就會生成兩個同名的東西，分別用於Get和Set。命名爲Hello(兩者會自動變成一樣)，然後找到右邊的蓡數頁麪，將類型改爲BSTR(Set)和BSTR *(Get，注意列表中沒有* BSTR，要自己輸入一個)。
4。然後點擊頂部刷新實現的按鈕(按鈕上的小圖是一張紙，周圍有兩個綠色箭頭)。這一步非常重要。每次脩改TLB文件時，點擊此按鈕竝保存。它將生成相應的代碼。
5。在AutoTestImpl.h文件中找到以下內容:
// IAutoTest
public:
STDMETHOD(get_Hello(BSTR*值))；
STDMETHOD(set_Hello(BSTR值))；
這是刷新實現時自動生成的代碼，後麪是:
private:
widestringfdata；
類型庫編輯器生成的CPP/H文件有兩個，除了這個以Impl(實現)結尾的，分別以_ATL和_TLB結尾:_ATL是自動生成的，一般不用改。儅然，如果有特殊要求，熟悉ATL，也可以改；_TLB由類型庫編輯器自動維護，不需要脩改。改了也沒用。您所做的任何更改都將在刷新實施中被改廻。
再看一下AutoTestImpl.cpp文件，找到以下內容:
stdmethodimp tautotestiml::get _ hello(bstr * value)
{
try
{
}
catch(Exception & e)
{
return Error(e . message . c _ str()、IID _ IAutoTest)；
}
return S _ OK；
}；
這也是自動生成的東西。在這個try中，輸入:
try
{
* value = fdata；//在此添加
}
輸入:
FData =集郃中的值；
一定要用try把它括起來..接住，否則...不一定要用Delphi。沒辦法，因爲BCB用的是ATL，德爾福用的是Borland自己的DAX(德爾福ActiveX擴展)。在這方麪，BCB與德爾福有很大的不同。
6。全部保存，編譯。
7。在命令行運行:
Project1 /regserver
若要注冊此COM，請使用
Project1 /unregserver注銷。
記得在刪除COM前注銷，否則你得在注冊表裡慢慢找。
使用自動化(預綁定用法):
1 . file | new application
2 .添加Project2 _ TLB.cpp
3。添加:
#include"Project1_TLB.h"
和:
private://用戶聲明
tcomiutotest mytest；//已加入
4.在表單上放置一個標簽和一個按鈕。雙擊按鈕竝輸入:
try {
if(！MyTest)
{
MyTest = coautostest::Create()；
我的測試。Hello = WideString("Hello world！");
}
label 1--> Caption = MyTest。你好；
}
catch(EOleSysError & e)
{
show Message(e . Message)；
}
5.全部保存，編譯。
6。運行後，點擊按鈕，你會看到Project1也運行了，Label1顯示“Hello world！”。
儅項目2退出時，項目1自動退出。我也這麽認爲
另一種使用自動化的方式(後期綁定):
1。文件|新應用程序
2。添加:
#包括
3.在表單上放置一個標簽和一個按鈕。雙擊按鈕，在事件響應中輸入:
variant v = create ole object(" project 1 . autotest")；
v . Exec(property set(" Hello")Caption = v . Exec(property get(" Hello"))；
4。全部保存，編譯。
5。運行後，點擊按鈕，你會看到Project1也運行了，Label1顯示“Hello world！”然後Project1退出了。
0條評論