Delphi.cz

Monitorování stavu resources v aplikaci

Často píšu programy které běží dlouho a tak mne zajímá, zda se tam neděje něco co nechci. V takovém případě si do logu zapisuji stav programu (tedy kromě jiného samozřejmě). Sice existují knihovny, ale pro mé potřeby většinou stačí jednoduchá funkce.

demo resourcestatus

Následující funkce vrátí stav resources a dostupné paměti

function GetResourceStatus: string;
var
  iGdi, iUser: Integer;
  dwHandleCount: Cardinal;
  m: TMemoryStatusEx;

begin
  iGdi :=  GetGuiResources(GetCurrentProcess, GR_GDIOBJECTS);
  iUser :=  GetGuiResources(GetCurrentProcess, GR_USEROBJECTS);
  GetProcessHandleCount(GetCurrentProcess, dwHandleCount);
  FillChar(m, SizeOf(m), 0);
  m.dwLength := SizeOf( m );
  GlobalMemoryStatusEx(m);
  Result := Format('Handles: gdi: %d, user: %d, handle: %d, mem: %d', [iGdi, iUser, dwHandleCount, m.ullAvailVirtual]);
end;

Na test stačí aplikace s tlačítkem a obsluhou OnClick

procedure TForm12.Button1Click(Sender: TObject);
var
  oFile: TFileStream;
  sFile: string;
  oBmp: TBitmap;
  oChk: TCheckBox;
  p: Pointer;

  procedure CheckFile;
  begin
    if not FileExists(sFile) then
      TFile.WriteAllText(sFile, 'nothing');   // from System.IOUtils;
  end;

begin
  sFile := ChangeFileExt(ParamStr(0),'.txt');
  CheckFile;    // file for leak

  Memo1.Lines.Add(GetResourceStatus);
  oFile := TFileStream.Create(sFile, fmOpenRead or fmShareDenyNone) ;  // leak handle
  oBmp := TBitmap.Create(100, 100);  // leak gdi
  oChk:= TCheckBox.Create(nil);      // leak user
  oChk.Parent := Self;
  oChk.SetBounds(100, 0, 12, 12);
  GetMem(p, 1024*1024);              // leak memory
end;

Samozřejmě, pokud máte spuštěnou aplikaci tak můžete zobrazit podobný stav třeba přes správce úloh (jak je na obrázku nahoře), nebo použít specializované programy, které pro některé typy handle dají více informací (jako např. Task Manager DeLuxe nebo System Informer).

System informer

Datum: 2023-08-11 15:12:00 Tagy:

Praxe

Český portál Delphi

Monitorování stavu resources v aplikaci