Asmaul Husna

Asmaul Husna

Pesan

Kebahagian itu karena adanya cinta,maka jika tanpa cinta kebahagiaan akan sirna,jika kebahagian sirna akan tampaklah kegalauan hati, karena hati pengendali raga, maka jikalau sakit hati, sakitlah semua, oleh karenanya perolehlah cinta, kemanakah mencari cinta,tak perlulah mencarinya,karena cinta ada di manapun kita berada, bukanlah kiranya mencari,tetapi perkenankanlah mendekatinya, mendekat kepada penguasa cinta,pemilik alam semesta & tentulah sang Maha Agung yg bersifat tak seperti makhluk-Nya ...

Pages - Menu

Thursday, June 21, 2012

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.

Syukron ,Terima kasih, mohon kritik dan saran dari antum pengunjung yaa,
Salah khilaf ana mohon maaf,
Wassalamu 'Alaikum Warohmatullahi Wabarakatuh




1 komentar:

  • NineGrafh arif says:
    Tuesday, 03 February, 2015

    mohon share untuk coding menggunakan wsqlibrary.dll untuk membaca sidik jari...tp data gambar sidik jari tersimpan dalam database

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Labels