镀锌六角带帽螺栓:自定义一个控制打印机的单元

unit My_Print;

interface

uses
   Printers, Types, Windows, Messages, SysUtils, Variants, Graphics,Dialogs,
   Inifiles, Forms;

type
   TCustomPrinter=class(TObject)
   private
     FiOffsetX: Integer; //水平方向偏移量：.1毫米
     FiOffsetY: Integer; //垂直方向偏移量：.1毫米

    //取得字符的高度
     function CharHeight: Word;
     //取得字符的平均宽度
     function AvgCharWidth: Word;
     //取得纸张的物理尺寸---单位：点
     function GetPhicalPaper: TPoint;
     //得到打印机默认的页边距
     function GetPrintStartPos:TPoint;
     //取得纸张的逻辑宽度--可打印区域,纸张的逻辑尺寸
     function PaperLogicSize: TPoint;
     //纸张水平对垂直方向的纵横比例
     function HVLogincRatio: Extended;
     //取得纸张的横向偏移量-单位：点
     function GetOffSetX: Integer;
     //取得纸张的纵向偏移量-单位：点
     function GetOffSetY: Integer;
     //毫米单位转换为英寸单位
     function MmToInch(Length: Extended): Extended;
     //英寸单位转换为毫米单位
     function InchToMm(Length: Extended): Extended;
     //取得水平方向每英寸打印机的点数
     function HPointsPerInch: Integer;
     //取得纵向方向每英寸打印机的光栅数
     function VPointsPerInch: Integer;
     //横向点单位转换为毫米单位
     function XPointToMm(Pos: Integer): Extended;
     //纵向点单位转换为毫米单位
     function YPointToMm(Pos: Integer): Extended;
     //设置纸张尺寸:纸张宽度和纸张高度-单位：mm
     procedure SetPagerSize(const ASize: Integer; AWidth,AHeight: Double);
   protected

  public
     constructor Create;
     {********************************************************************
      函数名称:       InitPrinter
      函数功能:  初始化打印机，包括打印机名称、纸张大小等等
      输入参数：      ConfigIni: string    --打印配置文件：*.ini
      输出参数:       None      --参数的用途
      *********************************************************************}
     procedure InitPrinter(PRatio: Integer=1;APWidth: Double=171;
         APHeight: Double=78;APsize: Integer=256;ADeviceName:string='';
         Adefault:string='YES';AOffsetX:Integer=0;AOffsetY:Integer=0); overload;
     procedure InitPrinter(ConfigIni: string;PRatio: Integer=1); overload;
     {********************************************************************
      函数名称:       PrintText
      函数功能:  在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串
      输入参数：      X, Y: Extended; -- 打印起始点,单位为毫米
      输入参数：      LineHeight, TextWidth: Extended;  --行高，待打印矩形宽度
      输入参数：      Txt: string;    -- 待打印的文本
      输入参数：      FontSize: Integer=12    --字体为'宋体',缺省大小为12，
      输入参数：      TextAlignment: Integer=DT_LEFT  --文本对齐方式,缺省为'左对齐'
      输入参数：      AllowNewLine:Boolean=False  --是否允许换行
      输出参数:       换了几行则返回几,默认为1,未换行      --参数的用途
      *********************************************************************}
     function PrintText(Xmm, Ymm, LineHeight, TextWidth: Extended;
         Txt: string; FontSize: Integer=10; TextAlignment: Integer=DT_LEFT;
         AllowNewLine:Boolean=False):Integer; overload;
     function PrintText(Xmm, Ymm: Extended; Txt: string;FontSize: Integer=10;
         AllowNewLine:Boolean=False):Integer; overload;
     procedure PrintChar(s: PChar);
     procedure PrintEllipse(Xmm1, Ymm1, Xmm2, Ymm2: DOUBLE;APenWidth: Integer=2);
     procedure PrintLine(Xmm1, Ymm1, Xmm2, Ymm2: DOUBLE; ACanvas: TCanvas; APenWidth: Integer=5);
     procedure PrintTableLine(ACanvas: TCanvas; APenWidth: Integer=5);
   end;
     procedure My_InitPrinter(ConfigIni :string);
     function  My_PrintText(Xmm, Ymm: Extended; Txt: string;FontSize: Integer=10):Integer;
implementation

constructor TCustomPrinter.Create;
begin
   FiOffsetX:=0;
   FiOffsetY:=0;
end;

function TCustomPrinter.CharHeight: Word;
{取得字符的高度}
var
   Metrics: TTextMetric;
