Delphi for delphier

Grafik – Foto – Mendesain gambar jadi Grayscale

Tingkatan Menengah
Kategori Grafik
Sub Kategori Foto
Judul Mendesain gambar jadi Grayscale
   
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
 

– lupa dulu pernah baca artikel dimana, kalau ada yang tahu mohon diinfokan

   

Tujuan

Mengajarkan kepada para Delphier tentang bagaimana cara memanipulasi data gambar atau foto yang ditampilkan kedalam TImage yang kemudian diformat seperti terlihat Grayscale.

  spasi

Overview

Kali ini kita akan diberikan artikel tentang bagaimana cara kita bisa mengubah warna gambar bitmap menjadi warna grayscale.

Didalam contoh program yang diberikan juga sudah disediakan file gambar, jadi anda bisa download dan langsung dicoba. Karena tidak disertakan file exe, silahkan anda compile terlebih dahulu.

Bagi anda yang belum tahu, artikel ini sangat menarik, namun demikian contoh program kali ini hanya ilmu dasar tidak seperti program aplikasi Photoshop yang bisa memiliki banyak fitur dan apabila anda penasaran mengenai artikel ini, kenapa tidak anda coba?

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

Buat program aplikasi baru.

   

Langkah 2

Tambahkan beberapa object kedalam Form

   
  Image1: TImage;
Button1: TButton;
Button2: TButton;
Image2: TImage;
  spasi

Langkah 3

Silahkan anda tambahkan uses Jpeg kedalam uses. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.

   
 

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

   

Langkah 4

Pada object Image1, silahkan anda isikan sembarang gambar dengan extention bmp ( karena yang diolah adalah bitmap, anda bisa mengambil gambar dengan extention apa saja, asalkan sebelum di konversi ke format negatifanda ubah terlebih dahulu ke bmp ). Sebagai Contoh silahkan lihat tampilan gambar dibawah ini.

   
 

menengahgrafikfoto00003.png

   
Langkah 5

Silahkan anda lanjutkan dengan membuat prosedur ImageGrayScale. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.

   
 

procedure ImageGrayScale(AnImage: TImage; var output : TImage);
var
JPGImage: TJPEGImage;
BMPImage: TBitmap;
MemStream: TMemoryStream;
begin
BMPImage := TBitmap.Create;
try
BMPImage.Width := AnImage.Picture.Bitmap.Width;
BMPImage.Height := AnImage.Picture.Bitmap.Height;

JPGImage := TJPEGImage.Create;

try
JPGImage.Assign(AnImage.Picture.Bitmap);
JPGImage.CompressionQuality := 100;
JPGImage.Compress;
JPGImage.Grayscale := True;

BMPImage.Canvas.Draw(0, 0, JPGImage);

MemStream := TMemoryStream.Create;

try
BMPImage.SaveToStream(MemStream);

MemStream.Position := 0;

output.Picture.Bitmap.LoadFromStream(MemStream);
output.Refresh;

finally
MemStream.Free;

end;

finally
JPGImage.Free;

end;

finally
BMPImage.Free;

end;

end;

   
Langkah 6

Sekarang anda lanjutkan dengan menentukan kode program didalam event OnClick pada tombol Jepret. Untuk lebih detailnya silahkan anda lihat potongan kode program dibawah ini.

   
 

procedure TForm1.Button1Click(Sender: TObject);
begin

ImageGrayScale(Image1, Image2);

end;

   

Langkah 7

Silahkan compile program anda dengan menekan tombol Ctrl + F9.

   

Langkah 8

Lanjutkan dengan menekan tombol F9 hingga program aplikasi siap untuk dijalankan.

   

Langkah 9

Tekan tombol Jepret. Apabila program anda berhasil, maka akan didapatkan tampilan gambar seperti terlihat pada gambar dibawah ini

   
 

menengahgrafikfoto00004.png

   

Langkah 10

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

   

Download

Foto – Mendesain gambar jadi Grayscale

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
Foto – Mendesain gambar jadi Sephia  
Foto – Mendesain gambar jadi Negatif  
Foto – Crossfade foto  
Foto – Mendesain gambar jadi Grayscale  
   
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

Blog di WordPress.com.

%d blogger menyukai ini: