Menyimpan dan Load Gambar Dari File DLL Menggunakan Delphi
بسم الله ارحمن ارحيم
Asslamu 'Alaikum Warohmatullahi Wabarakatuh
Alhamdulillah, Al-Fakir mau berbagi lagi dengan akhi wa uhkti semua yang baca dirahmati Allah Subhanahu Wa Ta'ala. Pada kesempatan ini, ana mau berbagi tentang cara menyimpan dam me-load gambar dari file DLL.
DLL atau Dynamic Link Library adalah salah satu file
yang sering digunakan untuk menyimpan sumber data-data baik berupa gambar,
icon, audio, cursor dan lain-lain.
Pada pemrograman delphi, telah disediakan fasilitas untuk
membuat file DLL, yaitu DLL project. Ada 2 langkah yang akan dibahasa di sini
yaitu membuat DLL dan aplikasi untuk meload DLL.
Langkah pertama, ana akan jelaskan cara menyimpan gambar ke
dalam
DLL menggunakan project DLL delphi, dalam implementasi ini
menggunakan Borland Delphi 7.
1. buat folder projectDLL
2. Simpan gambar ke dalam file resource (*.res) beri nama sumber.res
atau terserah antum simpan dalam folder projectDLL, untuk membuat file resource
lihat posting sebelumnya tentang File Resource
3. Buka IDE Delphi antum, pilih menu FILE->Other.., pada
kotak dialog New Items pilih Item DLL Wizard, maka akan tampil Code Editor pada
IDE
4. Tambahkan nama file resource anda di atas begin
uses
SysUtils,
Classes;
{$R *.res}
{$R sumber.res}
begin
end.
5. Simpan Project dll satu folder dengan file resource
dengan nama dllSumber
6. Kemudian compile project DLL dengan menekan tombol
Ctrl+F9 atau pilih menu Project pilih Compile
7. Maka file DLL sudah dibuat, jika belum ada maka cek
langkah-langkahnya apakah sudah benar atau tidak
Selanjutnya ana jelaskan cara me-load gambar yang disimpan
ke dalam file DLL tadi
1. Buat project baru, File->New->Application
2. Simpan project dengan nama aplikasiResDLL
3. Tambahkan 1 buat komponen Image apada form, atur
properties Strech menjadi True
5. Kilk 2 kali pada tombol, antara Procedure dengan begin,
tambahkan konstanta const resGambar = 'BITMAP';
6. Tambahkan juga variabel h : HTHandle;
7. Kemudian ketika koding untuk me-load DLL berikut :
h :=
LoadLibrary(PChar(ExtractFilePath(Application.ExeName)+'dllSumber.DLL'));
try
if h <> 0 then
begin
try
Image1.Picture.Bitmap.LoadFromResourceName(h,resGambar);
except
Image1.Free;
end;
end
else
begin
ShowMessage('Gagal Memuat DLL!');
end;
finally
FreeLibrary(h);
end;
8. Tulisan tebal
adalah nama file DLL yang telah dibuat tadi
9. Run/Jalankan
aplikasiResDll, klik tombol load, jika gambar tampil, maka aplikasi sukses
unit udllAplikasi;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, XPMan,
JPEG;
type
TForm1 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R
*.dfm}
procedure
TForm1.BitBtn1Click(Sender: TObject);
const
resGambar = 'BITMAP';
var
h : THandle;
begin
h :=
LoadLibrary(PChar(ExtractFilePath(Application.ExeName)+'dllSumber.DLL'));
try
if h <> 0 then
begin
try
Image1.Picture.Bitmap.LoadFromResourceName(h,resGambar);
except
Image1.Free;
end;
end
else
begin
ShowMessage('Gagal Memuat DLL!');
end;
finally
FreeLibrary(h);
end;
end;
end.
Contoh Aplikasinya dapat antum unduh di bawah ini.
https://sites.google.com/site/banuaanam/file-dibagi/projectDLL.rar?attredirects=0&d=1
https://sites.google.com/site/banuaanam/file-dibagi/projectDLL.rar?attredirects=0&d=1
Syukron ,Terima kasih, mohon kritik dan saran dari antum
pengunjung yaa,
Salah khilaf ana mohon maaf,
Wassalamu 'Alaikum Warohmatullahi Wabarakatuh
mohon share untuk coding menggunakan wsqlibrary.dll untuk membaca sidik jari...tp data gambar sidik jari tersimpan dalam database
ReplyDelete