begin
   GetTextMetrics(Printer.Canvas.Handle, Metrics);
   Result := Metrics.tmHeight;
end;

//取得字符的平均宽度
function TCustomPrinter.AvgCharWidth: Word;
var
   Metrics: TTextMetric;
begin
   GetTextMetrics(Printer.Canvas.Handle, Metrics);
   Result := Metrics.tmAveCharWidth;
end;

//取得纸张的物理尺寸---单位：点
function TCustomPrinter.GetPhicalPaper: TPoint;
var
   PageSize : TPoint;
begin
   //PageSize.X; 纸张物理宽度-单位:点
   //PageSize.Y; 纸张物理高度-单位:点
   Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);
   Result := PageSize;
end;

//打印机的坐标原点总是在纸张的左上角，不管纸张从那个方向进入打印机。
//得到打印机默认的页边距
function TCustomPrinter.GetPrintStartPos:TPoint;
var
   pageMargin:TPoint;
   myEscape:integer;
begin
   pageMargin.x:=0;
   pageMargin.y:=0;
   myEscape:=GETPRINTINGOFFSET;
   if Escape(Printer.Handle,QUERYESCSUPPORT,sizeof(myEscape),@myEscape,nil) >0 then
   begin
     if Escape(printer.Handle,GETPRINTINGOFFSET,0,nil,@pageMargin) <=0 then
     begin
       pageMargin.x:=0;
       pageMargin.y:=0;
     end;
   end;
   result:=pageMargin;
end;

 //2.取得纸张的逻辑宽度--可打印区域
  //取得纸张的逻辑尺寸
function TCustomPrinter.PaperLogicSize: TPoint;
var
   APoint: TPoint;
begin
   APoint.X := Printer.PageWidth;
   APoint.Y := Printer.PageHeight;
   Result := APoint;
end;

//纸张水平对垂直方向的纵横比例
function TCustomPrinter.HVLogincRatio: Extended;
var
   AP: TPoint;
begin
   Ap := PaperLogicSize;
   Result := Ap.y/Ap.X;
end;

//取得纸张的横向偏移量-单位：点 --打印机的每英寸为多少像素
function TCustomPrinter.GetOffSetX: Integer;
begin
   Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);
end;

//取得纸张的纵向偏移量-单位：点 --打印机的每英寸为多少像素
function TCustomPrinter.GetOffSetY: Integer;
begin
   Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetY);
end;

//毫米单位转换为英寸单位
function TCustomPrinter.MmToInch(Length: Extended): Extended;
begin
   Result := round(Length/25.4); //每毫米水平方向象素
end;

//英寸单位转换为毫米单位
function TCustomPrinter.InchToMm(Length: Extended): Extended;
begin
   Result := round(Length*25.4);//每毫米水平方向象素
end;

//取得水平方向每英寸打印机的点数
function TCustomPrinter.HPointsPerInch: Integer;
begin
   Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
end;

//取得纵向方向每英寸打印机的光栅数
function TCustomPrinter.VPointsPerInch: Integer;
begin
   Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
end;

//横向点单位转换为毫米单位
function TCustomPrinter.XPointToMm(Pos: Integer): Extended;
begin
   Result := Pos*25.4/HPointsPerInch;
end;

//纵向点单位转换为毫米单位
function TCustomPrinter.YPointToMm(Pos: Integer): Extended;
begin
   Result := Pos*25.4/VPointsPerInch;
end;

procedure TCustomPrinter.SetPagerSize(const ASize: Integer; AWidth,
   AHeight: Double);
var
   Device : array[0..255] of char;
   Driver : array[0..255] of char;
   Port : array[0..255] of char;
   hDMode : THandle;
   PDMode : PDEVMODE;
   paperOrientation: Integer;
