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

4. Tambahkan 1 buah tombol untuk proses me-load gambar

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

 10. Berikut Screen shoot dan koding lengkapnya

 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

Syukron ,Terima kasih, mohon kritik dan saran dari antum pengunjung yaa,

Salah khilaf ana mohon maaf,

Wassalamu 'Alaikum Warohmatullahi Wabarakatuh