Memasukkan Isi File *.res ke dalam Exe File dan Cara Memanggilnya Menggunakan Delphi

بسم الله الرحمن الرحيم
 Alhamdulillah,
Dalam kesempatan ini ana berbagi ilmu sederhana tentang file *.res  melanjutkan posting terdahulu banuaanam.blogspot.com/2012/01/membuat-file-resource-res.html. Namun, dalam kesempatan ini, ana ingin berbagi cara memasukkan isi dari file *.res ke dalam exe file dana cara memanggilnya dari file exe file, tentunya menggunakan pemrograman delphi.
Langkah-langkah :
1. Buat project baru, beri nama dengan appRes.dpr
2. Desain form seperti gambar berikut :
3. Masukkan file res yang telah dibuat satu folder dengan project yang kita buat
4. Untuk memasukkan isi file *.res ke dalam exe file cukup tambahkan nama file *.res yang kita buat ke dalam code editor di bawah implementation, tuliskan {$R CobaRes.res}, jangan lupa tambahkan uses JPEG (untuk gambar tipe JPEG) dan MMSystem (untuk memainkan file WAV tanpa komponen media player)

5. Kemudian compile aplikasi, tekan Ctrl+F9. Jika tidak ada error, maka isi file CobaRes.res sukses dimasukkan ke dalam exe file aplikasi yang kita buat
Selanjutnya, cara memanggil isi dari file exe (WAV, JPEG, BMP dan Cursor) adalah sebagai berikut :

1. Untuk menampilkan gambar JPEG dari exe file, tuliskan coding berikut pada event OnClick tombol ambil JPEG
procedure TFormUtama.TomJPEGClick(Sender: TObject);
var
  resStream: TResourceStream;
  fileStream: TFileStream;
  nmFile : string;

begin
//
nmFile := ExtractFilePath(Application.ExeName)+'TULISAN.jpg';
if not FileExists(nmFile) then
  begin
    resStream := TResourceStream.Create(hInstance, 'TULISAN', 'GAMBARJPEG') ;
    try
      fileStream := TFileStream.Create(nmFile, fmCreate) ;
        try
          fileStream.CopyFrom(resStream, 0) ;
        finally
          fileStream.Free;
        end;
    finally
      resStream.Free;
    end;
  end;
ImageJPEG.Picture.LoadFromFile(nmFile);

end;
2. Tulisan yang berwarna merah adalah id dari file resource (*.rc) yang sebelum dijadikan file *.res dan tulisan biru adalah tipe dari file resource seperti contoh file resource (*.rc) berikut:
 3. Untuk menampilkan gambar BMP dari exe file, tuliskan coding berikut pada event OnClick tombol ambil BMP
procedure TFormUtama.TomBMPClick(Sender: TObject);
begin
//
try
  ImageBMP.Picture.Bitmap.LoadFromResourceName(HInstance,'KALIGRAFI');
except
  begin
    MessageBox(0,PChar('Gagal memuat BMP dari resource'),PChar('Kesalahan'),MB_OK+MB_TASKMODAL+MB_ICONERROR);
  end;
end;

end;
4. Untuk mengganti kursor, tulis coding berikut pada tombol Ganti Kursor event OnClick
procedure TFormUtama.TomKursorClick(Sender: TObject);
const
  kursorSaya = 1;
begin
//
Screen.Cursors[kursorSaya] := LoadCursor(HInstance,'CURSORTANGAN');
Screen.Cursor := kursorSaya;

end;
5. Kemudian untuk memainkan file WAV, pada tombol Mainkan WAV event OnClick, tulis coding berikut
procedure TFormUtama.TomWAVClick(Sender: TObject);
var

   hFind, hRes: THandle;
   suara: PChar;
begin
//
hFind := FindResource(HInstance, 'BISSMILLAH', 'SUARA') ;
if hFind <> 0 then
  begin
    hRes:=LoadResource(HInstance, hFind) ;
    if hRes <> 0 then
      begin
        suara:=LockResource(hRes) ;
        if Assigned(suara) then SndPlaySound(suara, snd_ASync or snd_Memory) ;
          UnlockResource(hRes) ;
      end;
    FreeResource(hFind) ;
  end;

end;
6. Jalankan aplikasi, semoga sukses, aamiin.
Berikut preview dari aplikasi yang sukses,
























Terima kasih, mohon maaf jika ada salah dan khilaf, mohon kritik dan saran dari sahabata akhi wa ukhti yaa, silakan unduh contoh aplikasi dan source code pada link berikut :
Wassalaamu 'alaikum Wa Rahmatullaahi Wa Barakaatuh

Comments

  1. blog ini bagus gan , tapi saya belum ngerti manggil file res nya , tapi kalo compile nya udah success , bisa di perjelas lagi gak gan ?? misal kita mau manggil google chrome ,

    ReplyDelete
  2. :) makasih bang sangat bermanfaat

    ReplyDelete

Post a Comment

Selamat berkunjung di blog saya, terima kasih.

Popular posts from this blog

Membuat File Resource (*.res)