Install MySQL Server Directly From Delphi Application

Setiap developer yang membuat aplikasi client-server, pasti membutuhkan sebuah server database yang harus terinstall dan ready.

Bila pengguna aplikasi belum memiliki database server yang terinstall di komputernya, mau tak mau developer software mesti membuatkan sebuah petunjuk instalasi database server, mengatur konfigurasi, membuat database, user dan pengaturan lainnya agar siap digunakan dengan aplikasi yang diinstall.

Opsi lain yang bagus adalah membuat installer (setup) yang menginstallkan aplikasi ke komputer pengguna, sekalian memasangkan server database di sana.

Di sini, saya akan mengajak Anda mengikuti sebuah diskusi, bagaimana memasangkan MySQL server di komputer pengguna, langsung dari aplikasi Delphi yang menggunakan database MySQL. Kita akan menggunakan komponen instalasi MySQL, TMySQLInstaller yang sudah tersedia di web ini, membahas langkah-langkah penggunaannya dan melakukan ujicoba instalasi.

Pertama, Anda perlu komponen di atas. Download TMySQLInstaller versi terbaru dan ikuti petunjuk instalasinya.

Buatlah sebuah aplikasi baru. Kini tambahkan komponen TMySQLInstaller (di Component Palette, tab Cenadep.org) ke form.

Kita akan mempersiapkan dua buah folder untuk aplikasi kita:

• Folder Bin untuk menyimpan file-file biner MySQL yang akan diinstall
• Folder Data yang berisi data default MySQL
• Folder Share, berisi konfigurasi, error message dan data MySQL internal

Ketiga folder ini dibuat dalam folder aplikasi. Misalnya bila aplikasi kita berada di folder D:\AplikasiKeren, maka folder-folder tambahan yang dibuat yaitu D:\AplikasiKeren\Bin, D:\AplikasiKeren\Data dan D:\AplikasiKeren\Share. Dengan demikian, ke manapun aplikasi kita dicopy, ketiga folder ini akan mengikuti.

Sudah? Kini masuklah ke direktori instalasi MySQL di komputer Anda. copy file mysqld.exe dan libmysql.dll dari folder bin ke D:\AplikasiKeren\Bin. Masih di folder instalasi MySQL, masuk ke folder Data. Copy folder “mysql” ke folder D:\AplikasiKeren\Data. Untuk folder Share, langsung saja copy dari folder instalasi MySQl ke folder D:\AplikasiKeren

Hasil copy file-file biner dan folder data MySQL harus terlihat seperti berikut (Folder aplikasi bernama Test):

Bila sudah, kita kembali ke Form.

Tambahkan juga sebuah TButton ke form, dan ubah property Caption menjadi “Install”. Lihat gambar berikut sebagai perbandingan:

Kita akan mengisi event OnClick Button1 tersebut dengan perintah untuk menginstall MySQL di port 4433. Harap ingat, password root masih mengkuti password root pada MySQL yang saat ini telah terinstall di komputer Anda.

Klik ganda pada Button1, dan isi event OnClick dengan kode seperti berikut:

procedure TForm3.Button1Click(Sender: TObject);
begin
 MySQLInstaller1.MySQLBinaryDirectory := ExtractFileDir(Application.ExeName)+'\Bin';
 MySQLInstaller1.MySQLDataDirectory := ExtractFileDir(Application.ExeName)+'\Data';
 MySQLInstaller1.MySQLPort := 4433;
 MySQLInstaller1.MySQLServiceName := 'mysql_keren';
 MySQLInstaller1.MySQLDisplayName := 'MySQL Server Aplikasi Keren';
 { Cek apakah MySQL dengan ServiceName yang sama sudah ada }
 if MySQLInstaller1.MySQLServiceExists then
 begin
 ShowMessage('Service dengan nama yang sama sudah ada...');
 exit;
 end;
 { Cek apakah Service tersebut sudah jalan:}
 if MySQLInstaller1.MySQLServiceRunning then
 begin
 ShowMessage('Service dengan nama yang sama sudah ada dan sudah berjalan.');
 exit;
 end;
 { Install service }
 if MySQLInstaller1.InstallService then
 begin
 {Start Service}
 if MySQLInstaller1.StartService then
 begin
 ShowMessage('MySQL sudah diinstall di port 4433.');
 end
 else
 begin
 ShowMessage('Gagal menjalankan service MySQL');
 end;
 end
 else
 begin
 ShowMessage('Gagal menginstall service MYSQL.');
 end;
