我看到很多人说可以将FastReport中的Picture控件里的BlodType设置成btJPG,可是我怎么也找不到BlodType属性,请问是什么原因。
解决方案 »
- 关于多线程插入数据库数据的问题(delphi+access)
- 用RICHED20.DLL开发语法加亮编辑器的朋友请进(此文档长期有效)?
- 请问怎么把鼠标中键禁止掉?
- 有专门介绍delphiado编程的书么,电子版的
- dbgrideh打印的报表结果如何导入到Execl中。
- 为什么sql server数据库还原会出现问题?
- 通过ADOcommand.commandtext建立SQLSERVER7数据库?
- 急 XMLDocument的使用
- 100分献上:请问我对Paradox表的结构修改并保存了之后,为什么原表的所有记录都没了,系统在Database Desktop\PrivDir目录下建了一个相同的Key*.bd文件。如何恢复原表?
- 都可能遇到的常见难题,若您知道,敬请告诉我,您不知道,近来看看高手怎么说...
- delphi字符串定义问题!希望高手进来帮帮忙!!
- delphi中语法错误(操作符丢失)在查询表达式'count(distinct code)'中
if is_include_picture then
begin
bmp:=TBitmap.Create;
tempStream:= TMemoryStream.Create;
qry:=TADOQuery.Create(nil);
try
qry.Connection:= DM.ADOConnection1;
qry.close;
qry.SQL.Clear;
qry.SQL.Add('select * from tb_Patient_Graphic_INF where V_BRBM=:id1 order by v_lx' ) ;
qry.Parameters.ParamByName('id1').Value:= BRID;
qry.Open;
if qry.RecordCount>0 then
begin
j:=1;
qry.First;
while (not qry.Eof) and (j<i) and (pictureCount>0) do
begin
tempStream.Clear;
TBlobField(qry.FieldByName('picture')).SaveToStream(tempStream);
tempStream.Position:=0;
bmp.LoadFromStream(tempStream);
try
FrView:= FrmPrintSetup.frReport1.Pages[0].findobject('picture'+inttostr(pictureCount)) ;
if frview is TfrPictureView then
(FrView as TfrPictureView).Picture.Assign(bmp);
except
end;
qry.Next;
pictureCount:= pictureCount-1;
Inc(j);
end;
end; finally
bmp.Free;
tempStream.Free;
qry.Free;
end;
end;