Bild im Blob Feld abspeichern

[Moony]

Habe das jetzt folgendermaßen geschafft das Bild dort einzuspeichern:

Delphi-Quellcode:

MS := TMemoryStream.Create;
try
  MS.LoadFromFile(F);
  mytable.SQL.Clear;
  mytable.SQL.Add('UPDATE ' + TableName + ' SET ' + PhotoField + ' = ');
  mytable.SQL.Add('(:' + PhotoField + ')');
  mytable.SQL.Add(' WHERE ' + IndexField + ' = ''' + IndexValue + '''');
  mytable.Parameters.ParamByName(PhotoField).LoadFromStream(MS, ftBlob);
  try
    mytable.ExecSQL;
  except
    MessageDlg(SysErrorMessage(GetLastError()), mtError, [mbOK], 0);
  end;
finally
  MS.Free;
end;

Gruß, und danke für die Denkanstöße.

Moony