end;

Dari kode di atas, kita lihat bahwa folder Data dan folder Bin digunakan sebagai folder utama MySQL. Kita juga dapat memeriksa apakah MySQL sudah terinstall dengan nama service tertentu, dana apakah service itu sedang berjalan atau tidak.

Oke, kita lanjut.

Tambahkan lagi sebuah Button ke form dan beri Caption “Uninstall” untuk mematikan dan menghapus  instalasi MySQL service. Klik ganda button ini dan beri kode seperti berikut:

procedure TForm3.Button2Click(Sender: TObject);
begin
 MySQLInstaller1.MySQLServiceName := 'mysql_keren';
 if MySQLInstaller1.MySQLServiceRunning then
 MySQLInstaller1.StopService;
 if MySQLInstaller1.MySQLServiceExists then
 MySQLInstaller1.UninstallService;
end;

Kode ini akan mematikan service MySQL dengan nama service ‘mysql_keren’ (jika sedang berjalan) dan menghapusnya.

Kini kita coba jalankan aplikasi kita. Sebelum mulai, kita lihat dulu service MySQL yang asli yang telah terinstall di komputer kita. Jalankan Windows Service Manager dari menu Start>Run (tekan tombol kombinasi Windows+R), ketik services.msc dan klik OK.

Cari instalasi MySQL di Windows Service Manager:

Di situ sudah ada MySQL yang terinstall dengan display name ‘mysql5′ dan sedang berjalan (ini bila sudah MySQL yang terinstall di komputer Anda sebelumnya. Kalau di saya, ada…). Kita akan menginstall service MySQL baru dengan nama ‘mysql_keren’ di port 4433.

Kembali ke aplikasi, klik tombol Install. Tunggu sampai muncul pesan.

Sudah? Untuk memastikan, kita kembali ke Windows Service Manager dan refresh (F5) untuk melihat perubahan:

Sukses!

Mari jalankan MySQL client (saya gunakan HeidiSQL MySQL Client) dan coba melakukan koneksi ke MySQL server di port 4433:

Anda lihat? Di contoh gambar di atas, saya membuat sebuah database ‘eeee’ dengan sebuah tabel ‘ghghgh’.

Kini mari kita matikan lagi service tadi dan menghapusnya. Kembali ke aplikasi dan klik tombol Uninstall. Kita cek hasilnya di Windows Service Manager:

Di situ terlihat bahwa MySQL keren kita telah terhapus lagi.

Saya harap tulisan ini tidak sulit diikuti dan membawa manfaat untuk Anda. Selamat berkarya.

Download Contoh Aplikasi:

[like-gate] Anda dapat mendownload contoh aplikasi instalasi MySQL dengan Delphi di atas dan mengembangkannya sesuai kebutuhan. Dan terakhir, harap di-share.[/like-gate]

Related Topic

Tutorial Membuat Aplikasi UniGUI ISAPI Mode Pada Apache Dengan DelphiFitur LastInsertID (MySQL) Dan Returning (PostgreSQL) Pada Data Master-DetailCreating Web Application Using UniGUI, Zeos & MySQLCreating Web-Based Application Using UniGUI, With Ajax SupportVideo Tutorial Membuat Aplikasi Billing Dengan Delphi & Database Desktop

Incoming search terms:

• aplikasi client server delphi mysql
• coding membuat status bar login delphi
• aplikasi client server delphi
• tpicshow component for delphi xe2
• tedit inside dbgrid pada delphi 7
• program mysql server
• mysql client server delphi
• install mysql dari aplikasi delphi
• instaler aplikasi dhelpi menggunakan mysql
• file setup delphi mysql

Comments

comments

Powered by Facebook Comments