Cara Membaca File *.ini Delphi 7

Cara Membaca File (dot) ini Delphi - Dalam bahasa pemrograman Delphi ada salah satu Cara Membaca File ini dengan mudah. Dalam file ini anda dapat menyimpan alamat IP server, Username, Password dan nama dari database. Dengan begitu jika suatu saat database mengalami kerusakan dan harus membuat Database MySQL yang baru, maka tidak perlu lagi menuliskan kode baru untuk melakukan koneksi tersebut kedalam database.

Cara Membaca File *.ini Delphi 7

1. Buka Program Delphi 7,
2. Klik dan letakkan salah satu komponen penghubung database yang anda pakai, seperti Zeos, ODBC atau yang lainnya dan sebuah Label di Form.
3. Tuliskan kode dibawah ini di Notepad dan simpan dengan nama koneksi.ini di folder dimana anda menyimpan Project yang sedang dibuat
[Database]
Hostname = alamat ip server
User = nama username database
Password = password database
Database = nama database
Protokol = jenis koneksi yang dipakai (MySQL)
4. Kemudian di Form yang telah anda tambahkan komponen koneksi database tuliskan kode dibawah ini.
procedure TForm1.FormCreate(Sender: TObject);
var koneksi : TIniFile;
begin
koneksi := TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'koneksi.ini'); //tipe single database
if (connection.Connected) then
connection.Disconnect;
connection.HostName := koneksi.ReadString('Database','Hostname','');
connection.User     := koneksi.ReadString('Database','User','');
connection.Password := koneksi.ReadString('Database','Password','');
connection.Port     := 3306;
connection.Database := koneksi.ReadString('Database','Database','');
connection.Protocol := koneksi.ReadString('Database','Protokol','');
try
connection.Connect;
if (connection.Connected)  then
begin
Form1.sLabel1.Caption := 'Koneksi Database Sukses';
        end;
except
Form1.sLabel1.Caption := 'Koneksi Database Gagal';    
end;
end;
5. Selesai, simpan dan coba jalankan.

Demikian Cara Membaca File ini Delphi 7, sebagai salah satu alternatif untuk menghubungkan delphi dengan database MySQL.