begin
   //自定义纸张最小高度70mm
   if AHeight  < 70 then AHeight := 70;
   //自定义纸张最大高度432mm
   if AHeight  > 500 then AHeight := 500;
    //自定义纸张最小宽度76mm
   if AWidth  < 76 then AWidth := 76;
    //自定义纸张最大宽度216mm
   if AWidth  > 300 then AWidth := 300;
   paperOrientation:=1;
   {AWidth := 171;
   AHeight := 78;}
   Printer.PrinterIndex := Printer.PrinterIndex;
   Printer.GetPrinter(Device, Driver, Port, hDMode);
   if hDMode  <> 0 then
   begin
     pDMode := GlobalLock(hDMode);
     if pDMode  <> nil then
     begin
       {设定打印的方向为纵向或横向
       if PaperOrientation <>0 then
         pDMode^.dmOrientation:=DMORIENT_LANDSCAPE
       else pDMode^.dmOrientation:=DMORIENT_PORTRAIT;
         //设置拷贝份数为1份.
       pDMode^.dmCopies:=1;}

      //自定义纸张
       pDMode^.dmPaperSize := DMPAPER_USER;
       {pDMode^.dmPaperSize:=256;}
        //将毫米单位转换为0.1mm单位

      pDMode^.dmPaperWidth := round(AWidth * 10);
       pDMode^.dmPaperLength := round(Aheight * 10);
       pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
                           DM_PAPERWIDTH;
       pDMode^.dmFields := pDMode^.dmFields or DM_PAPERLENGTH;
       //pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
       {pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE;
       pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERWIDTH;
       pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERLENGTH;}
       //pDMode^.dmDefaultSource := DMBIN_MANUAL;

      GlobalUnlock(hDMode);
     end;
   end;
   Printer.PrinterIndex := Printer.PrinterIndex;

end;

procedure TCustomPrinter.InitPrinter(PRatio: Integer=1;APWidth: Double=171;
     APHeight: Double=78;APsize: Integer=256;ADeviceName:string='';
     Adefault:string='YES';AOffsetX:Integer=0;AOffsetY:Integer=0);
{在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串}
var
   dName: string;
   bDefault:string;//是否使用缺省打印机
   offSetX, offSetY: Integer;
   pSize: Integer;
   pWidth,pHeight: Double;
begin
   bDefault:=Adefault;
   dName:=ADeviceName;
   pSize:=APsize;
   pWidth:=APWidth;
   pHeight:=APHeight;
   offSetX:=AOffsetX;
   offSetY:=AOffsetY;
   pHeight:=pHeight*PRatio;
   FiOffsetX:=offSetX;
   FiOffsetY:=offSetY;
   if CompareText(UpperCase(bDefault),'YES')=0 then //是否使用缺省打印机
     Printer.PrinterIndex:=-1
   else if dName <>'' then
     Printer.PrinterIndex:= Printer.Printers.IndexOf(dName);
   SetPagerSize(pSize,pWidth,pHeight);
end;

procedure TCustomPrinter.InitPrinter(ConfigIni: string;PRatio: Integer=1);
{在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串}
var
   fN: string;
   inif: TIniFile;
   dName: string;
   bDefault:string;//是否使用缺省打印机
   offSetX, offSetY: Integer;
   pSize: Integer;
   pWidth,pHeight: Double;
begin
   pSize:=256;
   pWidth:=239;
   pHeight:=139.7;
   offSetX:=0;
   offSetY:=0;
   fN :=  ConfigIni;            // ExtractFilePath(Application.ExeName)+'\'+
   if FileExists(fN) then
   begin
     inif:= TIniFile.Create(fN);
     try
       try
         dName:=inif.ReadString('Printer','DeviceName','error');
         bDefault:=inif.ReadString('Printer','IsUseDefault','Yes');
         pSize:=StrToInt(inif.ReadString('Printer','PaperSize','256'));
         pWidth:=StrToFloat(inif.ReadString('Printer','PageWidth','20'));
         pHeight:=StrToFloat(inif.ReadString('Printer','PageHeight','20'));
         offSetX:= 0;
         //StrToInt(inif.ReadString('Printer','OffsetX','0'));
         offSetY:= 0;
         //StrToInt(inif.ReadString('Printer','OffsetY','0'));
       except
         bDefault:='Yes';
         pSize:=256;
         pWidth:=239;
         pHeight:=139.7;
         offSetX:=0;
         offSetY:=0;
       end;
     finally
       inif.Free;
     end;
   end;
   pHeight:=pHeight*PRatio;
   FiOffsetX:=offSetX;
   FiOffsetY:=offSetY;
   if CompareText(bDefault,'Yes')=0 then //是否使用缺省打印机
     Printer.PrinterIndex:=-1
   else
     Printer.PrinterIndex:= Printer.Printers.IndexOf(dName);
   SetPagerSize(pSize,pWidth,pHeight);
end;

//在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串
function TCustomPrinter.PrintText(Xmm, Ymm, LineHeight, TextWidth: Extended;
    Txt: string; FontSize: Integer=10; TextAlignment: Integer=DT_LEFT;
    AllowNewLine:Boolean=False): Integer;
