Wednesday, 25 January 2017T1/25/2017 11:34:00 pm

CARA MEMBUAT CONFIG INI FILES DI DELPHI

Salam blogger…..pada postingan artikel kali ini saya akan membahas tentang bagaimana cara mudah membuat configurasi file atau yang lebih di kenal IniFile di Delphi. IniFile biasanya digunakan untuk menyimpan properties dari komponen yang diatur oleh user pada saat membuat aplikasi. Singkatnya file *.ini digunakan untuk menyimpan settingan konfigurasi program / aplikasi tanpa harus dengan database. Jadi pada saat kita merubah settingan dari suatu aplikasi, maka settingan konfigurasi terakhir akan tersimpan dan akan di panggil kembali pada saat program dijalankan. nah disini saya akan memberikan contoh cara pembuatan file  *.ini tersebut dengan menggunakan Delphi. Adapun kegunaan dari file ini sendiri dapat digunakan untuk menyimpan konfigurasi aplikasi, setting printer, settingan bahasa dan sebagainya.
Adapun langkah – langkah pembuatannya, pertama – tama buat sebuah project baru di Delphi, lalu selanjutnya silahkan sobat design form nya seperti pada gambar dibawah ini.
Adapun komponen yang digunakan pada form di atas adalah sebagi berikut :
 - Label
 - Edit text
 - Speedbutton
 - Button
 - Groupbox
 - Opendialog
 - Openpicturedialog
Jika sudah selanjutnya pada uses tambahkan IniFiles, lalu kita akan menambahkan coding program pada tombol simpan dan button nya, untuk mempermudah disini saya akan memberikan coding program lengkap nya, silahkan masukan coding program nya di form yang sudah di buat sebelumnya. Coding lengkapnya dibawah ini :
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtDlgs, IniFiles;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    OpenDialog1: TOpenDialog;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
  Options:TiniFile;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Options := TIniFile.Create('C:\Options.ini');
Edit1.Text :=
Options.ReadString('Aplikasi','Title','');
Edit2.Text :=
Options.ReadString('Aplikasi','Versi','');
Edit3.Text :=
Options.ReadString('Aplikasi','Author','');
Edit4.Text :=
Options.ReadString('Perusahaan','Nama','Options File Tidak Ada!');
Edit5.Text :=
Options.ReadString('Perusahaan','Alamat','');
Edit6.Text :=
Options.ReadString('Perusahaan','Kota','');
Edit7.Text :=
Options.ReadString('Perusahaan','Telepon','');
Edit8.Text :=
Options.ReadString('Perusahaan','Fax','');
Edit9.Text := Options.ReadString('Perusahaan','Email','');
Edit10.Text :=
Options.ReadString('Database','Server','');
Edit11.Text :=
Options.ReadString('Images','Background','');
Options.Free;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
If OpenDialog1.Execute then
Edit10.Text := OpenDialog1.FileName;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Options := TIniFile.Create('C:\Options.ini');
Options.WriteString('Aplikasi','Title',Edit1.Text);
Options.WriteString('Aplikasi','Versi',Edit2.Text);
Options.WriteString('Aplikasi','Author','IRD');
Options.WriteString('Perusahaan','Nama',Edit4.Text);
Options.WriteString('Perusahaan','Alamat',Edit5.Text);
Options.WriteString('Perusahaan','Kota',Edit6.Text);
Options.WriteString('Perusahaan','Telepon',Edit7.Text);
Options.WriteString('Perusahaan','Fax',Edit8.Text);
Options.WriteString('Perusahaan','E-mail',Edit9.Text);
Options.WriteString('Database','Server',Edit10.Text);
Options.WriteString('Images','Background',Edit11.Text);
Options.Free;
Close;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then
Edit11.Text := OpenPictureDialog1.FileName;
end;
end.

Jika sudah coding program nya dimasukan, maka selanjutnya kita tinggal menjalankan program nya dengan cara menekan F9/RUN. lalu inputkan data konfigurasi nya lalu klik button simpan. Jika sudah disimpan maka file *.ini nya akan tersimpan di drive C:\ dengan nama options. Contoh file nya dapat dilihat pada gambar dibawah ini.
Demikian postingan  saya kali ini tentang bagaimana cara membuat Ini Files di Delphi, semoga dapat berguna dan bermanfaat buat sobat semua dan selamat mencoba. 
Previous
Next Post »
0 Komentar untuk "CARA MEMBUAT CONFIG INI FILES DI DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status