a:=TMemoryStream.Create;
b:=TMemoryStream.Create;
OleContainer1.SaveToStream(a);
MJp:= TJpegImage.Create;
bm2:=TImage.Create(Owner);
bm2.Picture.Bitmap.LoadFromStream(a);
MJp.assign(bm2.Picture.Bitmap);
MJp.SaveToStream(b);
ADOTable1.First;
ADOTable1.Edit;
d:=adotable1.fieldbyname('Quest_O') as TblobField;
b.Position:=0;
d.LoadFromStream(b);
ADOTable1.Post;
a.Free;
b.Free;
mjp.Free;
bm2.Free;
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4