delphi里怎样打印文件夹里的bmp文件。 菜鸟一只，多谢各位大侠啦！

补充：不用那么麻烦 只要调用bmp然后打印就可以了

答案：1、如何实现在Microsoft Access数据库中的图像存储： 
这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。 
下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序： 
procedure TForm1.Button1Click(Sender: TObject); 
Var 
MyJPEG : TJPEGImage; 
MS: TMemoryStream; 
Begin 
MyJPEG := TJPEGImage.Create; 
Try 
With MyJPEG do 
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; 
在这段代码里TStream的子类TMemoryStream利用内存流起到了将BMP格式转化为JPEG格式 
的中间桥梁的作用。 

2、如何将图像从Microsoft Access数据库中取出并显示出来： 
下面的这段代码是在按了“查看图像”按钮之后所触发的事件处理程序： 
procedure TForm1.Button1Click(Sender: TObject); 
Var 
MyJPEG : TJPEGImage; 
MS : TMemoryStream; 
Begin 
Try 
MS := TMemoryStream.Create; 
TBlobField(Query1.FieldByName('Image')).SaveToStream(MS); 
MS.Position := 0; 
MyJPEG := TJPEGImage.Create; 
MyJPEG.LoadFromStream(MS); 
DBImage1.Picture.Bitmap.Assign(MyJPEG); 
//或是Sender.Picture.Assign(MyJPEG); 
Finally 
MS.Free; 
MyJPEG.Free; 
End; 
End;

其他：方法很多，可以用 QuickReport 报表来打印，也可以用 FR 、RM等第3方报表进行
还有投机的方法，可以把image布满一个窗体，然后利用窗体Print,直接打印出来 

上一个：请帮忙解答一下，在delphi下编写dll文件遇到的错误
下一个：delphi 函数可以直接改变数组值吗？