delphi直接打印jpg文件

procedure TSDIAppForm.Button2Click(Sender: TObject);
varpxprint,pyprint:Integer;rect:Trect;jpg: TJPEGImage;
begininherited;try//获得打印机的分辨率,就是每英寸多少个像素pxprint := getdevicecaps(printer.Handle,logpixelsx);pyprint := getdevicecaps(printer.Handle,logpixelsy);//设置图片的打印区域，现在用的是A4：21cm*29.5cmwith  rect  dobeginleft  := 0;top   := 0;right := trunc(21*0.3937008*pxprint);bottom:= trunc(29.5*0.3937008*pyprint);end;//向打印机输出图片jpg := TJPEGImage.Create;jpg.LoadFromFile('.\jpgtemp\frompro-000.jpg');with   jpg {image1.Picture.Bitmap}   dobeginprinter.Title:= '图片打印 ';tryprinter.begindoc;printer.canvas.StretchDraw(rect,jpg);application.ProcessMessages;printer.enddoc;exceptprinter.Abort;raise;end;end;exceptshowmessage( '没有打印机，请选择打印机！ ');end;jpg.free;
end;

开始时别忘了“uses jpeg;”

delphi直接打印jpg文件相关推荐

Delphi判断一个文件是不是JPG图片
Delphi判断一个文件是不是JPG图片文件 function IsJpegFile(FileName: string): Boolean; const RightBuf : array[0..3] ...
Delphi的单元文件详解
Delphi的单元文件详解 Delphi单元文件 1.库单元文件头:其中声明了库单元的名字. 2.Interface部分: 由保留字interface开始,结束于保留字implementation ...
Delphi关于记录文件的操作
http://www.cnblogs.com/railgunman/archive/2010/08/16/1801004.html Delphi关于记录文件的操作本例子几个变量的说明 TFileRe ...
Delphi处理高速文件上传下载的代码及思路
Delphi处理高速文件上传下载的代码及思路上传和下载是一对方向不同的概念,下面对应的客户端和服务器代码:掉个头,它就是下载:再掉个头,它就是上传. 一.思路 1.将大文件:分段(即常说的" ...
Delphi例程－文件管理例程
1.AssignFile 过程关联一个外部文件名到一个文件变量上. 单元 System 语法 procedure AssignFile(var F; FileName: string); 描述调用 ...
Delphi使用资源文件全攻略
本文为原创,如需转载,请注明作者和出处,谢谢! 在通常情况下使用delphi设计程序,都是将字符串.图像等资源直接使用delphi提供的vcl控件加到*.dfm中,这样做会合修改这些资源时带来 ...
问题-[Delphi]通过Map文件查找内存地址出错代码所在行
一什么是MAP文件什么是 MAP 文件?简单地讲, MAP 文件是程序的全局符号.源文件和代码行号信息的唯一的文本表示方法,它可以在任何地方.任何时候使用,不需要有额外的程序进行支持 ...
delphi打印html文件路径,Delphi获取文件名、不带扩展名文件名、文件所在路径、上级文件夹路径的方法...
1.获取不带扩展名的文件名方法,利用ChangeFileExt函数修改传入参数的扩展为空,并不会对文件本身产生变更. ChangeFileExt(ExtractFileName('D:\KK\Test ...
js直接打印pdf文件内容
(1)需求:是网页上打开一个pdf文件,然后直接打开打印机,就是直接打印,不用用户再次点击打印按钮,这样用户体验好 (2)经历: 我在网上找了资料就是使用window.print(),但是这个只是打印 ...

delphi直接打印jpg文件

delphi直接打印jpg文件相关推荐

最新文章

热门文章