Menampilkan|LOAD Gambar

di kesempatann kali ini saya akan membagikan tutorial gimana caranya mengambil\LOAD gambar sebelum disimpan ke database;

jangan lupa tambahkan jpeg ke use

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs,jpeg, StdCtrls, ExtCtrls;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if OpenDialog1.Execute then

  begin

    Image1.Picture.LoadFromFile(OpenDialog1.FileName);

end;

end;

kalau sudah tekan f9 dan Load gambarnya

maka hasilnya akan seperti ini