Cara Membuat File Dll

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} 

01	// Fungsi Tambah

02	function tambah(_a, _b: integer): integer; stdcall;

03

begin

04	Result := _a + _b;

05

end;

06	// Fungsi Kurang

07	function kurang(_a, _b: integer): integer; stdcall;

08

begin

09	Result := _a - _b;

10

end;

11	// Fungsi Kali

12	function kali(_a, _b: integer): integer; stdcall;

13

begin

14	Result := _a * _b;

15

end;

16	//Fungsi Bagi

17	function bagi(_a, _b: Real): Real; stdcall;

18

begin

19	Result := _a / _b;

20

end;

21

22

// Export

23

exports

24

tambah,

25

kurang,

26

kali,

27

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 

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

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

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

4	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

1	kurang(StrToInt(Edit1.Text),StrToInt(Edit2.Text));

2	kali(StrToInt(Edit1.Text),StrToInt(Edit2.Text));

3	bagi(StrToInt(Edit1.Text),StrToInt(Edit2.Text));

4	tambah(StrToInt(Edit1.Text),StrToInt(Edit2.Text));

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