打印jpg图片 ( 积分: 50 )

用QuickRep控件打印报表怎样打印jpg图片，用的Access数据库，数据库里好像只能接受bmp图片格式

用QuickRep控件打印报表怎样打印jpg图片，用的Access数据库，数据库里好像只能接受bmp图片格式

把JPG格式转换成BMP格式，然后打印，不就行了吗！

用BLOB字段，可以选择通过内存流的方式来完成；使用内存流，可减少磁盘操作，大大提高运行效率。
=================================
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
try
with MyJPEGdo
begin
Assign(Image.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
Table1.Edit;
TBlobField(Table1.FieldbyName('Image')).LoadFromStream(MS);
Table1.Post;
messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok);

end;
finally
MyJPEG.Free;
end;
end;
============================================
这段程序就可以。

给多一个上传过程的给你。
procedure TfmSplash.upSend(FileName: string);
var
Stream: TFileStream;
FName: string;
begin
if Filename='' then
Fname:=extractFileName(application.ExeName)
else
Fname:=FileName;
Stream:=TFileStream.Create(FName, fmOpenRead or fmShareDenyNone);
try
with qrydo
begin
Active:=false;
SQL.Text:='select * from upGrade where Rtrim(pname) ='+quotedStr(FName);
Open;
Edit;
TBlobField(FieldByName('pc')).LoadFromStream(stream);
FieldByName('pv').AsString:=GetVersion(fname);
FieldByname('pName').Asstring:=fname;
Post;
Close;
end;
finally
stream.Free;
end;
end;

转换完存入数据库后，用QuickRep中的QRDBImage显示不出来？？？？

Access数据库好像支持jpg格式阿。
我使用QRDBImage可以打印并显示jpg图片。