Saturday, March 1, 2014
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 Tambah3. Simpan Lalu Build Projek anda. Setelah Proses ini dilakukan maka File DLL sudah terbentuk didalam Folder Projek anda :)
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;
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';4. Simpan terlebih dahulu Projek anda didalam Folder File DLL yang tadi dibuat
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';
5. Setelah itu, anda bisa memanggil fungsi yang ada didalam file DLL dengan cara
Untuk Lebih Jelasnya, Anda Dapat Mendownload Contoh Projek yang saya buat disini. Selamat mencoba semoga berhasil. :)
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));
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment