procedure TForm1.BitBtn3Click(Sender: TObject);
var
xx:tbitmap;
yy:tblobstream;//我是用ClientDataSet1PICTURE和数据中blob字段绑定的
begin
yy:=tblobstream.Create(ClientDataSet1PICTURE,bmread);//系统提示类型不匹配
try
xx:=tbitmap.Create ;
try
xx.LoadFromStream(yy);
image2.Picture.Graphic:=xx;
finally
xx.Free;
end;
finally
yy.Free;
end;
end;
var
xx:tbitmap;
yy:tblobstream;//我是用ClientDataSet1PICTURE和数据中blob字段绑定的
begin
yy:=tblobstream.Create(ClientDataSet1PICTURE,bmread);//系统提示类型不匹配
try
xx:=tbitmap.Create ;
try
xx.LoadFromStream(yy);
image2.Picture.Graphic:=xx;
finally
xx.Free;
end;
finally
yy.Free;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货