如何使用fastreport打印jpeg格式的图片,急ing....
解决方案 »
- 关于字符串的问题!!在线等待!!!
- 如何让系统定期自动备份SQL SERVER中的某个数据库呢?
- 特急!!!各位高手能否告诉我这个报错是什么吗?Access violation at address 00404C6B in module 'Project1.exe'.Read of address 00000FAA
- 怎样把一个文本内容比如RichEdit的内容(包括换行符、标点等等)存入/取出数据库?
- 给我一个关于多线程的解决方案吧!
- 怎么截去文本文件的前半部分呀?
- 我正在做一个c/s的系统,现在已经接近尾声,我想做一个帮助,就想windows自带的哪个
- 寻找最好用的 进度条ProgressBar 控件????============请你推荐。
- delphi1.0---6.0的区别
- 帮帮我好吗????
- 快救命,一个超难问题!
- 哪位有《Delphi5开发人员指南配书源码》下载?到处都找不到:(
TfrReport.OnBeforePrint event:if View.Name = 'Picture1' then
TfrPictureView(View).Picture.LoadFromFile(你的文件);
begin
m_JpegStream:=TMemoryStream.Create;
(ADOQuery1.Fields[0] as TBlobField).SaveToStream(m_JpegStream);
ima_PicShow.Picture.Graphic:=nil;
ima_PicShow.Picture.Graphic:=TJpegImage.Create;
m_JpegStream.Position:=0;
//从文件流中读取图片信息 ima_picshow为Timage控件
ima_Picshow.Picture.Graphic.LoadFromStream(m_JpegStream);
end;
TfrReport.OnBeforePrint event:if View.Name = 'Picture1' then
TfrPictureView(View).Picture.assign(ima_Picshow.Picture);
begin
m_JpegStream:=TMemoryStream.Create;
(ADOQuery1.Fields[0] as TBlobField).SaveToStream(m_JpegStream);
ima_PicShow.Picture.Graphic:=nil;
ima_PicShow.Picture.Graphic:=TJpegImage.Create;
m_JpegStream.Position:=0;
//从文件流中读取图片信息 ima_picshow为Timage控件
ima_Picshow.Picture.Graphic.LoadFromStream(m_JpegStream);
end;
TfrReport.OnBeforePrint event:if View.Name = 'Picture1' then
TfrPictureView(View).Picture.assign(ima_Picshow.Picture);