Delphi for delphier

Memory – Informasi jumlah terkonsumsi

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Memory
   
Judul Informasi jumlah memory yang terkonsumsi dari program aplikasi
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi http://delphi.about.com/od/delphitips2007/qt/memory_usage.htm
   
Tujuan
Mengajarkan kepada programmer pemula tentang bagaimana cara mengetahui jumlah memory yang dikonsumsi dari program aplikasi yang dibuat.
   
Overview
Artikel ini sangat baik untuk mengontrol apakah management memory dari program aplikasi kita sudah tepat atau belum.
Dengan penggunaan memory atau resource yang sesuai dengan kebutuhan akan membuat program aplikasi menjadi lebih stabil. Tentu saja penggunaan memory yang sedikit tidak bisa langsung dikatakan management memorynya yang paling bagus. Semua harus dilihat dari sisi kebutuhan dan besar kecilnya dari program aplikasi.
Perkembangan jaman yang maju dengan pesatnya ini juga sedikit banyak akan merubah cara pandang kita akan management memory. Kenapa bisa demikian? karena sekarang harga memory card juga makin murah dan daya simpan buffernya juga besar – besar. Dengan kondisi secara tidak langsung kadang programmer tidak lagi berpikir tentang konsumsi akan memory yang akan dipakai. Termasuk saya sendiri kadang tidak peduli dengan memory, yang penting program aplikasi bisa familiar, elegan dan performance tetap tinggi.
Apabila program aplikasi anda nantinya akan didistribusikan atau dijual kepasaran, maka hal ini haruslah diperhatikan. Karena spek dari komputer diluar kadang masih banyak yang dalam kategori spek yang rendah.
Namun paling tidak dengan kita tahu akan konsumsi memory pada program aplikasi kita, maka hal ini bisa dijadikan paramter untuk tidak membuat program aplikasi yang berlebihan. Meskipun program aplikasi kompleks bukan berarti memory tidak bisa dijaga dengan baik.
   
  fungsi :
   
 
function CurrentMemoryUsage: Cardinal;
var
pmc: TProcessMemoryCounters;
begin
pmc.cb := SizeOf(pmc) ;
if GetProcessMemoryInfo(GetCurrentProcess, @pmc, SizeOf(pmc)) then
Result := pmc.WorkingSetSize
else
RaiseLastOSError;
end;
   
 
Dari fungsi diatas, fungsi GetProcessMemoryInfo dan type TProcessMemoryCountersdiperoleh dari library PsAPI. Sehingga anda harus menambahkan library ini kedalam uses.
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Panel1: TPanel;
Bevel1: TBevel;
Memo2: TMemo;
Memo3: TMemo;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
memory001.jpg
   
Langkah 4
Silahkan anda tambahkan library PsAPI ke uses.Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.
   
 
implementation
usesPsAPI;
{$R *.dfm}
   
Langkah 5
Kemudian anda lanjutkan dengan membuat fungsi CurrentMemoryUsage. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
   
 
function CurrentMemoryUsage: Cardinal;
var
pmc: TProcessMemoryCounters;
begin
pmc.cb := SizeOf(pmc) ;
if GetProcessMemoryInfo(GetCurrentProcess,@pmc, SizeOf(pmc)) then
Result := pmc.WorkingSetSize
else
RaiseLastOSError;
end;
   
Langkah 6
Silahkan anda klik 2x tombol Proses. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatFloat(‘Memory used: ,.# K’,
CurrentMemoryUsage / 1024)) ;
end;
   
Langkah 5
Silahkan anda compile. Tekan tombol Ctrl + F9.
   
 
Tunggu beberapa saat… ( Sedang di cek kode programnya )
 
Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.
   
Langkah 6
Silahkan anda tekan tombol Proses
   
 
memory002.jpg
   
 
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar
Semoga artikel ini bisa bermanfaat. Silahkan anda berikan informasi ini kepada teman – teman anda yang belum tahu.
Mari kita wujudkan kemajuan IT Indonesia bersama dengan teman – teman yang lain dengan Delphi sebagai media pemupuk kebersamaan.
   
   
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
   
Link terkait
   
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
Iklan

2 Komentar

  1. tutorialnya cukup banyak…
    tapi saran kalau bisa buat e-book aja biar bisa di download

    Komentar oleh taruna jaya — Maret 3, 2008 @ 8:45 pm

  2. mas kalau bisa tutorialnya dibuat e-book aja mas biar enak bacanya

    Komentar oleh taruna jaya — Maret 3, 2008 @ 9:22 pm


RSS feed for comments on this post.

Blog di WordPress.com.

%d blogger menyukai ini: