Delphi for delphier

Grafik – TImage – Validasi data gambar pada TImage

Tingkatan Menengah
   
Kategori Grafik
   
Sub Kategori TImage
   
Judul Validasi data gambar pada TImage
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi Program oleh Eko Indriyawan
 
   
Tujuan
Mengajarkan kepada para Delphier tentang bagaimana cara memvalidasi data gambar pada TImage apakah kosong atau tidak.
  spasi
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.
  spasi
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
  spasi
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  Image1: TImage;
Button1: TButton;
Button2: TButton;
Bevel1: TBevel;
  spasi
Langkah 3
Tambahkan Library Jpeg kedalam Uses.Untuk lebih jelasnya, silahkan anda lihat potongan kode program dibawah ini.
   
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;
   
Langkah 4
Tambahkan gambar kedalam object TImage.
   
Langkah 5
Atur object-nya hingga didapatkan tampilan seperti berikut ini.
   
 
menengahtimage0004.png
   
Langkah 6
Klik 2x tombol Validasi dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Image1.Picture.Graphic.Empty then
begin
ShowMessage(‘Ada gambarnya‘);
end;
end;
   
Langkah 6
Silahkan compile program anda dengan menekan tombol Ctrl + F9.
   
Langkah 7
Lanjutkan dengan menekan tombol F9 hingga program aplikasi siap untuk dijalankan. Untuk melihat tampilan awal program, silahkan anda lihat gambar dibawah ini.
   
 
menengahtimage0005.png
   
Langkah 8
Silahkan anda tekan tombol Validasi.
   
Langkah 9
Apabila program anda berhasil, maka akan didapatkan tampilan gambar seperti terlihat pada gambar dibawah ini
   
 
menengahtimage0006.png
   
Langkah 10
Program aplikasi sudah selesai dibuat, silahkan anda tekan tombol Keluar untuk menutup program aplikasi.
   
Download
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.
  spasi
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
 
 
 
Jika anda mau berusaha dan punya semangat, jangan biarkan waktu anda lari begitu saja. By Eko Indriyawan

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: