Senin, 06 Juni 2011

Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7


Selamat pagi menjelang siang , disni Bayu Idham Fathurachman mengudara dengan ditemani secangkir mocachino good day dan djarum super di tangan.Dan seperti judul di atas tutorial kali ini akan membahas mengenai cara menggunakan registry pada delphi 7.Spesifiknya , cara menuliskan string dan membacanya yang tersimpan pada registry.Okey , sebelum lanjut mungkin ada baiknya kita tau apa itu registry.Dalam pemahaman IMSO (In My Sotoy Opinion :D ) , registry merupakan databasenya Sistem Operasi , dalam hal ini windows.Ibarat kata , registry adalah vault untuk menyimpan informasi yang di tulis oleh SO.Biasanya berisi konfigurasi mengenai sebuah software.Misalnya expired date pada trial software.Ya begitu lah , lebih jelas dan afdolnya cari di wiki aja deh.

Nah kali ini , saya akan membahas mengenai cara menyimpan string pada registry.Untuk apa kita belajar registry !?Pertanyaan yang bagus (yang nanya itu kan saya -,-").Bayangkan ketika kita membuat suatu program , lalu kita merubah konfigurasi program tersebut misalnya jenis font yang semula Arial ingin kita ubah menjadi Comic Sans pada saat run time.Konfigurasi tersebut akan hilang bila program di terminate.Lalu bagaimana caranya supaya konfigurasi tersebut tidak hilang !? Pertanyaan yang bagus (yang nanya saya lagi kan -_-") , itulah gunanya kita belajar registry :D


Flownya seperti ini.Kita akan membuat program yang berfungsi untuk menuliskan string pada registry.Lalu nantinya string tersebut di baca lalu di terapkan pada komponen label.Belibet yak !? Ikutin aja deh tutorialnya.
Buka delphi anda , dan pada form1 tambahkan 2 komponen button , lalu 1 komponen label dan 1 komponen edit.Lihat deh penampakan gambar di bawah


















Okey , its time for koding.Jangan lupa , tambahkan registry pada klausa uses.Kita akan membuat 1 buah prosedure untuk menulis registry dan 1 buah function untuk membaca registry.Udah tau kan perbedaan function dan procedure itu apa !?For now , just type the pascal object script below :




function bacaReg (regKey,fieldTeks : String) : string;
Var
  Reg : TRegistry;
begin
//Membuat object Registry
Reg := TRegistry.Create;
with Reg do
 begin
  //Mengeset tujuan registry sesuai yang kita inginkan
  RootKey:=HKEY_LOCAL_MACHINE;
  //Mengecek , apakah kita bisa membuka regkey kita , bila regkey tidak di temukan , kita akan membuatnya
  if OpenKey(regKey,true) then
   begin
    //Jika fieldTeks tersedia
    if ValueExists(fieldTeks) then
      //Membaca nila dari fieldTeks
       result := ReadString(fieldTeks)
    else
      ShowMessage(fieldTeks+' Tidak tersedia pada'+regKey);
   end
   else
   //Jika error terjadi ketika kita menulis pada registry
   ShowMessage('Error membuka/membuat : '+regKey);
   CloseKey;
 end;
end;

Okey , itu fungsi untuk membaca pada registry.Selanjutnya kita akan membuat prosedure untuk menulisnya:


Procedure tulisReg(keyReg,fieldTeks,nilaiTeks : String);
Var
  Reg : TRegistry;
begin
  //Buat objek registry lagi
  Reg := TRegistry.Create;
  with Reg do
  begin
  //Mengeset tujuan registry sesuai yang kita inginkan , lagi
  RootKey:=HKEY_LOCAL_MACHINE;
  //Mengecek , apakah kita bisa membuka regkey kita , bila regkey tidak di temukan , kita akan membuatnya , lagi
  if OpenKey(keyReg,true) then
 //Gak perlu ngecek field lagi , karena kita akan membuatnya dengan memasukan nilaiTeks
    Writestring(fieldTeks,nilaiTeks)
  else
   //Jika error terjadi ketika kita menulis pada registry , lagi
   ShowMessage('Error membuka/membuat :'+keyReg);
   CloseKey;
 end;
end;


Double-klik button tulis lalu ketikan kode berikut.

procedure TForm1.Button1Click(Sender: TObject);
begin
  tulisReg('SOFTWARE\programSaya','fieldTeksSaya',Edit1.Text);
end;

Lalu double-klik button baca dan ketikan (lagi) kode berikut.

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Caption := bacaReg('SOFTWARE\programSaya','fieldTeksSaya');
end;


Jalankan program anda , lalu ketikan sesuatu pada edit1.Setalah itu tekan button tulis.Selanjutnya tekan button baca.Maka label1.caption akan sesuai dengan apa yang anda tulis.Gak aneh ya !?Coba keluar dari program lalu jalankan lagi.Sekarang , coba tekan langsung button baca , label1.caption  berubah kan sesuai dengan apa yang anda tulis sebelum program di terminate !? Sampai disini , anda ngerti kan cara menggunakan registry walaupun masih sangat sederhana !? Untuk source code programnya , silahkan download DISINI.
Sekian tutorial kali ini , semoga bermanfaat.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

Simak Juga Tutorial Lainnya:

3 komentar:

Amateur Guide mengatakan...

hi mas, nitip y?... blogku sepi coz nama’e g nyangkut sm delphi, aku kurang pandai ksh pengantar. http://amateur-guide.blogspot.com Thx b4.

selamat belanja.com mengatakan...

makasih tutornya ..
sya pelajari :D

Toby Marshal mengatakan...

mntap gan link sourcenya mati bisa di update linknya gan?

Posting Komentar