如何把dbgrid中的图像调入image中显示 在双击dbgrid 时
谢谢了
谢谢了
解决方案 »
- toolbar菜单怎样用大图标
- 用过RxRichEdit的来看看
- 谁能告诉我modalresult属性的用法,请尽量详细些,有例子最好。
- 简单的
- 如何实现双击表格中的某条记录时,弹出对话框修改该条记录的内容?
- 高手充电时候到了。简单的Midas问题..........
- 为什么我点了dbgrid中的一行,前面也出现了一个小黑三角,可dbgrid1.SelectedRows.Count总是为0?
- expresspivotgrid控件问题
- 动态生成表的名字一定要用英文吗?
- Dcom服务器设置问题!答对者大奖!!!!!!!!!
- delphi2007下安装fastreport4.2
- 问个非常简单但是我搞不明白的问题,在线等。
try
m_jpegStream:=TMemoryStream.Create;
TBlobField(fieldbyname('pic')).SaveToStream(m_JpegStream);
m_JpegStream.Position:=0;
try
pic_img.Picture.Graphic:=nil;
pic_img.Picture.Graphic:=TJpegImage.Create;
pic_img.Picture.Graphic.LoadFromStream(m_JpegStream); //读Jpeg
except
pic_img.Picture.Graphic:=nil;
end;
except
showmessage('读取图片出错!');
end;
finally
m_JpegStream.Free;
end;
try //显示图片
try
TBlobField(fieldbyname('pic')).SaveToStream(m_JpegStream);
m_JpegStream.Position:=0;
try
pic_img.Picture.Graphic:=nil;
pic_img.Picture.Graphic:=TJpegImage.Create;
pic_img.Picture.Graphic.LoadFromStream(m_JpegStream); //读Jpeg
except
pic_img.Picture.Graphic:=nil;
end;
except
showmessage('读取图片出错!');
end;
finally
m_JpegStream.Free;
end;