Delphi2009中的几处问题

http://bbs.2ccc.com/topic.asp?topicid=319928

上有网友问我D2009还有什么问题.就简单的说一下我所发现的.

上一段时间一直在用Delphi给其他软件开发一个电子地图的ActiveX控件.

Delphi2009已经出到Update4了.有几个问题一直都还没解决.

1.泛型类库的一处Bug.Generics.Collections.Pas中

constructor TObjectList<T>.Create(AOwnsObjects: Boolean);
begin
  inherited;
  FOwnsObjects := AOwnsObjects;
end;

如果用这个方法创建TObjectList<T>的话根本不能用.因为父类中根本就没有Create方法参数是boolean类型的.所以父类的构造方法根本就没用被调用到.很多父类成员没创建.所以在IndexOf什么的时候都会报错.

临时的解决方式就是把文件拷贝到工程目录下,把这里的代码改成

constructor TObjectList<T>.Create(AOwnsObjects: Boolean);
begin
  inherited Create();
  FOwnsObjects := AOwnsObjects;
end;

这个问题我报告给CodeGear.他们也说知道了这个问题.结果Update4发布了,这里还是没有改.

2.就是IDL生成Pascal文件的时候LPSTR翻译到PChar,LPWSTR翻译到PWIdeChar.其实Delphi2009中CHar和WideChar是一个东西.LPSTR应该翻译到PAnsiChar才对.CodeGear只是把以前的Delphi的IDL到Pascal的翻译器拿过来了.这里没有做相应的修改.不知道有没有人报告给过CodeGear.

3.实现Idispatch的时候我不想用TAutoObject的自动化对象.于是使用了TObjectDispatch结合{$METHODINFO ON}编译开关开发.结果发现如果接口本身不在TLB类型库中出现的而是自己代码定义的一点问题都没有.如果接口本身是在TLB中定义的,加上{$METHODINFO ON}的时候编译会报错Internal error HXXXX.XXXX是数字,我记不住了.没法子只能用自动化对象了

4.Themes的单元.finalization节

if not IsLibrary then

  InternalServices.Free;

因为ActiveX组件的OCX本身就是DLL.里面用到了界面相关的VCL控件.结果FastMM4就会报InternalServices内存泄露.大概CodeGear的考虑是BPL卸载的时候不要把整个程序的InternalServices卸载掉.但是如果是普通的DLL,OCX则会有造成泄露．

这个问题倒是不大,反正如果不是反复加载卸载就只会泄露一次.不过我还是把它改成

  if(InternalServices <> nil) then
  begin
    InternalServices.Free;
    InternalServices := nil;
  end;

并把Themes.Pas文件拷贝到当前目录下.这样这个泄露就没有了.

5.AXCtrls.PAS单元.

我是动态创建ActiveX组件的.结果发现创建几个就会有几个TOleLinkStub的泄露.

反复查找到TActiveXControl.Initialize;里面有这样的代码

  FOleLinkStub := TOleLinkStub.Create(nil);
  FOleLinkStub._AddRef;//增加引用计数

而destructor TActiveXControl.Destroy;里面则是

FOleLinkStub := nil;

这样引用计数也就减到1.永远减不到0.造成泄露.

老办法,把AXCtrls.pas拷贝到当前目录下.

修改代码

  I := FOleLinkStub._AddRef() - 1;//取引用计数,调增加方法,返回的就是引用次数
  FOleLinkStub._Release;    //把刚才增加的引用次数减去
  if(I > 1) then
    FOleLinkStub._Release;
  //
  FOleLinkStub := nil;

问题解决.

后来看了一下旧版Delphi的代码,发现4,5的问题一直都存在于VCL类库中.