开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 打印编程 > 查看源码
Unit1.~pas
资源名称：CADPrint.rar　[点击查看]
上传用户：sh_weigang
上传日期：2013-04-17
资源大小：179k
文件大小：3k
源码类别：

打印编程

开发平台：

Delphi

Unit1.~pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, OleCtrls, ECompositeViewer_TLB, ExpressViewerDll_TLB, StdCtrls,
  8.   EPlotViewer_TLB, ExtCtrls, Printers;
  10. const
  11. WM_MyMSG = WM_USER + $1;
  13. type
  14.   Tw_Main = class(TForm)
  15. CADViewer: TCExpressViewerControl;
  16. procedure FormCreate(Sender: TObject);
  17.     procedure FormShow(Sender: TObject);
  19.   private
  20. { Private declarations }
  21. procedure PrintFile;
  22. procedure OnMyMsg(var message:TMessage); message WM_MyMSG;
  23.   public
  24. { Public declarations }
  25.   end;
  27. var
  28.   w_Main: Tw_Main;
  30. implementation
  32. uses AdCommon_TLB, EPlotRenderer_TLB;
  34. {$R *.dfm}
  36. procedure Tw_Main.FormCreate(Sender: TObject);
  37. begin
  38. Application.Title := Caption;
  40. if ParamStr(1) = '' then begin
  41. MessageBox( Handle,'达乐文企业传真中心专用工具，只能在达乐文传真服务器中使用。' +
  42. char(13) + char(10) + char(13) + char(10) + 'http://www.midpal.com.cn',
  43. '提示',MB_ICONINFORMATION+MB_OK);
  45. Application.ShowMainForm := false;
  46. Application.Terminate;
  47. exit;
  48. end else if not FileExists(ParamStr(1)) then begin
  49. MessageBox(Handle,PChar('文件 ' + ParamStr(1) + ' 不存在。'),PChar(Caption),MB_ICONINFORMATION+MB_OK);
  50. Application.ShowMainForm := false;
  51. Application.Terminate;
  52. exit;
  53. end;
  54. CADViewer.SourcePath := ParamStr(1);
  55. end;
  57. procedure Tw_Main.OnMyMsg(var message:TMessage);
  58. begin
  59. PrintFile;
  60. end;
  62. procedure Tw_Main.PrintFile;
  63. var
  64. View : IAdPageViewer2;
  65. i : Integer;
  66. pageCol : IAdCollection;
  67. newPage : OleVariant;
  69. CurView : IAdPageView;
  70. hPrintDC: Integer;
  71. dL : Real;
  72. dB : Real;
  73. dR : Real;
  74. dT : Real;
  75. bWhite : Boolean;
  76. di : DOCINFO;
  77. begin
  78. View := CADViewer.DocumentHandler AS IAdPageViewer2;
  79. View.WaitForPageLoaded;
  80. pageCol := View.Pages AS IAdCollection;
  82. hPrintDC := CreateDC('WINSPOOL','达乐文传真机',nil,nil);
  83. if hPrintDC = 0 then
  84. MessageBox(Handle,'达乐文传真机不存在，请安装后再转换。','提示',MB_ICONERROR + MB_OK)
  85. else begin
  87. Sleep(2000);
  88. StartDoc(hPrintDC,di);
  89. for i:=1 to pageCol.Count  do
  90. begin
  91. newPage := pageCol.Item[i];
  92. View.Page := newPage;
  93. View.WaitForPageLoaded;
  95. CurView := View.View AS IAdPageView;
  96. dL := CurView.Left;
  97. dB := CurView.Bottom;
  98. dR := CurView.Right;
  99. dT := CurView.Top;
  100. try
  101. //View.SimplePrint(true,true);
  102. View.PrintEx(hPrintDC,dL,dB,dR,dT,true);
  103. except
  105. end;
  106. end;
  107. EndDoc(hPrintDC);
  108. DeleteDC(hPrintDC);
  109. end;
  111. Close();
  112. Application.Terminate;
  113. end;
  115. procedure Tw_Main.FormShow(Sender: TObject);
  116. begin
  117. PostMessage(Handle,WM_MYMSG,0,0);
  118. end;
  120. end.