Amigo, por experiência própria sugiro fortemente você salvar as imagens num diretório e salvar no banco de dados apenas o caminho do diretório. Salvar no banco de dados força o crescimento desordenado do banco, dificulta a manutenção, backups (dumps, por exemplo) entre outros empecilhos.
Porém, caso você queira ou precise seguir salvando no banco, seguem algumas alternativas de código:
DBImage1.Picture.LoadFromFile('c:\pasta\imagem.jpg');
ou (Fonte: https://www.scriptbrasil.com.br/forum/topic/114397-resolvido-gravar-imagens-no-mysql/)
var
MS :TMemoryStream;
begin
...
if OpenPictureDialog1.Execute then
begin
FOTO.Picture.LoadFromFile(OpenPictureDialog1.FileName);
MS := TMemoryStream.Create;
try
FOTO.Picture.Graphic.SaveToStream(MS);
(DataModule1.Table1.FieldByName('foto') as TBlobField).LoadFromStream(MS);
finally
MS.Free;
end;
end;
end;
Como já mencionado, DBImage
é para BMP´s, como solução paliativa:
procedure TForm1.DBImage1DblClick(Sender: TObject);
var
JPG:TJPEGImage;
BMP:TBitmap;
begin
if OpenDialog1.Execute then
begin
JPG:= TJPEGImage.Create;
JPG.LoadFromFile(OpenDialog1.FileName);
BMP:=TBitmap.Create;
BMP.Assign(JPG);
JPG.Free;
dbimage1.Picture.Bitmap.Assign(BMP);
bmp.Free;
end;
end;