VCATLCOM新手入門教程VS2010

1、第1步：創(chuàng)建ATL項目啟動VS 2010并創(chuàng)建一個新的工程，選擇“ATL項目”，工程名為“Simple_ATL”。設(shè)置好工程的路徑之后，單擊“確定”按鈕。打開向?qū)?，并點擊“下一步”請確認(rèn)應(yīng)用程序類型選為“動態(tài)鏈接庫（DLL）”。其余選項為默認(rèn)值。點擊“完成”。第2步：創(chuàng)建一個新的ATL對象在“類視圖”中，應(yīng)該會看到“Simple_ATL”，在此右擊鼠標(biāo)鍵，并在彈出菜單中選擇“添加”->“類”，在出現(xiàn)的對話框中選擇“ATL簡單對象”，點擊“添加”在“ATL簡單對象向?qū)А睂υ捒蛑校凇昂喎Q”文本框中輸入“First_ATL”。請注意，這時候向?qū)Ь蜁詣拥靥顚懫渌奈谋究?。然后，單擊左部的“選

2、項”標(biāo)簽，在這里你需要做一些選擇?！熬€程模型”選擇默認(rèn)的“單元”模型。對于“接口”，選擇“雙重”。最后，因為我們的程序與“聚合”無關(guān)，所以我們選擇“否”。其它的選擇默認(rèn)值。單擊“完成”，這時候向?qū)Ь蜁槲覀儎?chuàng)建一個新的ATL簡單對象。第3步：添加一個方法如果你現(xiàn)在在工作區(qū)中單擊了“ClassView”標(biāo)簽，那么你會注意到向?qū)г谄渲刑砑恿艘淮畺|西。我們想添加的第一個東西是一個方法，可以在“IFirst_ATL”上右擊鼠標(biāo)鍵，并選擇“添加”->“添加方法”，打開“添加方法向?qū)А贝翱凇Ｔ诜祷刂殿愋停≧eturn Type）處你會看到，這個方法會默認(rèn)返回HRESULT，在大多數(shù)情況下你不需要改變

3、它。下一個文本框允許我們輸入方法的名稱，我們可以輸入“AddNumbers”。下面的組合框是讓我們輸入?yún)?shù)的，由于我們想做兩個數(shù)的相加并獲得一個返回的結(jié)果，所以我們需要三個參數(shù)，并且最后一個參數(shù)是一個指針。三個參數(shù)如下，并單擊“完成”按鈕。在“類視圖”，你會在類（CFirst_ATL）的下方看到我們的“AddNumbers”方法以及我們給予它的參數(shù)。 在這個方法上雙擊鼠標(biāo)鍵，并插入以下的代碼：STDMETHODIMP CFirst_ATL:AddNumbers(LONG Num1, LONG Num2, LONG* ReturnVal)/ TODO: 在此添加實現(xiàn)代碼*ReturnVal =

4、Num1 + Num2;return S_OK;第4步：編譯DLL如果出現(xiàn)以下錯誤：1>C:Program Files (x86)MSBuildMicrosoft.Cppv4.0Microsoft.CppCommon.targets(744,5): warning MSB3075: 命令“regsvr32 /s "c:usersgldocumentsvisual studio 2010ProjectsSimple_ATLDebugSimple_ATL.dll"”已退出，代碼為 5。請驗證您是否有足夠的權(quán)限來運(yùn)行此命令。1> 上一錯誤已轉(zhuǎn)換為警告，因為調(diào)用任務(wù)時指

5、定了 ContinueOnError=true。1> 繼續(xù)生成，因為任務(wù)“Exec”的“ContinueOnError”設(shè)置為“true”。1>C:Program Files (x86)MSBuildMicrosoft.Cppv4.0Microsoft.CppCommon.targets(756,5): error MSB8011: 未能注冊輸出。請嘗試啟用“逐用戶重定向”，或者使用提升的權(quán)限從命令提示符處注冊該組件。1>1>生成失敗。1>請使用管理員身份來運(yùn)行VS 2010，并重新編譯項目。第5步：在Visual Basic中調(diào)用COM組件啟動VB，并選擇“Wi

6、ndows窗體應(yīng)用程序”，并建立工程，工程名為“TestCOMApp”。在對話框上放置一個命令按鈕?，F(xiàn)在，我們需要添加COM服務(wù)器的引用，請單擊“項目”菜單并選擇“添加引用”，在“COM”選項卡中找到“Simple_ATLLib”并選擇它。雙擊先前放置的命令按鈕，VB會切換到這個按鈕的代碼窗口。添加以下的代碼：Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim objTestATL As Simple_ATLLib.First_ATL objTestATL = New Simple_ATLLib.First_ATL Dim lngReturnValue As Long objTestATL.AddNumbers(5, 7, lngReturnValue) MsgBox("The va