delphi ile mysql'e resim kaydetme yardım

[dertlipoyraz]

Var
Bmp_resim : TBitmap;
Jpeg_resim : TJpegImage;
begin
if OpenDialog1.Execute then
begin

Bmp_resim := TBitmap.Create;
Jpeg_resim := TJpegImage.Create;
DataModule2.ADOaracresim.insert;
Jpeg_resim.LoadFromFile(OpenDialog1.FileName);
Bmp_resim.Width := Jpeg_resim.Width;
Bmp_resim.Height := Jpeg_resim.Height;
Bmp_resim.Canvas.Draw(0, 0, Jpeg_resim);
DBImage1.Picture.Assign(Bmp_resim);
DataModule2.ADOaracresim.FieldByName('r_aracno').AsString:=DataModule2.ADOarac.FieldByName('a_no').AsString;
DataModule2.ADOaracresim.Post;
end;

yukarıdaki kod ile mysql veritabanına resim kaydı yaparken aşağıdaki hata ile karşılaştım. bunu nasıl düzeltebilirim tavsiyelerinizi bekliyorum.Resim yolunu değil resmi kaydetmek zorundayım


Project Project1.exe raised exception class EOleException with message '[MySQL][ODBC 3.51 Driver][mysqld-3.23.49-max-nt]Lost connection to MYSQL server during query'.Process stopped.Use Step or Run continue.

[dertlipoyraz]

jvdbimage ile sorunu hallettim tek yapmama gereken

DBImage1.Picture.Assign(Bmp_resim);
yerine
jvDBImage1.Picture.Assign(Jpeg_resim); bu şeilde sorun halloldu