вроде как работает:Всем большое пасибо
Stream1 := TMemoryStream.Create;
Stream1.Clear;
DBImage1.Picture.Bitmap.SaveToStream(Stream1);
Stream1.Position := 0;
for i := 1 to Stream1.Size do
begin
Stream1.Read(d, 1);
im := im+d;
end;
DM.IBQuery6.Params[4].AsBlob:=im;
|