HELP: Insert/Retrieve Photo to Database

[ton_cut345]

Hi,

I would like to ask help regarding on how to retrieve and insert/update image in the database using TMyTAble?

and restrict users to upload only jpeg image.

Thank you for you help.

[AndreyZ]

Hello,

To store images in a MySQL database, you can use the BLOB, MEDIUMBLOB, or LONGBLOB MySQL data types (depending on images size). Here is a code example:

Code: Select all

procedure TMainForm.ButtonClick(Sender: TObject);
begin
  MyTable.TableName := 'tablename';
  MyTable.Open;

  // inserting
  MyTable.Insert;
  MyTable.FieldByName('id').AsInteger := 1; // id is INT
  TBlobField(MyTable.FieldByName('blb')).LoadFromFile('jpeg_filename'); // blb is MEDIUMBLOB
  MyTable.Post;

  //updating
  MyTable.Edit;
  TBlobField(MyTable.FieldByName('blb')).LoadFromFile('jpeg_filename');
  MyTable.Post;

  //retrieving
  TBlobField(MyTable.FieldByName('blb')).SaveToFile('jpeg_filename');
end;