Y
you990212
Unregistered / Unconfirmed
GUEST, unregistred user!
从ACCESS读取png格式图片数据用image直接显示，当不是透明背景时缩小显示时图象颜色失真，当是透明背景时图象无法缩放；如果是按照原图大小显示或着直接从文件中读取，图象都正常。
var
mem:TMemoryStream;
ima:TPngObject;
begin
mem:=TMemoryStream.Create;
ima:=TPngObject.Create;
Tblobfield(adoquery1.FieldByName('picture')).savetostream(mem);
mem.Position:=0;
ima.LoadFromStream(mem);
image1.Picture.Assign(ima);
image1.Stretch:=true;
mem.Free;
ima.Free;
end;
请各位大侠指点，谢谢！
var
mem:TMemoryStream;
ima:TPngObject;
begin
mem:=TMemoryStream.Create;
ima:=TPngObject.Create;
Tblobfield(adoquery1.FieldByName('picture')).savetostream(mem);
mem.Position:=0;
ima.LoadFromStream(mem);
image1.Picture.Assign(ima);
image1.Stretch:=true;
mem.Free;
ima.Free;
end;
请各位大侠指点，谢谢！