一个实际的OLE服务器的开发和使用

function Get_Remark: WideString; safecall;

procedure Set_Remark(const Value: WideString); safecall;

//下面的方法和属性都对应着原程序中相应的方法和属性

procedure AddToData; safecall;

procedure DelData; safecall;

property CustName: WideString read Get_CustName write Set_CustName;

property ProductName: WideString read Get_ProductName write Set_ProductName;

property ProductNum: Integer read Get_ProductNum write Set_ProductNum;

property Remark: WideString read Get_Remark write Set_Remark;

end;

ICustFormOLEDisp = dispinterface

[''''{D7AE75F9-F838-4702-A8EB-EAD0EED242DE}'''']

property CustName: WideString dispid 201;

property ProductName: WideString dispid 202;

property ProductNum: Integer dispid 203;

property Remark: WideString dispid 204;

procedure AddToData; dispid 205;

procedure DelData; dispid 206;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!