Upload Foto/Gambar di delphi 7

Salam Blog gan, Kali ini saya akan membuat artikel tentang membuat program Upload gambar di Delphi 7, tutorial upload gambar ini hanya bersifat dasar saja, mungkin agan-agan bisa mengembangkan nya menjadi lebih bagus dari ini. Okey langsung saja…
Pertama-tama, buka dulu Delphi 7 nya gan jangan lupa disimpan jangan lupa sambil play music agar suantai… :D

Selanjutnya, Buat GroupBoxnya. Ini Cuma saran kalo memakai panel atau pun tidak memakai keduanya jg bisa gan,

Lalu menuju ke Palette >> Pilih Additional >> Image >>  Atur ukurannya

Buat Buttom nya terlebih dahulu untuk membuat klik upload nya.



Lalu menuju Palette >> Dialogs >> OpenPictureDialogs >>lalu klik di form.

Selanjutnya, Klik 2kali Buttom >> Tulis Syntaxnya seperti dibawah ini.







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

end;

Tinggal Di coba >> Klik RUN. Maka Hasilnya akan seperti ini.

Ini masih belum sempurna, ukuran gambar tidak bisa menyesuaikan ukuran Timage yang kita buat. Cara membuat gambar menyesuaikan dengan Timage yang kita buat langkahnya seperti berikut..
Reset program lalu klik 1X Timagenya >> menuju propertis >> cari Stretch >> Ubah menjadi True.
Maka Hasilnya akan berubah menjadi berikut.

Terimakasih Semoga bermanfaat.. :D