Jpg abspeichern in MySQL Datenbank

[Memo]

Versuchs mal so:

Delphi-Quellcode:

var
   blob : TMemoryStream;
   jpeg : TJPEGImage;
   bmp : TBitmap;
   s: String;
begin
    blob :=  TMemoryStream.Create();
    jpeg := TJPEGImage.Create;
    bmp := TBitmap.Create;
   TRY
     if OpenpictureDialog1.Execute then
     begin
          s :=ExtractFileExt(OpenPictureDialog1.FileName);
          if uppercase(s) = '.BMP' then
          begin
             bmp.loadfromfile(OpenPictureDialog1.FileName);
             blob.Clear;
             bmp.saveToStream(blob);
          end else
          begin
             jpeg.LoadFromFile(OpenPictureDialog1.FileName);
             blob.Clear;
             jpeg.SaveToStream(blob);
          end;
          SQLTable.SQL.Text := 'Update Tabelle Set Foto = :Bild  where ID = :id';
          SQLTable.ParamByName('bild').LoadFromStream(blob,ftGraphic);
          SQLTable.ParamByName('id').AsInteger := DM.FahrerID.AsInteger;
          SQLTable.ExecSQL;
     end;
   Finally
      freeandnil(blob);
      freeandnil(jpeg);
      freeandnil(bmp);
      DBImageEx1.LoadPicture;
   END
end;