Delphi for delphier

Grafik – TImage – Drag and drop file gambar ke TImage

Tingkatan Menengah
Kategori Grafik
Sub Kategori TImage
Judul Drag Gambar ke 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
 

http://delphi.about.com/od/adptips2005/qt/dropontimage.htm

   

Tujuan

Mengajarkan kepada para Delphier tentang bagaimana cara memasukkan gambar dari file yang berada didalam windows explorer kemudian di drag ke TImage yang ada didalam program aplikasi.

  spasi

Overview

Biasanya ketika kita ingin menampilkan gambar kedalam object TImage, kita menggunakan object tambahan TOpenPictureDialog untuk mendapatkan lokasi file yang akan dipilih. Cara ini mungkin merupakan cara standard dalam sebuah program aplikasi, dan didalam artikel kali ini akan diberikan trik untuk menampilkan file gambar ke dalam TImage cukup dengan drag and drop saja.

  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

   
  Panel1: TPanel;
Image1: TImage;
Button1: TButton;
  spasi

Langkah 3

Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini

   
 

menengahtimage0001.png

   

Langkah 4

Tambahkan library Jpeg, ShellApi kedalam uses. Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.

   
 

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

   

Langkah 5

Deklarasikan variabel dan beberapa prosedur seperti terlihat pada potongan kode program dibawah ini.

   
 

private
{ Private declarations }

originalPanelWindowProc : TWndMethod;
procedure PanelWindowProc (var Msg : TMessage) ;
procedure PanelImageDrop (var Msg : TWMDROPFILES) ;

   

Langkah 6

Lanjutkan dengan menuliskan kode program didalam prosedur PanelWindowProcseperti terlihat pada potongan kode program dibawah ini.

   
 

procedure TForm1.PanelWindowProc(var Msg: TMessage) ;
begin

if Msg.Msg = WM_DROPFILES then

PanelImageDrop(TWMDROPFILES(Msg))

else

originalPanelWindowProc(Msg);

end;

   

Langkah 7

Lanjutkan dengan menuliskan kode program didalam prosedur PanelImageDropseperti terlihat pada potongan kode program dibawah ini.

   
 

procedure TForm1.PanelImageDrop(var Msg: TWMDROPFILES) ;

var

numFiles : longInt;
buffer : array[0..MAX_PATH] of char;

begin

numFiles := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0) ;

if numFiles > 1 then

ShowMessage(‘You can drop only one image file at a time!‘)

else
begin

DragQueryFile(Msg.Drop, 0, @buffer, sizeof(buffer)) ;

try

Image1.Picture.LoadFromFile(buffer) ;

except

on EInvalidGraphic do
ShowMessage(‘ Unsupported image file, or not an image!‘) ;

end;

end;

end;

   

Langkah 8

Silahkan compile program anda dengan menekan tombol Ctrl + F9.

   

Langkah 9

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

   

Langkah 10

Silahkan anda buka windows explorer dan cari folder yang ada data file gambar-nya.

   

Langkah 11

Silahkan anda drag file tersebut kedalam program aplikasi dan drop di bagian TImage.

   

Langkah 12

Apabila program anda berhasil, maka akan didapatkan tampilan gambar seperti terlihat pada gambar dibawah ini

   
 

menengahtimage0001.jpg

   

Langkah 13

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

   

Download

TImage – Drag Gambar ke TImage

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
TImage – Drag Gambar ke TImage  
TImage – Kosongkan data gambar pada TImage  
   
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: