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

procedure Set_ProductNum(Value: Integer); safecall;

procedure Set_Remark(const Value: WideString); safecall;

end;

implementation

uses ComServ,CustFormUnit;

function TCustFormOLE.Get_CustName: WideString;

begin

result:=CustForm.CustomEdit.Text;

//可以看到，我们只是用了最初程序窗体的控件和属性，这里的接口实现相当于

//只是简单的封状了我们的原始程序，下面的代码情况类似。

end;

function TCustFormOLE.Get_ProductName: WideString;

begin

result:=CustForm.ProductEdit.Text;

end;

function TCustFormOLE.Get_ProductNum: Integer;

begin