CnPack Forum - Powered by Discuz! Board

Subject: comserv.pas 有内存泄漏。 [Print This Page]

Author: circus_monkey Time: 2003-9-2 16:34 Subject: comserv.pas 有内存泄漏。

如果在project中先加入cnMemProf(内存泄漏检测单元)
然后在调用 uses ComServ;
即使不写任何的其他语句，在退出的时候还是会出现一处内存泄漏。
其问题代码如下：
==============================================
initialization
begin
  OleAutHandle := SafeLoadLibrary('OLEAUT32.DLL');
  ComServer := TComServer.Create;
  if not ModuleIsLib then
  begin
SaveInitProc := InitProc;
InitProc := @InitComServer;
AddTerminateProc(@AutomationTerminateProc);
  end;
end;

finalization
begin
  ComServer.Free;
  ComServer := nil;
  FreeLibrary(OleAutHandle);
end;
============================================
但是还没有找到解决的办法。

Welcome to CnPack Forum (http://bbs.cnpack.org/)