Newbie MySQL insert Problem

[platysternon]

Hallo,

MySQL Database 5.1, Value Feld ist ein Blob. Query ist TSQLQuery

Nachfolgender Code resultiert in MySQL Fehler: Server went away (was nicht korrekt zu sein scheint)

Wie kriege ich meine Bilder in die Datenbank?

Im Voraus Dank für jeden Tip.

Code: Alles auswählen

procedure Tform_Settings.ImportImageInDatabase(const FileName: String);
var
  expr: String;
 
begin 
  try
    expr := 'insert into BinaryData (ID, Key, Value, Type) values(null, :KEY, :BINDATA, :TYPE)';
    DM.query.Close;
    DM.query.SQL.Text := expr;
    DM.query.Params.ParamByName('Key').Value     := 'Image_Logo';
    DM.query.Params.ParamByName('Type').Value    := 'JPG';
    DM.query.Params.ParamByName('BinData').LoadFromFile(FileName, ftBlob);
    DM.query.ExecSQL;
    DM.query.Close;
  except
    on E:Exception do
      MessageDlg('Error saving binary data to database.' + #13 + E.Message, mtError, [mbOK], 0);
  end;
end;

[gocher]

http://forum.codecall.net/topic/67212-s ... ntry617175
Zeos-Beispiel: http://forum.codecall.net/index.php?app ... h_id=10650