Wednesday, July 01, 2020

Cara Membaca File *.ini Delphi 7

Tags

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

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
    1. [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.
    1. 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. 

Silahkan berkomentar dengan baik, asal tidak melanggar peraturan dibawah ini.
1. NO SPAM
2. NO SARA
3. NO LINK AKTIVE

Terimakasih
EmoticonEmoticon