1.
Dasar Teori
Dynamic Link Library (File Dll) adalah file yang mengandung kode-fungsi yang dapat dipanggil dari kode-executable (.exe) atau bisa juga di panggil dari file Dll yang lain. Paling simple kalo disebut file library windows karena umumnya hanya ada pada Sistem Operasi Windows, File Dll merupakan kode yang sudah dikompilasi dan dapat digunakan oleh program lain bias juga di gunakan oleh beberapa program. Jika kita meletakan fungsi ke dalam dll, berarti fungsi tersebut dapat diakses oleh semua program pada saat yang bersamaan.
2.
Praktikum
a. Buka
Delphi File -> New -> Other -> DLL Wizard -> OK
b. 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;
c. Simpan
Lalu Build Projek.
Setelah Proses
ini dilakukan maka File DLL sudah terbentuk didalam Folder Projek
Langkah
untuk Memanggil File DLL
a. Buka
Menu File -> New -> Aplication
b. Tambahkan
Beberapa Komponen sehingga menjadi seperti gambar 8.1 dibawah ini
Gambar 8.1 Menggunakan File DLL
c. Letakan
Coding berikut sebagai variabel global
var
Form1:
TForm1;
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: real): real;
stdcall; external 'dll_projek.dll';
function kurang(_a, _b: integer):
integer; stdcall; external 'dll_projek.dll';
implementation
d. Tambahkan
koding pada masing – masing button Onclik dibawah ini :
procedure
TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(kali(StrToInt(Edit1.Text),StrToInt(Edit2.Text))));
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(FloatToStr(bagi(StrToInt(Edit1.Text),StrToInt(Edit2.Text))));
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
ShowMessage(IntToStr(tambah(StrToInt(Edit1.Text),StrToInt(Edit2.Text))));
end;
procedure
TForm1.Button4Click(Sender: TObject);
begin
ShowMessage(IntToStr(kurang(StrToInt(Edit1.Text),StrToInt(Edit2.Text))));
end;
e. Simpan
terlebih dahulu Projek anda didalam Folder File DLL yang telah dibuat seperti
pada gambar 8.2. a dan 8.2. b
Gambar 8.2.a
Program File DLL
|
|
3.
Rangkuman
Dynamic Link Library (File Dll) adalah file yang mengandung kode-fungsi yang dapat dipanggil dari kode-executable (.exe) atau bisa juga di panggil dari file Dll yang lain. File Dll merupakan kode yang sudah dikompilasi dan dapat digunakan oleh program lain bisa juga di gunakan oleh beberapa program.
|
Buatlah
program untuk mencari luas bagun datar (paling tidak ada 5 bangun datar)
dengan menggunakan DLL. dimana hasilnya ditampilkan menggunakan label text.
|
Tidak ada komentar:
Posting Komentar
Silahkan Meninggalkan Pesan