非常郁闷的一件事情

首先必须承认我对delphi创建com组件并不擅长,昨天睡不着,就给我的com组件中的一个类加了一个功能,用到了TInterfaceList,所以自然的创建了constructor create,destructor destory来创建和解析这个TInterfaceList变量

 

这个类是内部创建(ciInternal)

结果,在x++中,当调用到返回这个类时,ax就崩溃退出,而在visual basic/vbscript中,一切调用正常

 

大家可以想象我用了多种方法,包括重新反注册,重新编译,清空ax缓存. 但结果还是一样

 

今天早上,使用ironpython调用,当访问这个返回的变量时,同样提示内存访问错误

我就删除了这个类,重新创建了这个类,然后,就发现,如果写了create构造,就会发生上面的问题

 

我想这反映了我的无知, 我居然搞不清delphi com组件应该在什么时候初始化实例变量

 

其实很简单,就是覆盖AutoObject的Initialize

procedure TReportDataSource.Initialize;
begin
  inherited Initialize;
  _parameters:=TInterfaceList.Create;
end;

 

记录,备忘

 

 

 

转载于:https://www.cnblogs.com/jjx/archive/2008/08/05/1260671.html