Delphi Service Application TStringList LoadFromFile 内存泄漏

Question

那里有人可以解释为什么我的代码会导致 4KB 的内存泄漏，查看 TaskManager。 Delphi 2005，服务应用程序：

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  ExtCtrls;

type
  TgwDebugService_s = class(TService)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
    procedure ServiceExecute(Sender: TService);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  gwDebugService_s: TgwDebugService_s;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  gwDebugService_s.Controller(CtrlCode);
end;

function TgwDebugService_s.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TgwDebugService_s.ServiceExecute(Sender: TService);
begin
  // Service is Fired
  while not Terminated do
    ServiceThread.ProcessRequests(True);// wait for termination

end;

procedure TgwDebugService_s.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  // Service stops

end;

procedure TgwDebugService_s.Timer1Timer(Sender: TObject);
var
  sl : TStringList;
begin
  Timer1.Enabled := False;
  Sleep(1000);

  sl := TStringList.Create;
  try
    //if FileExists( 'c:\OnlyOnMyPc\test.txt' ) then
    sl.LoadFromFile( 'c:\OnlyOnMyPc\test.txt' );  // remove this line and will be find
    sl.Add( 'Test @ ' + FormatDateTime( 'dd.mm.yyyy hh:mm:ss.z', Now ) );
    sl.SaveToFile( 'c:\OnlyOnMyPc\test.txt' );
  finally
    sl.Clear;
    FreeAndNil( sl );
  end;

  Timer1.Enabled := True;

end;

end.

感谢您的时间和帮助。

干杯。 英镑

Answer 1

在寻找代码泄漏之前，您首先需要了解您是否真的有泄漏。任务管理器显示了 Windows 对您的应用程序的了解，它的数量需要在 Windows 如何管理内存的上下文中理解 - 然后您必须了解 Delphi 如何管理应用程序内的内存。

要了解如何阅读任务管理器编号，我建议您阅读出色的 Mark Russinovich 博客和视频：

http://channel9.msdn.com/Events/TechEd/NorthAmerica/2011/WCL405

他将向您解释 Windows 中内存分配的实际工作原理（Delphi 内存管理器然后对其进行子分配，但它仍然需要使用 Windows 内存分配调用），还将解释他的许多工具，这些工具可以让您更深入地了解Windows 应用程序的许多内部工作原理 - FastMM 无法告诉您。

还有一些称为“分析器”的工具可以跟踪内存分配和释放，并告诉您哪些代码分配了内存，然后又没有释放它。

否则你可能会追逐实际上不存在的泄漏......