Menampilkan gambar GIF di Delphi #101

Terbang itu LALAT

Andry Fadrie K Januari 21, 2011

1 5,449 1 minute read

andrypein.net : Sekarang adalah bagian pemanasan dulu, ya tutor kecil lah tentang bagaimana memunculkan gambar .gif di komponen TImage pada delphi.

Beginilah tutornya :

Gif di delphi — aslinya mah gerak sumpah

Sample standar untuk aplikasi mentah kita hanya butuh 1 button, 1 Image, 1 openpicturedialog dengan definisi uses awal adalah sebagai berikut :

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
 Forms, Dialogs;

Kemudian beri event onclick pada button1 :

procedure TForm1.Button1Click(Sender: TObject);
begin
 if openpicturedialog1.Execute then
  image1.Picture.LoadFromFile(openpicturedialog1.FileName)
 else
  exit;
end;

Anda hanya bisa menampilkan gambar dengan ekstensi .bmp .ico .wmf .emf
maka dari itu untuk menampilkan gambar gif, maka donlod dulu compiler unit nya disini.

GifDCU Donlod

Kemudian extract file hasil donlodnya, file itu bernama GIFImage.dcu, kopikan GIFImage.dcu ke C:Program Files\Borland Delphi7\Lib paste disana.

Cara penggunaannya adalah tinggal tambahkan GIFImage pada bagian uses tadi.

Lalu coba jalankan lagi program tadi, dan anda bisa menampilkan gambar gif pada TImage, allrite dan pasti dijamin BERHASIL lah.