
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Memória foglaltság kijelző komponens

Példaprogram letöltése

8625 bájt

Múlt heti cikkünkben készítettünk egy egyedi megjelenítésű Progressar-t. Most ezt módosítottuk egy kicsit úgy, hogy a szabad fizikai memória foglaltságát jelezze ki.

A mellékelt példaprogram megnyitása előtt a MemoryBar.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A komponens folyamatosan figyeli a memória foglaltságát, és azt grafikusan megjeleníti. Az Interval property-ben megadhatjuk, hogy a frissítés milyen időközönként történjen. A ShowText logikai értékkel ki/be kapcsolhatjuk a százalékérték szöveges megjelenítését.

Ahhoz, hogy folyamatosan tudjuk jelezni a memória foglaltságát, szükségünk van egy TTimer komponensre. Ennek OnTimer eseményéhez hozzárendeljük a DoTimer eljárást. Ebből a metódusból meghívjuk a RefreshMemoryLoad eljárást, amiben lekérdezzük a memória foglaltságát:

procedure TMemoryBar.RefreshMemoryLoad;
var 
  memstat:TMemoryStatus;
begin
  memstat.dwLength:=SizeOf(memstat);
  GlobalMemoryStatus(memstat);
  FMemoryLoad:=memstat.dwMemoryLoad;
  FMemoryLoadStr:=IntToStr(FMemoryLoad)+' %';
  Invalidate;
end;

A memória foglaltságát a GlobalMemoryStatus függvénnyel kérdezhetjük le, amely egy TMemoryStatus rekordban adja vissza az eredményt. Ennek dwLength mezőjében meg kell adni a rekord méretét. A fizikai memória foglaltságát a dwMemoryLoad mezőben kapjuk meg. Ezt az értéket átadjuk az MemoryLoad property-nek, és az MemoryLoadStr property-nek, hozzáadva egy % jelet is.

A komponens kirajzolását a Paint metódusban végezzük el. A UsedColor és ShadowColor property-k a foglalt, míg az UnusedColor és UnusedShadowColor a szabad memóriaterület kijelzésére használt színeket adják.

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3333	Windows	Net Shell parancsok	1. rész
3367	Windows	Net Shell parancsok	2. rész
3396	Windows	Net Shell parancsok	3. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 289. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!