请给代码!!!
解决方案 »
- 救命!那个报表能在繁体xp中打印简体中文
- 办公之星控件在delphi下编程的问题,请牛人给以解决???????????
- TADODataSet中的Seek怎么使阿?
- 急!急!急!bcdtostr 怎么用100分
- 如何用delphi设置任务栏的高度?
- optype in ('批发','零售'),是不是某表的optype 字段必须要是有批发,零售,是什么意思呢
- 请问如何获取当前WINDOWS操作系统的语言种类?如简体、繁体或英文。
- 日期问题。在线等待。立即给分
- 怎么样把access97转换成SQL SERVER
- 救救小妹啊,用Delphi开发dialogic 的接口[不是高手和帅哥的不要进来]
- 如何锁定一个字段(ado+sql server 2000)?
- 寻chart做曲线分析的例子,或chart的使用方法
var PrintBand: Boolean);
var
vstream:tstream;
begin
if not dm.query1.FieldByName('图片).IsNull then
begin
vstream:=dm.query1.CreateBlobStream(dm.query1.FieldByName('图片'),bmread);
qrimage1.Picture.Graphic:=tjpegimage.Create;
qrimage1.Picture.Graphic.LoadFromStream(vstream);
end
else
qrimage1.Picture.LoadFromFile('');
end;
qrimage1.Picture.LoadFromFile('filename');
qrimage1.picture.assign(dm.query1.fieldbyname('图片'));
这样不就行了.