快讯

	首页 > 软件 > 开发特区 > 开发语言 > Delphi > 正文	世界杯

一个实际的OLE服务器的开发

2004-02-14 09:34 出处：PConline 作者：hkbarton/CSDN 责任编辑：linjixiong

在本页浏览全文

　　ICustFormOLEDisp=dispinterface 　　　　['{D7AE75F9-F838-4702-A8EB-EAD0EED242DE}'] 　　　　propertyCustName:WideStringdispid201; 　　　　propertyProductName:WideStringdispid202; 　　　　propertyProductNum:Integerdispid203; 　　　　propertyRemark:WideStringdispid204; 　　　　procedureAddToData;dispid205; 　　　　procedureDelData;dispid206; 　　　　end; 　　　　我们现在回到接口的实现文件，注意代码中的注释，事实上这段代码相当的简单：　　　　unitCustOLEImpUnit; 　　　　{$WARNSYMBOL_PLATFORMOFF} 　　　　interface 　　　　uses 　　　　ComObj,ActiveX,CustViewOLE_TLB,StdVcl,windows; 　　　　type 　　　　TCustFormOLE=class(TAutoObject,ICustFormOLE) 　　　　//注意这里实现了我们在前面定义的ICustFormOLE接口　　　　protected 　　　　functionGet_CustName:WideString;safecall; 　　　　functionGet_ProductName:WideString;safecall; 　　　　functionGet_ProductNum:Integer;safecall; 　　　　functionGet_Remark:WideString;safecall; 　　　　procedureAddToData;safecall; 　　　　procedureDelData;safecall; 　　　　procedureSet_CustName(constValue:WideString);safecall; 　　　　procedureSet_ProductName(constValue:WideString);safecall; 　　　　procedureSet_ProductNum(Value:Integer);safecall; 　　　　procedureSet_Remark(constValue:WideString);safecall; 　　　　end; 　　　　implementation 　　　　usesComServ,CustFormUnit; 　　　　functionTCustFormOLE.Get_CustName:WideString; 　　　　begin 　　　　result:=CustForm.CustomEdit.Text; 　　　　//可以看到，我们只是用了最初程序窗体的控件和属性，这里的接口实现相当于　　　　//只是简单的封状了我们的原始程序，下面的代码情况类似。　　　　希望看到更多更经典的开发技巧，请随时刷新《开发特区》栏目。

察看评论详细内容我要发表评论