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
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位色图也不行。那位大侠帮帮我。谢谢