Save Setting Koneksi ke File INI

Zeos Connection Settings

Teman-teman Delphier kerap bertanya, “Bagaimana mengatur aplikasi Delphi-Zeos-MySQL agar dapat berjalan di pc lain tanpa perlu menginstall Delphi di sana?”

Di posting tentang koneksi Delphi-Zeos-MySQL, Anda dapat melihat file-file depencies (pendukung) aplikasi baik program Anda maupun MySQL.

Kini, giliran setting koneksi yang akan kita bahas. Mulai dari mengetes koneksi, menyimpannya ke file INI/CFG, sampai membacanya kembali.

MENGETES KONEKSI

Pertama, kita mengetes koneksi (Zeos) dengan cara seperti berikut:

if ZConnection1.Connected then

ZConnection1.Disconnect;

ZConnection1.HostName := 'localhost';

ZConnection1.User     := 'root';

ZConnection1.Password := 'YOUR_PASSWORD';

ZConnection1.Port     := 3306;

ZConnection1.Database := 'simpeg';

try

ZConnection1.Connect;

ShowMessage('Terkoneksi.');

except

ShowMessage('Gagal koneksi.');

end;

Bila parameter koneksi benar, kita akan mendapatkan pesan seperti berikut:

Save Setting Koneksi ke File INI

MENYIMPAN SETTING KONEKSI KE FILE

Nah, kini kita buat sebuah form baru dengan inputan parameter koneksi:

Desain Form Parameter Koneksi

Di atas, Edit1 (Server Name/IP) telah memiliki nilai default localhost, Edit2 telah bernilai default port MySQL 3306, dan Edit3 (Username) bernilai defaultroot.

Kini kita buat kode untuk menyimpan setting koneksi ke file konfigurasi. Nama file dan ekstensinya terserah Anda. Saya akan menggunakan nama file yang sama dengan nama projek (nama file EXE), menggunakan ekstensi .SAV, sehingga bila nama projek adalah Project1 maka nama file EXE adalah Project1.exe dan nama file konfigurasi koneksi bernama Project1.sav.

Saatnya koding :)

Format file yang akan kita pakai bukan file INI yang beformat:

[SETTINGS]

server=localhost

port=3306

............. dst.

Melainkan file berformat flat, yaitu pasangan nama:nilai, dengan tanda titik ganda (:) sebagai pemisah.

#INI ADALAH KOMENTAR

server=localhost

port=3306

............. dst.

%INI KOMENTAR

//INI JUGA KOMENTAR

Klik ganda tombol Save Setting, ketikkan kode seperti berikut:

procedure TForm1.Button2Click(Sender: TObject);

var

NamaFile: String;

List: TStringList;

begin

//File berada dalam satu folder dengan aplikasi

NamaFile := Application.ExeName;

//ganti nama file dengan ekstensi .sav

NamaFile := ChangeFileExt(NamaFile, '.sav');

//Buat List untuk menampung setting koneksi

List := TStringList.Create;

try

//tentukan tanda ":" sebagai pemisah nama dan nilai

List.NameValueSeparator := ':';

//tampung parameter

List.Add('hostname:' + Edit1.Text);

List.Add('port:'     + Edit2.Text);

List.Add('user:'     + Edit3.Text);

List.Add('password:' + Edit4.Text);

List.Add('database:' + Edit5.Text);

//Save ke file

try

List.SaveToFile(NamaFile);

ShowMessage('Setting koneksi tersimpan ke file :'#13 + NamaFile);

except

ShowMessage('Gagal menyimpan seeting koneksi.');

end;

finally

//Jangan lupa membebaskan memory

List.Free;

end;

end;

Kini yang jadi soal, bagaimana jika Edit2 (Port) tidak diisi dengan angka? Kita tambahkan kode untuk mencegahnya. Klik pada Edit2 (Port), dari Object Inspector klik tab Events dan klik ganda pada event OnKeyPress. Masukkan kode:

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['0'..'9',#8, Chr(VK_DELETE)]) then

Key := #0;

end;

Klik lagi pada Edit2 (Port) dan property Max Length disi dengan nilai 4, sehingga panjang nilai yang dapat diinput dibatasi sampai 4 digit angka. Ini berguna mencegah integer overflow jika nilai diisi terlalu besar.

Sampai di sini, silahkan jalankan program Anda dan coba Save Settingnya. Bila berhasil, pesan sukses seperti berikut akan ditampilkan dan sebuah file Project1.sav akan dibuat dalam folder yang sama dengan folder program.

Setting koneksi telah disimpan

MEMBACA KONEKSI TERSIMPAN

Saatnya kuis. Eh, saatnya membaca kembali setting koneksi tadi :)

Langsung saja, klik ganda tombol Load Setting dan masukkan kode:

procedure TForm1.Button3Click(Sender: TObject);

var

NamaFile: String;

List: TStringList;

begin

//File berada dalam satu folder dengan aplikasi

NamaFile := Application.ExeName;

//ganti nama file dengan ekstensi .sav

NamaFile := ChangeFileExt(NamaFile, '.sav');

//Buat List untuk menampung setting koneksi

List := TStringList.Create;

try

//tentukan tanda ":" sebagai pemisah nama dan nilai

List.NameValueSeparator := ':';

//Load setting dari ke file

try

List.LoadFromFile(NamaFile);

//tampung parameter

Edit1.Text := List.Values['hostname'];

Edit2.Text := List.Values['port']    ;

Edit3.Text := List.Values['user']    ;

Edit4.Text := List.Values['password'];

Edit5.Text := List.Values['database'];

ShowMessage('Setting koneksi telah di-load dari file :'#13 + NamaFile);

except

ShowMessage('Gagal membaca setting koneksi.');

end;

finally

//Jangan lupa membebaskan memory

List.Free;

end;

Selanjutnya untuk tombol Login:

procedure TForm1.Button1Click(Sender: TObject);

begin

if ZConnection1.Connected then

ZConnection1.Disconnect;

ZConnection1.HostName := Edit1.text;

ZConnection1.Port     := StrToInt(Edit2.Text);

ZConnection1.User     := edit3.Text;

ZConnection1.Password := Edit4.Text;

ZConnection1.Database := Edit5.text;

try

ZConnection1.Connect;

ShowMessage('Terkoneksi.');

except

ShowMessage('Gagal koneksi.');

end;

end;