procedure Tform1.show_jpeg;
var
ms_jpeg:tmemorystream;
beginms_jpeg:=tmemorystream.Create;
//前提是已經從數據庫中查詢出相應的紀錄了
tblobfield(adoquery1.FieldByName('photo')).SaveToStream(ms_jpeg);image1.Picture.Graphic:=nil;
image1.Picture.Graphic:=TJpegImage.Create; MS_Jpeg.Position:=0;
image1.Picture.Graphic.LoadFromStream(MS_Jpeg);ms_jpeg.Free;
var
ms_jpeg:tmemorystream;
beginms_jpeg:=tmemorystream.Create;
//前提是已經從數據庫中查詢出相應的紀錄了
tblobfield(adoquery1.FieldByName('photo')).SaveToStream(ms_jpeg);image1.Picture.Graphic:=nil;
image1.Picture.Graphic:=TJpegImage.Create; MS_Jpeg.Position:=0;
image1.Picture.Graphic.LoadFromStream(MS_Jpeg);ms_jpeg.Free;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货