--- dao/DelphiScanner/LabelPrint.pas 2015/12/04 14:07:48 2790 +++ dao/DelphiScanner/LabelPrint.pas 2016/08/16 21:06:46 3091 @@ -16,12 +16,20 @@ procedure CheckPrintQue(tjektype : string; PrinterNavn : String); + procedure PrintLabel( Stregkode : String); + procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = ''); - procedure PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel); + procedure PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel); + procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TPakkeshopLabel); + procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TPakkeshopLabel); + procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ; + procedure TestZpl(); + procedure PrintZPL( ZplData : string); + function GetPrinterCount() : Integer; private @@ -45,7 +53,9 @@ Windows, SysUtils, //Format Math, // DegToRad() bruges i PrintPakkeshopLabel - Forms + Forms, + IdHTTP, + Graphics ; @@ -107,6 +117,7 @@ with Printer do begin BeginDoc; + Canvas.Font.Size := Config.FontSizeRute; if (Length(RuteNummer) > 7) then begin @@ -128,6 +139,11 @@ Canvas.TextOut(Config.XPosBoghandler, Config.YPosBoghandler, BoghandlerNavn); EndDoc; end; + + + + Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725 + end; @@ -219,9 +235,38 @@ ClosePrinter(hPrinter); end; end; + + + Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725 + end; +procedure TLabelPrint.PrintLabel( Stregkode : String); +var + url: String; + response: String; + + httpClient: TIdHTTP; + + + +begin + + url := Format(Config.URLPrintLabel, [Stregkode] ); + + httpClient := TIdHTTP.Create(); + httpClient.ReadTimeout := 1000;//max 1 secound + httpClient.ConnectTimeout := 1000; + + response := httpClient.Get(url); + httpClient.Free(); + + + + +end; + procedure TLabelPrint.SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = ''); begin with Printer do @@ -262,12 +307,30 @@ EndDoc; end; + + + Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725 + end; +procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel); +begin + if (Config.LabelStor = 1) then + begin + PrintFuldPakkeLabelStor( PakkeshopLabel ); + + end + else + begin + PrintFuldPakkeLabelLille( PakkeshopLabel ); + + end; + +end; -// ToDo: PrintPakkeshopLabel() -procedure TLabelPrint.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel); +// Bruges til label der passer til 60x100 +procedure TLabelPrint.PrintFuldPakkeLabelLille( PakkeshopLabel : TPakkeshopLabel); var XForm, XFormOld: TXForm; //Bruges til rotate X-formation Angle: integer; @@ -294,15 +357,16 @@ // Skriv ikke 'Pakkeshop' overskrift hvis det er en shop2direkte - if ( (PakkeshopLabel.Shop2Direkte = '') OR (PakkeshopLabel.Shop2Direkte = '0') ) then + if ( PakkeshopLabel.PakkeshopNavn <> '' ) then begin Canvas.TextOut(110, 240, 'Pakkeshop:'); + Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn); + Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr); + Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr); + end; - Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn); - Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr); - Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr); Canvas.TextOut(350, 240, 'Afsender:'); Canvas.TextOut(350, 270, PakkeshopLabel.AfsenderNavn); @@ -384,9 +448,148 @@ end; + Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725 + end; +// Bruges til label der passer til 100x150 +procedure TLabelPrint.PrintFuldPakkeLabelStor( PakkeshopLabel : TPakkeshopLabel); +var + XForm, XFormOld: TXForm; //Bruges til rotate X-formation + Angle: integer; + gMode: integer; + Dirigering: string; + BarcodeRect : TRect; + +begin + with Printer do + begin + BeginDoc(); + + + + Canvas.Font.Style := [TFontStyle.fsBold]; + Canvas.Font.Size := 16; + Canvas.TextOut(25,25, 'Code: ' + PakkeshopLabel.Tjekkode + ' ' + PakkeshopLabel.Overskrift); + + + + Canvas.TextOut(80, 220, PakkeshopLabel.Navn ); + Canvas.TextOut(80, 270, PakkeshopLabel.Vejnavn ); + Canvas.TextOut(80, 320, PakkeshopLabel.Postnr ); + + + Canvas.Font.Size := 9; + + + // Skriv ikke 'Pakkeshop' overskrift hvis det er en shop2direkte + if ( PakkeshopLabel.PakkeshopNavn <> '' ) then + begin + Canvas.TextOut(170, 460, 'Pakkeshop:'); + Canvas.TextOut(170, 490, PakkeshopLabel.PakkeshopNavn); + Canvas.TextOut(170, 520, PakkeshopLabel.PakkeshopAddr); + Canvas.TextOut(170, 550, PakkeshopLabel.PakkeshopPostnr); + + end; + + + + Canvas.TextOut(550, 460, 'Afsender:'); + Canvas.TextOut(550, 490, PakkeshopLabel.AfsenderNavn); + Canvas.TextOut(550, 520, PakkeshopLabel.AfsenderAdresse); + Canvas.TextOut(550, 550, PakkeshopLabel.AfsenderPostnr); + + Dirigering := PakkeshopLabel.PakkeshopSted + ' | ' + PakkeshopLabel.PakkeshopTurid + ' | ' + PakkeshopLabel.PakkeshopNr; + if ( PakkeshopLabel.Koreliste <> '') then + begin + Dirigering := Dirigering + ' > ' + PakkeshopLabel.Koreliste; + end; + + + Canvas.Font.Size := 12; + Canvas.TextOut(40, 680, Dirigering); + + + + + + //Tegn adskillelses linier + Canvas.Pen.Width := 2; + //Øverste linie + Canvas.MoveTo( 40, 180); + Canvas.LineTo(900, 180); + + // Midterste linie + Canvas.MoveTo( 40, 440); + Canvas.LineTo(900, 440); + + //Nederste linie + Canvas.MoveTo( 40, 640); + Canvas.LineTo(900, 640); + + + //Tegn skrå streger over afsender + Canvas.Pen.Width := 1; + Canvas.MoveTo(840, 450); + Canvas.LineTo(540, 590); + Canvas.MoveTo(840, 590); + Canvas.LineTo(540, 450); + + + + // Resten af rutinen vedr genering og placering af Barcode + + Barcode.Font.Size := 9; + Barcode.BarToSpaceRatio := 0.9; + + + BarCode.BarCodeType := bcCode128; + BarCode.Code128Subset := csCodeC; + BarCode.Code := PakkeshopLabel.Stregkode; + BarCode.Validate(True); + + +// parentForm.Msg( inttostr( Barcode.Font.Size) );//Default 8 +// parentForm.Msg( Double.ToString( Barcode.BarNarrowToWideRatio) );//Default 2 +// parentForm.Msg( Double.ToString( Barcode.BarToSpaceRatio) );//Default 1 +// parentForm.Msg( Double.ToString(BarCode.Width ) );//default 200 + + + //Start X-formation + //ShowMessage( Format('%d %d', [PageWidth, PageHeight]) ); + GetWorldTransform(Canvas.Handle, XFormOld); + + Angle := 270; + XForm.eM11 := Cos(DegToRad(Angle)); + XForm.eM12 := Sin(DegToRad(Angle)); + XForm.eM21 := -Sin(DegToRad(Angle)); + XForm.eM22 := Cos(DegToRad(Angle)); + XForm.eDx := 0; + XForm.eDy := 0; + + gMode := SetGraphicsMode(Canvas.Handle, GM_ADVANCED); + SetWorldTransform(Canvas.Handle, XForm); + + // PaintToCanvasSize arbejder i Inches + // Første pos argument bliver nu Y og skal være negativ for at rykke den ned + //Anden pos er X og skal være positiv for at justere ind fra venstre mod højre + + BarCode.PaintToCanvasSize(Printer.Canvas, -2.7, 4.8, 0.5); + + + + + SetWorldTransform(Canvas.Handle, XFormOld); + SetGraphicsMode(Canvas.Handle, gMode); + + EndDoc(); + end; + + + Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725 +end; + function TLabelPrint.SavePChar(p: PChar): PChar; const error: PChar = 'Nil'; @@ -397,6 +600,105 @@ Result := p; end; +// Online zpl viewer +// http://labelary.com/viewer.html +procedure TLabelPrint.TestZpl(); +var + zpl: string; +begin + zpl := +'^XA'#13#10 + +'^PON'#13#10 + +'^FWN'#13#10 + + +'^FX Top section with company logo, name and address.'#13#10 + +'^CF0,60'#13#10 + +'^FO50,50^GB100,100,100^FS'#13#10+ +'^FO75,75^FR^GB100,100,100^FS'#13#10+ +'^FO88,88^GB50,50,50^FS'#13#10+ +'^FO220,50^FDInternational Shipping, Inc.^FS'#13#10+ +'^CF0,40'#13#10+ +'^FO220,100^FD1000 Shipping Lane^FS'#13#10+ +'^FO220,135^FDShelbyville TN 38102^FS'#13#10+ +'^FO220,170^FDUnited States (USA)^FS'#13#10+ +'^FO50,250^GB700,1,3^FS'#13#10 + +'^XZ'#13#10 + ; + + PrintZpl(zpl); +end; + +procedure TLabelPrint.PrintZPL( ZplData : string); +var + ADevice, ADeviceName, ADevicePort: array[0..255]of Char; + PrinterHandle: THandle; + DocInfo: TDocInfo1; + dwJob: cardinal; + dwBytesWritten: cardinal; + AUtf8: UTF8string; + ADeviceMode: THandle; + +begin + + + Printer.GetPrinter(ADevice, ADeviceName, ADevicePort, ADeviceMode); + + if not OpenPrinter(ADevice, PrinterHandle, nil) then + begin + Exit; + parentForm.Msg('error on openprinter'); + end; + + //Fill in the structure with info about this "document" + DocInfo.pDocName := PChar('Spooler Document Name'); + DocInfo.pOutputFile := nil; + DocInfo.pDatatype := 'RAW'; + + //Inform the spooler the document is beginning + dwJob := StartDocPrinter(PrinterHandle, 1, @DocInfo); + if dwJob = 0 then + begin + ClosePrinter(PrinterHandle); + PrinterHandle := 0; + Exit; + end; + + //Start a page + if not StartPagePrinter(PrinterHandle) then + begin + EndDocPrinter(PrinterHandle); + ClosePrinter(PrinterHandle); + PrinterHandle := 0; + Exit; + end; + + //your zebra code... + AUtf8 := UTF8string(ZplData); + WritePrinter(PrinterHandle, @AUtf8[1], Length(AUtf8), dwBytesWritten); + + //End the page + if not EndPagePrinter(PrinterHandle) then + begin + EndDocPrinter(PrinterHandle); + ClosePrinter(PrinterHandle); + PrinterHandle := 0; + Exit; + end; + + //Inform the spooler that the document is ending + if not EndDocPrinter(PrinterHandle) then + begin + ClosePrinter(PrinterHandle); + PrinterHandle := 0; + Exit; + end; + + //Tidy up the printer handle + ClosePrinter(PrinterHandle); + PrinterHandle := 0; + +end; + function TLabelPrint.GetPrinterCount() : Integer; begin