(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
var
ms: TBlobStream;
myjpeg:tjpegimage;
begin
with PicQuery do
myjpeg := tjpegimage.Create;
ms.Clear;
TBlobField(PicQuery.FieldByName('img')).SaveToStream(ms);
ms.Position := 0;
myjpeg.LoadFromStream(ms);
form1.Image2.Picture.Bitmap.Assign(myjpeg);
end;
var
ms: TBlobStream;
myjpeg:tjpegimage;
begin
with PicQuery do
myjpeg := tjpegimage.Create;
ms.Clear;
TBlobField(PicQuery.FieldByName('img')).SaveToStream(ms);
ms.Position := 0;
myjpeg.LoadFromStream(ms);
form1.Image2.Picture.Bitmap.Assign(myjpeg);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货