(你会看到它帮你建好了CODE的模型)。

File\Save，输入文件名MyObject，按保存。

改一下CODE，按一下Ctrl+S保存，Project\Build MyCOM。

就可以看到生成了一个MYCOM.DLL文件

这就是你要的COM组件了，用Regsvr32命令注册这个组件后就可使用了。


下面再讲调用这个COM组件的方法：

　　New 一个新的Application
　　在uses 中加一个Comobj
　　放一个button在FORM中
　　在button的onClick事件中打入以下的Code:

　　代码:

var
MyObject: OleVariant;
begin
MyObject:=CreateOleObject('MyCOM.MyObject');
try
ShowMessage(MyObject.Test('黎明'));
finally
VarClear(MyObject);
end;
end;

　　执行.....并按Button1按键, 你会看到一个Message...那就是执行COM对象的Test方法的回传值。

上一页  [1] [2] [3]