Save Image in database

[sweiner]

What's wrong?
I try to save a image in a database with the following code, but it doesn't work. Could everybody help? Thanks

DBImage.Picture.Bitmap.SaveToStream(TheStream);
sql.clear;
sql.add('set dateformat dmy');
Sql.add('update t_pstamm set image=(ThePicture) where autonum= '''+TBStammAutonum+''' and vdatum='''+formatdatetime('dd.mm.yyyy',vdatestamm.date)+''' ');
Params.Clear;
Params.CreateParam(ftBlob,'ThePicture', ptInput);
ParamByName('ThePicture').LoadfromStream(TheStream,ftBlob);
Execute;

[Antaeus]

You should not create parameters manually. Try to change your code to something like this:

Code: Select all

DBImage.Picture.Bitmap.SaveToStream(TheStream); 
sql.clear; 
sql.add('set dateformat dmy'); 
Sql.add('update t_pstamm set image=:ThePicture where autonum= '''+TBStammAutonum+''' and vdatum='''+formatdatetime('dd.mm.yyyy',vdatestamm.date)+''' '); 
ParamByName('ThePicture').LoadfromStream(TheStream,ftBlob); 
Execute;