var
   PrintRect: TRect;
   Px,Py: Integer;
   lh,tw: Extended;
   tmpTxt,prnTxt: string;
begin
   Result:=1;
   Xmm := Xmm + FiOffSetX/10;
   Ymm := Ymm + FiOffSetY/10;
   Px := Round(Round(Xmm * HPointsPerInch * 10000/25.4) / 10000);
   Py := Round(Round(Ymm * VPointsPerInch * 10000/25.4) / 10000);
   Py := Py - GetOffSetY;  //因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
   Px := Px + 2 * AvgCharWidth;
   tw:= Round(Round(textwidth * HPointsPerInch * 10000/25.4) / 10000);
   lh:= Round(Round(LineHeight * VPointsPerInch * 10000/25.4) / 10000);
   Printer.Canvas.Font.Name :='宋体'; //  Arial'
   Printer.Canvas.Font.Size := FontSize;
    //Printer.Canvas.Font.Color := clGreen;
   PrintRect.Left := Round(px);
   PrintRect.Top := Round(py);
   PrintRect.Bottom := Round(PrintRect.Top + Lh);
   PrintRect.Right := Round(PrintRect.Left +tw);
   if (Length(txt)*AvgCharWidth >tw) and AllowNewLine then
   begin
     tmpTxt:=Txt;
     while Length(tmpTxt)*AvgCharWidth >tw do
     begin
       prnTxt:=string(Copy(WideString(tmpTxt),1,Length(WideString(Copy(tmpTxt,1,Trunc(tw/AvgCharWidth))))-1));
       if not Printer.Aborted then
         DrawText(Printer.Canvas.Handle,PChar(prnTxt),Length(prnTxt),PrintRect,TextAlignment);
       tmpTxt:=' '+Copy(tmpTxt,Length(prnTxt)+1,Length(tmpTxt)-Length(prnTxt));
       Py:=PrintRect.Bottom-PrintRect.Top;
       PrintRect.Top:= PrintRect.Bottom;
       PrintRect.Bottom:= PrintRect.Bottom+py;
       Inc(Result);
     end;
     if not Printer.Aborted then
       DrawText(Printer.Canvas.Handle,PChar(tmpTxt),Length(tmpTxt),PrintRect,TextAlignment);
   end
   else if not Printer.Aborted then
     DrawText(Printer.Canvas.Handle,PChar(Txt),Length(Txt),PrintRect,TextAlignment);
end;

function TCustomPrinter.PrintText(Xmm, Ymm: Extended; Txt: string;
      FontSize: Integer=10;AllowNewLine:Boolean=False):Integer;
var
   Px, Py: Integer;
begin
   Result:=1;
   Xmm := Xmm + FiOffSetX/10;
   Ymm := Ymm + FiOffSetY/10;
   Px := Round(Round(Xmm * HPointsPerInch * 10000/25.4) / 10000);
   Py := Round(Round(Ymm * VPointsPerInch * 10000/25.4) / 10000);
   Py := Py - GetOffSetY;  //因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
   Px := Px + 2 * AvgCharWidth;
   Printer.Canvas.Font.Name := '宋体';
   Printer.Canvas.Font.Size := FontSize;
    //Printer.Canvas.Font.Color := clGreen;
   if not Printer.Aborted then
     Printer.Canvas.TextOut(Px, Py, Txt);
end;

Procedure TCustomPrinter.PrintChar(s: PChar);
var 
   tf: TextFile;
begin 
   AssignFile(tF, 'LPT1');
   Rewrite(tF);
   Write(tF,s);
   CloseFile(tF);
end;

procedure TCustomPrinter.PrintEllipse(Xmm1, Ymm1, Xmm2, Ymm2: DOUBLE;APenWidth: Integer=2);
var
   oldPen: TPen;
   Px1, Py1, Px2, Py2 : Integer;
