Arsip: Menentukan extention grafik

Tingkatan

Menengah

Kategori

Grafik

Sub Kategori

TImage

Judul

Menentukan extention grafik

Referensi

oleh Eko Indriyawan

Tujuan

Mengajarkan kepada para Delphier tentang bagaimana cara memvalidasi data gambar pada TImage apakah kosong atau tidak.

Overview

Apabila anda ingin membuat program anda stabil dan terhindar dari error ketika mengakses data gambar pada TImage, maka lebih anda melakukan proses validasi sebelum mengaksesnya.


Didalam artikel kali ini anda akan diajarkan tentang bagaimana cara melakukan proses validasi terhadap data gambar yang ada didalam object TImage.


Apabila anda ingin menyimpan data gambar kedalam database, maka tips kalli ini akan sangat bermanfaat dan membuat program aplikasi anda tersebut makin stabil dan mantab.


Untuk lebih jelasnya, silahkan anda baca artikel dibawah ini.

Petunjuk :

Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

Langkah 1

Buat program aplikasi baru.

Langkah 2

Tambahkan beberapa object kedalam Form

Image1: TImage;
Button1: TButton;
Edit1: TEdit;
Image2: TImage;
Button2: TButton;
Image3: TImage;
Button3: TButton;
Image4: TImage;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Image5: TImage;
Label5: TLabel;
Button5: TButton;
Edit5: TEdit;
Bevel1: TBevel;
Button6: TButton;

Langkah 3

Tambahkan gambar dengan format jpeg atau jpg kedalam object Image1.

Langkah 4

Tambahkan gambar dengan format bmp kedalam object Image2.

Langkah 5

Tambahkan gambar dengan format gif kedalam object Image3.

Langkah 6

Tambahkan gambar dengan format ico kedalam object Image4.

Langkah 7

Tambahkan gambar dengan format emf kedalam object Image5.

Langkah 8

Atur object-nya hingga didapatkan tampilan seperti berikut ini.



Langkah 6

Klik 2x tombol Ext Gambar 1 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

...

...

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text := GraphicExtension(TGraphicClass(Image1.Picture.Graphic.ClassType));

end;

...

... 

Langkah 7

Klik 2x tombol Ext Gambar 2 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

...

...

procedure TForm1.Button2Click(Sender: TObject);

begin

edit2.Text := GraphicExtension(TGraphicClass(Image2.Picture.Graphic.ClassType));

end;

...

...

Langkah 8

Klik 2x tombol Ext Gambar 3 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

...

...

procedure TForm1.Button3Click(Sender: TObject);

begin

edit3.Text := GraphicExtension(TGraphicClass(Image3.Picture.Graphic.ClassType));

end;

...

...

Langkah 9

Klik 2x tombol Ext Gambar 4 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

...

...

procedure TForm1.Button4Click(Sender: TObject);

begin

edit4.Text := GraphicExtension(TGraphicClass(Image4.Picture.Graphic.ClassType));

end;

...

...

Langkah 10

Klik 2x tombol Ext Gambar 5 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

...

...

procedure TForm1.Button5Click(Sender: TObject);

begin

edit5.Text := GraphicExtension(TGraphicClass(Image5.Picture.Graphic.ClassType));

end;

...

...

Langkah 11

Silahkan anda compile program aplikasi tersebut dengan menekan tombol Ctrl + F9.

Langkah 12

Lanjutkan dengan menekan tombol F9 hingga program siap untuk dijalankan.



Langkah 13

Silahkan anda tekan tombol Ext Gambar 1 hingga Ext Gambar 5 secara berurutan.

Langkah 14

Apabila berhasil, maka akan didapatkan tampilan seperti berikut ini.



Langkah 15

Program aplikasi sudah selesai dibuat, silahkan anda tekan tombol Keluar untuk menutup program aplikasi.

Download

Mendapatkan Extention TImage ( Grafik )


Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.


Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan.


Atas perhatiannya, saya mengucapkan banyak terimakasih.