--- dao/DelphiScanner/LabelPrint.pas 2016/08/15 12:44:21 3086 +++ dao/DelphiScanner/LabelPrint.pas 2016/08/22 18:27:30 3099 @@ -4,7 +4,7 @@ uses ParentForm, - PakkeshopLabels, + LabelData, Configuration, StBarc; @@ -20,12 +20,15 @@ procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = ''); - procedure PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel); + procedure PrintSimpelLabel( LabelData : TLabelData) ; + + procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData); + procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData); + procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData); procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ; - procedure TestZpl(); procedure PrintZPL( ZplData : string); function GetPrinterCount() : Integer; @@ -50,9 +53,11 @@ WinSpool, Windows, SysUtils, //Format - Math, // DegToRad() bruges i PrintPakkeshopLabel + Math, // DegToRad() bruges i PrinTLabelData Forms, - IdHTTP + IdHTTP, + Graphics, + XMLDoc ; @@ -160,12 +165,13 @@ // 'Test' skal vise alarmlinie, samt opdatere listbox1 // 'Timer' skal kun vise alarmlinie - if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then - begin - - parentForm.LogMessage( 'Der er fravalgt printer i dette program' ); - end - else if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then +// if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then +// begin +// +// parentForm.LogMessage( 'Der er fravalgt printer i dette program' ); +// end +// else + if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then begin parentForm.LogMessage( 'Der er ikke installeret en printer på denne PC' ); end @@ -246,10 +252,14 @@ httpClient: TIdHTTP; + XMLDocument1: TXMLDocument; + + LabelData: TLabelData; begin - url := Config.BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=' + Trim(Stregkode); + + url := Format(Config.URLPrintLabel, [Stregkode] ); httpClient := TIdHTTP.Create(); httpClient.ReadTimeout := 1000;//max 1 secound @@ -259,6 +269,29 @@ httpClient.Free(); + XMLDocument1 := parentForm.GetXMLDocument(); + + XMLDocument1.LoadFromXML(response); + + LabelData := TLabelData.Create(XMLDocument1); + + if LabelData.LabelType = 'zpl' then + begin + PrintZPL(LabelData.ZPL); + end + else if (LabelData.LabelType = 'simpel') then + begin + PrintSimpelLabel(LabelData); + end + else + begin + PrintFuldPakkeLabel(LabelData); + end; + + + + + end; @@ -310,9 +343,23 @@ end; +procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TLabelData); +begin + if (Config.LabelStor = 1) then + begin + PrintFuldPakkeLabelStor( PakkeshopLabel ); + + end + else + begin + PrintFuldPakkeLabelLille( PakkeshopLabel ); + + end; + +end; -// ToDo: PrintPakkeshopLabel() -procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel); +// Bruges til label der passer til 60x100 +procedure TLabelPrint.PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData); var XForm, XFormOld: TXForm; //Bruges til rotate X-formation Angle: integer; @@ -435,6 +482,143 @@ end; +// Bruges til label der passer til 100x150 +procedure TLabelPrint.PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData); +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'; @@ -446,32 +630,7 @@ 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 @@ -544,6 +703,41 @@ end; +procedure TLabelPrint.PrintSimpelLabel( LabelData : TLabelData) ; +begin + with Printer do + begin + BeginDoc; + + Canvas.Font.Size := Config.FontSizeRute; + if (Length(LabelData.SimpelLinie1) > 7) then + begin + Canvas.Font.Size := Config.FontSizeRuteLille; + end; + Canvas.TextOut(Config.XPosRute, Config.YPosRute, LabelData.SimpelLinie1); + Canvas.Font.Size := Config.FontSizeKommentar; + LabelData.SimpelLinie2 := StringReplace(LabelData.SimpelLinie2, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]); + if (LabelData.SimpelLinie2 = 'Ok') or (LabelData.SimpelLinie2 = 'ALLEREDE SCANNET') then + begin + LabelData.SimpelLinie2 := ''; + end; + if (LabelData.SimpelLinie3 = 'PAKKE ER SCANNET') then + begin + LabelData.SimpelLinie3 := ''; + end; + Canvas.TextOut(Config.XPosKommentar, Config.YPosKommentar, LabelData.SimpelLinie2); + Canvas.Font.Size := Config.FontSizeBoghandler; + Canvas.TextOut(Config.XPosBoghandler, Config.YPosBoghandler, LabelData.SimpelLinie3); + EndDoc; + end; + + + + Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725 + +end; + + function TLabelPrint.GetPrinterCount() : Integer; begin