delphi - 使用 TIDNotify 的内存泄漏，线程安全的 VCL 交互

Question

以下代码用于允许来自 INDY 10 tcpserver.onexecute() 的线程安全 VCL 交互；

///  a function to write information into a TBitmap 
TVclNavigationImage= procedure( ll, ur, ll_v , ur_v : TPoint ) of object;

TVCLUpdateNotify = class(TIdNotify)
 protected
 f_ll, f_ur, f_ll_v , f_ur_v  : TPoint;
 FProc: TVclNavigationImage;
 procedure DoNotify; override;
 public
 constructor Create(ll, ur, ll_v , ur_v : TPoint; aProc:TVclNavigationImage); reintroduce;
 class procedure UpdateNavigationWindow(ll, ur, ll_v , ur_v : TPoint ; aProc: TVclNavigationImage);
 end;

 class procedure TVCLUpdateNotify.UpdateNavigationWindow(ll, ur, ll_v , ur_v : TPoint ; aProc: TVclNavigationImage);
 begin
 with Create(ll, ur, ll_v , ur_v, aProc) do
     begin
     Notify;
     end;
end;

在 Onexecute 函数中有

procedure TForm1.IdTCPServerExecute(AContext: TIdContext);
begin
    ....
    TVCLUpdateNotify.UpdateNavigationWindow(....)
    ....
 end;

根据 MA​​DSHI 调试器，serveronexecute() 中的这行代码会造成内存泄漏。我的班级里没有免费的功能。如何使该代码内存泄漏免费？

Answer 1

确保您使用的是最新版本的 Indy 10。在旧版本中，TIdNotify确实存在内存泄漏，但在 10 个月前已修复。