begin
   oldPen:=TPen.Create;
   OldPen.Assign(Printer.Canvas.Pen);
   Xmm1 := Xmm1 + FiOffSetX/10;
   Ymm1 := Ymm1 + FiOffSetY/10;
   Xmm2 := Xmm2 + FiOffSetX/10;
   Ymm2 := Ymm2 + FiOffSetY/10;
   Px1 := Round(Round(Xmm1 * HPointsPerInch * 10000/25.4) / 10000);
   Py1 := Round(Round(Ymm1 * VPointsPerInch * 10000/25.4) / 10000);
   Py1 := Py1 - GetOffSetY;  //因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
   Px1 := Px1 + 2 * AvgCharWidth;
   Px2 := Round(Round(Xmm2 * HPointsPerInch * 10000/25.4) / 10000);
   Py2 := Round(Round(Ymm2 * VPointsPerInch * 10000/25.4) / 10000);
   Py2 := Py2 - GetOffSetY;  //因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
   Px2 := Px2 + 2 * AvgCharWidth;
   //  Printer.Canvas.Font.Name := '宋体';
   //  Printer.Canvas.Font.Size := 10;   // FontSize
   Printer.Canvas.Pen.Style := psSolid;
   Printer.Canvas.Pen.Width := APenWidth;
   if not Printer.Aborted then
     Printer.Canvas.Ellipse(Px1,Py1,Px2,Py2);
   Printer.Canvas.Pen.Assign(OldPen);
   OldPen.Free;
end;

procedure TCustomPrinter.PrintLine(Xmm1, Ymm1, Xmm2, Ymm2: DOUBLE;
      ACanvas: TCanvas; APenWidth: Integer=5);
var
   oldPen: TPen;
   Px1, Py1, Px2, Py2 : Integer;
begin
   oldPen:=TPen.Create;
   OldPen.Assign(ACanvas.Pen);
   Xmm1 := Xmm1 + FiOffSetX/10;
   Ymm1 := Ymm1 + FiOffSetY/10;
   Xmm2 := Xmm2 + FiOffSetX/10;
   Ymm2 := Ymm2 + FiOffSetY/10;
   Px1 := Round(Round(Xmm1 * HPointsPerInch * 10000/25.4) / 10000);
   Py1 := Round(Round(Ymm1 * VPointsPerInch * 10000/25.4) / 10000);
   Py1 := Py1 - GetOffSetY;  //因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
   Px1 := Px1 + 2 * AvgCharWidth;
   Px2 := Round(Round(Xmm2 * HPointsPerInch * 10000/25.4) / 10000);
   Py2 := Round(Round(Ymm2 * VPointsPerInch * 10000/25.4) / 10000);
   Py2 := Py2 - GetOffSetY;  //因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
   Px2 := Px2 + 2 * AvgCharWidth;
   with ACanvas do
   begin
     //Printer.Canvas.Font.Name := '宋体';
     //Printer.Canvas.Font.Size := 10;   // FontSize
     Pen.Style:= psSolid;
     Pen.Width:= APenWidth;     // APenWidth
     if not Printer.Aborted then
     begin
       MoveTo(px1,py1);
       LineTo(px2,py2);
     end;
     Pen.Assign(OldPen);
   end;
   OldPen.Free;
end;

procedure TCustomPrinter.PrintTableLine(ACanvas: TCanvas;
   APenWidth: Integer=5);
var
   cv:TCanvas;
begin
   cv:=ACanvas;
   PrintLine(0,32,170,32,cv,APenWidth); //行
   PrintLine(0,40,170,40,cv,APenWidth);
   PrintLine(0,72,170,72,cv,APenWidth);
   PrintLine(0,79,170,79,cv,APenWidth);
   PrintLine(0,32,0,79,cv,APenWidth);   //列
   PrintLine(68,32,68,72,cv,APenWidth);
   PrintLine(80,32,80,72,cv,APenWidth);
   PrintLine(102,32,102,72,cv,APenWidth);
   //PrintLine(111,32,111,72,cv,APenWidth);
   //PrintLine(122,32,122,72,cv,APenWidth);
   PrintLine(127,32,127,79,cv,APenWidth);
   PrintLine(157,32,158,79,cv,APenWidth);
   PrintLine(170,32,170,79,cv,APenWidth);
end;

procedure My_InitPrinter(ConfigIni :string);
var printer1 : TCustomPrinter;
begin
   printer1 := TCustomPrinter.Create;
   printer1.InitPrinter(ConfigIni,1);
end;
function My_PrintText(Xmm, Ymm: Extended; Txt: string;FontSize: Integer=10):Integer;
var printer1 : TCustomPrinter;
begin
   printer1 := TCustomPrinter.Create;
   result := printer1.PrintText(Xmm, Ymm, Txt,FontSize,false);
end;
end.

应用如下：
   //初始化打印机 
   My_InitPrinter(strFileName);
   //开始打印
   Printer.BeginDoc;
   //把要打印的信息放到文档中
   My_PrintText(t_X[0] ,t_Y[0] ,strDate,10);
   //结束打印
   Printer.EndDoc;