G
gadfly24
Unregistered / Unconfirmed
GUEST, unregistred user!
我想将查询出来的纪录的某个字段(数据库为Access,这个字段类型为'ole对象')在dbimage中
显示出来,为dbimage设置datasource后不能显示!!
改用image控件,用如下代码,编译时总提示'bmread'、'tblobfield'未定义!
var
MS: TStream;
begin
with chxquery do
begin
MS:=CreateBlobStream(FieldbyName('题图'),bmread);
Image1.Picture.Bitmap.LoadFromStream(MS);
MS.Free;
end;
............
nvar
MS: TMemoryStream;
begin
MS:=TMemoryStream.create;
Image1.Picture.Bitmap.SaveToStream(MS);
MS.Position:=0;
chxTable1.Append;
TBlobField(Table1.FieldbyName('题图')).LoadFromStream(MS);
chxtable1.Post;
end;
编译时总出错“undeclared identifier 'tblobfield'”???
为什么用上面这段代码,编译时总出错“undeclared identifier 'bmread'、'blobfield'”???
不适用于adotable和adoquery????
高手们给点意见吧,这个问题急需解决!小弟实在是没分了,要不然再加分
显示出来,为dbimage设置datasource后不能显示!!
改用image控件,用如下代码,编译时总提示'bmread'、'tblobfield'未定义!
var
MS: TStream;
begin
with chxquery do
begin
MS:=CreateBlobStream(FieldbyName('题图'),bmread);
Image1.Picture.Bitmap.LoadFromStream(MS);
MS.Free;
end;
............
nvar
MS: TMemoryStream;
begin
MS:=TMemoryStream.create;
Image1.Picture.Bitmap.SaveToStream(MS);
MS.Position:=0;
chxTable1.Append;
TBlobField(Table1.FieldbyName('题图')).LoadFromStream(MS);
chxtable1.Post;
end;
编译时总出错“undeclared identifier 'tblobfield'”???
为什么用上面这段代码,编译时总出错“undeclared identifier 'bmread'、'blobfield'”???
不适用于adotable和adoquery????
高手们给点意见吧,这个问题急需解决!小弟实在是没分了,要不然再加分