Procedure Menentukan extention grafik ();
__
Begin
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. 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.
Langkah 7
Klik 2x tombol Ext Gambar 2 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
Langkah 8
Klik 2x tombol Ext Gambar 3 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
Langkah 9
Klik 2x tombol Ext Gambar 4 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
Langkah 10
Klik 2x tombol Ext Gambar 5 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
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.
End;
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. 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.
