怎样将表里的图片显视在image中?
delphi吧
全部回复
仅看楼主
level 1
长虹64 楼主
下面是我装入图片到image 按钮 中的代码
procedure TForm1.Button2Click(Sender: TObject);
var
mem : TMemoryStream;
bmp : TBitmap;
begin
table1.First ;
bmp:=TBitmap.Create;
mem:=TMemoryStream.Create;
//mem:=TBlobStream(table1.FieldByName(*photo*),bmRead);
TBlobField(table1.FieldByName(*PHOTO*)).SaveToStream(mem);
mem.Position:=0;//这句是什么作用啊?
bmp.LoadFromStream(mem);
// self.Image2.Picture.Assign(bmp);
Image2.Picture.Assign(bmp);
bmp.Free;
mem.Free;
end;
上面的代码是我在百度中找了好几个地方的资料研究出来的。编译能过过,但运行时跳出窗口说图片无效。我将表里的图片由24位色图  变成16位色图也不行。那位大侠帮帮我。谢谢
2014年09月08日 10点09分 1
level 9
position:=0;这句应该没用吧。
2014年09月09日 12点09分 2
level 1
长虹64 楼主
谢谢你关注我的问题
那句注释掉好象确没什么影响暂时。
但还是不能解决不能显视图片的问题噢。
报错是数据类型不对,应该怎么改啊?
哪位大侠救救场啊!!
我搞个学生用的物理题专训软件,就差这个有图片的题不能解决了。
就是这个图片的存入题库和从题库里显在image里不能解决了。
2014年09月09日 14点09分 3
吧务
level 14
直接用dbimage不行么?
2014年09月09日 14点09分 4
level 1
长虹64 楼主
感谢吧主关注我的问题
研究了快一周了,第一次可以将图片显出来了。
但还有不少问题,希望吧主大神继续指点。
dbimage 我试了半天只能显出24位bmp图,如果是jpg就会报错图片无效。
有没有办法让dbimage显出jpg图片?
同一图片bmp比jpg大两倍多。
2014年09月10日 08点09分 5
level 1
长虹64 楼主
dbimage控件没有Proportional属性图片不能自动适应dbimage的大小只能显出一部,不可能将每个图片进表时都转成相同的大小噢。那工作量就太大了
2014年09月10日 09点09分 6
level 4
楼主用的控件有没有类似于image控件的stretch属性呢,如果有就可以直接把它设为true这样就可以自动改变图片大小
2014年09月11日 02点09分 7
1