Добрый день. Пытаюсь загрузить изображение в базу MySql, в итоге загружается лишь часть изображения (в вложении слева оригинал, справа что загрузилось). Что в коде сделано неправильно?
var
fs:TMemoryStream;
begin
Im_cert.Bitmap.Assign(image);
try
Fauthorization.Uq.SQL.Clear;
Fauthorization.Uq.SQL.Add('insert u1133772_default.certificates');
Fauthorization.Uq.SQL.Add('(id_o_u,attachment ) VALUES ( ');
Fauthorization.Uq.SQL.Add('''' + id_user + ''', ');
Fauthorization.Uq.SQL.Add(':image)');
fs := TMemoryStream.Create;
Im_cert.Bitmap.SaveToStream(fs);
Fauthorization.Uq.Params[0].LoadFromStream(fs, ftBlob);
Fauthorization.Uq.ExecSQL;
fs.Free;
Fauthorization.Uq.Active := false;
showmessage('Загружено');
Если поставить Fauthorization.Uq.Params[0].Assign(image); происходит аналогично.
Если
fs_on:=Tfilestream.Create(opendialog1.filename,fmOpenRead);
Fauthorization.Uq.ParamByName('image').LoadFromStream(fs_on,ftBlob);
То все загружается нормально, но нужно загрузить bitmap не по названию файла.