Page 1 of 1
HELP: Insert/Retrieve Photo to Database
Posted: Fri 13 Apr 2012 05:37
by 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.
Posted: Fri 13 Apr 2012 09:44
by 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;