Loading Picture into image Delphi

Question

Hello I am currently working on a program and I would like to add a button that would allow the user to Load a picture from his computer into the Image

procedure TForm1.btnLoadPicClick(Sender: TObject);
 begin
 img1.Picture.LoadFromFile( 'test.1');
 img1.Stretch := True ;

I was using this code but it limits the person to only being able to use that specific picture and I would like him to select one from his Computer thanks :)

Answer 1

You need to display an open dialog:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TOpenDialog.Create(self) do
    try
      Caption := 'Open Image';
      Options := [ofPathMustExist, ofFileMustExist];
      if Execute then
        Image1.Picture.LoadFromFile(FileName);
    finally
      Free;
    end;
end;

Answer 2

hello its me again i have implemented that into my program and i would like to know how i can save it into a database using SQL i have made an access database and table i would like to be able to save it into a table and load it out thanks