我用的是这段代码
var
tempstream:TMemoryStream;
tempjpeg:TJPEGImage; //jpg图片
begin
if adoqry_pic.RecordCount<>0 then
begin
try
tempstream:=TmemoryStream.Create();
//将图像字段保存到流中
TBlobField(adoqry_pic.FieldByName('ChildPic')).SaveToStream(tempstream);
////给留定位
tempstream.Position:=0;
//生成临时image
tempjpeg:=TJPEGImage.Create;
//存留信息
tempjpeg.LoadFromStream(tempstream);
//显示图像
Image_child.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end;
end;