Bermain-main dengan File DLL di Delphi

File Dinamic Link Library atau yang biasa dipanggil File DLL Banyak digunakan oleh para programmer untuk menyimpan sebuah settingan Program Sehingga untuk merubah program kita tidak perlu merubah keseluruhan program tapi hanya perlu memperbarui File DLL tersebut (Istilah lain untuk menyebutnya adalah Patch). Seperti namanya, File DLL merupakan sebuah Library. Dengan membuat konsep Library semacam ini dapat membantu menghemat Resource Aplikasi. 

Saat ini, hampir semua aplikasi yang ada menggunakan File DLL oleh karenanya Pada postingan ini saya ingin mengajak sobat Delphi untuk belajar membuat File DLL. Meskipun tidak pernah kita gunakan setidaknya kita paham konsep dan cara kerjanya.

Pada Contoh ini, Kita akan mencoba membuat file DLL yang berisi 4 buah fungsi dimana masing-masing fungsi akan melakukan tugasnya masing-masing yaitu melakukan Perkalian, Penambahan, Pembagian dan Pengurangan. Alhasil, User menginputkan data melalui Form Aplikasi tapi akan dikirim dan diproses melalui File DLL tersebut. Penggunaan File DLL ini juga dapat sobat gunakan untuk menyimpan settingan Trial/Batas Waktu dari Aplikasi yang sobat bangun.

Langkah - Langkah Membuat File DLL

1. Buka Delphi | File -> New -> Other -> DLL Wizard -> OK

2. Letakan Coding berikut dibawah {$R *.res}

// Fungsi Tambah
function tambah(_a, _b: integer): integer; stdcall;
begin
  Result := _a + _b;
end;
// Fungsi Kurang
function kurang(_a, _b: integer): integer; stdcall;
begin
  Result := _a - _b;
end;
// Fungsi Kali
function kali(_a, _b: integer): integer; stdcall;
begin
  Result := _a * _b;
end;
//Fungsi Bagi
function bagi(_a, _b: Real): Real; stdcall;
begin
  Result := _a / _b;
end;

// Export
exports
tambah,
kurang,
kali,
bagi;

3. Simpan Lalu Build Projek anda. Setelah Proses ini dilakukan maka File DLL sudah terbentuk didalam Folder Projek anda :)

Langkah - Langkah Memanggil File DLL 

1. Buka Menu File -> New -> Aplication

2. Tambahkan Beberapa Komponen sehingga menjadi seperti gambar dibawah ini

3. Letakan Coding berikut sebagai variabel global

 function tambah(_a, _b: integer): integer; stdcall; external 'dll_projek.dll';
 function kali(_a, _b: integer): integer; stdcall; external 'dll_projek.dll';
 function bagi(_a, _b: integer): integer; stdcall; external 'dll_projek.dll';
 function kurang(_a, _b: integer): integer; stdcall; external 'dll_projek.dll';

4. Simpan terlebih dahulu Projek anda didalam Folder File DLL yang tadi dibuat

5. Setelah itu, anda bisa memanggil fungsi yang ada didalam file DLL dengan cara

kurang(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
kali(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
bagi(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
tambah(StrToInt(Edit1.Text),StrToInt(Edit2.Text));  

Untuk Lebih Jelasnya, Anda Dapat Mendownload Contoh Projek yang saya buat disini. Selamat mencoba semoga berhasil. :)