Upload Gambar di Delphi

Berhubung kemarin baru saja menghadapi masalah upload gambar di delphi dan serching pun hanya menemukan beberapa solusi, maka sekarang akan saya bagikan satu solusi untuk upload gambar di delphi. Langkah-langkahnya sebagai berikut:

1. Buka Delphi (So pasti... :p) dan buat project baru.

2. Tambahkan komponen TOpenPictureDialog, TImage dan TcxButton.

3. Atur Stretch TImage menjadi True pada jendela property untuk mendapatkan hasil gambar yang sesuai dengan ukuran TImage.

4. Tambahkan kode berikut di TcxButton:

if OpenPictureDialog1.Execute then
begin
eFoto.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

5. TOpenPictureDialog hanya dapat membuka gambar dengan format *.png;*.png;*.bmp;*.ico. Untuk menambahkan format lain, maka dapat ditambah kode jpeg pada uses.

Atau dapat mengaturnya pada Filter di jendela properties.

6. Hasil setelan di RUN.