一個實際的OLE服務器的開發：
文章導讀： 先行知識：Delphi/COM/OLEAutomation/SQLServer 難度：★★☆☆☆ 在前幾篇文章中我們已經討論過關于VCL和OLE的知識。在這篇文章中我們將完成一個比較有實際意義的OLEAutomation服務器程序，最后我們把他們封裝為Delphi中使用的VCL組件。 首先我們來做一個實際的程序，在它沒有變為服務器之前，這是個用來管理客戶購買記錄的程序（它自己與SQLSe
先行知識：Delphi/COM/OLEAutomation/SQLServer 難度：★★☆☆☆ 在前幾篇文章中我們已經討論過關于VCL和OLE的知識。在這篇文章中我們將完成一個比較有實際意義的OLEAutomation服務器程序，最后我們把他們封裝為Delphi中使用的VCL組件。 首先我們來做一個實際的程序，在它沒有變為服務器之前，這是個用來管理客戶購買記錄的程序（它自己與SQLServer連接），它可以錄入和刪除客戶的購買記錄并直觀的顯示出來，所有的數據都存放在SQLServer中。我們將它做為OLEAutomation出于這樣一種考慮，假設我們是一家大型的供貨公司，我們可能有很多系統需要使用這個客戶購買記錄程序并用它處理SQLServer中相應的數據，但我們不愿意每次都重復的編寫同樣的處理代碼，我們更希望能把這個處理程序獨立出來，并向其它程序提供服務。那么在下面的工作中我們完成了這個服務器程序，界面如下：（注意，這僅僅是一個例子，我們不評價其數據庫設計的好壞J） 我們不過多的討論這個程序的代碼（因為這和開發一般的程序沒有任何不同，你可以按照最后的地址給我來信索取這篇文章的全部代碼）。然后我們來把它變為一個服務器。選擇FileàNewàOthersàActiveXàAutomationObject。接下來delphi為我們定義了類型庫和實現文件，我們要做的只是在類型庫中添加相應的我們要用到的服務器屬性和事件。我們簡單的給出定義這個OLEAutomation功能的接口（來自類型庫所產生的ObjectPascal代碼）： ICustFormOLE=interface(IDispatch) ['{D7AE75F9-F838-4702-A8EB-EAD0EED242DE}'] functionGet_CustName:WideString;safecall; procedureSet_CustName(constValue:WideString);safecall; functionGet_ProductName:WideString;safecall; procedureSet_ProductName(constValue:WideString);safecall; functionGet_ProductNum:Integer;safecall; procedureSet_ProductNum(Value:Integer);safecall; functionGet_Remark:WideString;safecall; procedureSet_Remark(constValue:WideString);safecall; //下面的方法和屬性都對應著原程序中相應的方法和屬性 procedureAddToData;safecall; procedureDelData;safecall; propertyCustName:WideStringreadGet_CustNamewriteSet_CustName; propertyProductName:WideStringreadGet_ProductNamewriteSet_ProductName; propertyProductNum:IntegerreadGet_ProductNumwriteSet_ProductNum; propertyRemark:WideStringreadGet_RemarkwriteSet_Remark; end;新聞熱點
疑難解答
