/[projects]/dao/DelphiScanner/LabelPrint.pas
ViewVC logotype

Diff of /dao/DelphiScanner/LabelPrint.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3094 by torben, Fri Aug 19 14:35:39 2016 UTC revision 3101 by torben, Mon Aug 22 21:58:10 2016 UTC
# Line 20  type Line 20  type
20    
21      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
22    
23        procedure PrintSimpelLabel( LabelData : TLabelData) ;
24    
25    
26      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
     procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);  
     procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);  
27    
28    
29      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
30    
     procedure TestZpl();  
     procedure PrintZPL( ZplData : string);  
31    
32      function GetPrinterCount() : Integer;      function GetPrinterCount() : Integer;
33    
# Line 38  type Line 37  type
37      var Config: TConfiguration;      var Config: TConfiguration;
38    
39    
40        procedure PrintZPL( ZplData : string);
41    
42        procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
43        procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
44    
45    
46      function SavePChar(p: PChar): PChar;      function SavePChar(p: PChar): PChar;
47      function GetCurrentPrinterHandle(): THandle;      function GetCurrentPrinterHandle(): THandle;
48    
# Line 55  uses Line 60  uses
60    Math, // DegToRad() bruges i PrinTLabelData    Math, // DegToRad() bruges i PrinTLabelData
61    Forms,    Forms,
62    IdHTTP,    IdHTTP,
63    Graphics    Graphics,
64      XMLDoc
65    ;    ;
66    
67    
# Line 163  begin Line 169  begin
169  //            'Test'  skal vise alarmlinie, samt opdatere listbox1  //            'Test'  skal vise alarmlinie, samt opdatere listbox1
170  //            'Timer' skal kun vise alarmlinie  //            'Timer' skal kun vise alarmlinie
171    
172    if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then  //  if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then
173    begin  //  begin
174    //
175      parentForm.LogMessage( 'Der er fravalgt printer i dette program' );  //    parentForm.LogMessage( 'Der er fravalgt printer i dette program' );
176    end  //  end
177    else if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then  //  else
178      if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then
179    begin    begin
180      parentForm.LogMessage( 'Der er ikke installeret en printer på denne PC' );      parentForm.LogMessage( 'Der er ikke installeret en printer på denne PC' );
181    end    end
# Line 249  var Line 256  var
256    
257    httpClient: TIdHTTP;    httpClient: TIdHTTP;
258    
259      XMLDocument1: TXMLDocument;
260    
261      LabelData: TLabelData;
262    
263    
264  begin  begin
# Line 263  begin Line 273  begin
273    httpClient.Free();    httpClient.Free();
274    
275    
276      XMLDocument1 := parentForm.GetXMLDocument();
277    
278      XMLDocument1.LoadFromXML(response);
279    
280      LabelData := TLabelData.Create(XMLDocument1);
281    
282      if LabelData.LabelType = 'zpl' then
283      begin
284        PrintZPL(LabelData.ZPL);
285      end
286      else if (LabelData.LabelType = 'simpel') then
287      begin
288        PrintSimpelLabel(LabelData);
289      end
290      else
291      begin
292        PrintFuldPakkeLabel(LabelData);
293      end;
294    
295    
296    
297    
298    
299    
300    
301  end;  end;
# Line 601  begin Line 634  begin
634  end;  end;
635    
636  // Online zpl viewer  // 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  
   ;  
637    
   PrintZpl(zpl);  
 end;  
638    
639  procedure TLabelPrint.PrintZPL( ZplData : string);  procedure TLabelPrint.PrintZPL( ZplData : string);
640  var  var
# Line 699  begin Line 707  begin
707    
708  end;  end;
709    
710    procedure TLabelPrint.PrintSimpelLabel( LabelData : TLabelData) ;
711    begin
712      with Printer do
713          begin
714            BeginDoc;
715    
716            Canvas.Font.Size := Config.FontSizeRute;
717            if (Length(LabelData.SimpelLinie1) > 7) then
718            begin
719              Canvas.Font.Size := Config.FontSizeRuteLille;
720            end;
721            Canvas.TextOut(Config.XPosRute, Config.YPosRute, LabelData.SimpelLinie1);
722            Canvas.Font.Size := Config.FontSizeKommentar;
723            LabelData.SimpelLinie2 := StringReplace(LabelData.SimpelLinie2, #$A, ' - ', [rfReplaceAll, rfIgnoreCase]);
724            if (LabelData.SimpelLinie2 = 'Ok') or (LabelData.SimpelLinie2 = 'ALLEREDE SCANNET') then
725            begin
726              LabelData.SimpelLinie2 := '';
727            end;
728            if (LabelData.SimpelLinie3 = 'PAKKE ER SCANNET') then
729            begin
730              LabelData.SimpelLinie3 := '';
731            end;
732            Canvas.TextOut(Config.XPosKommentar, Config.YPosKommentar, LabelData.SimpelLinie2);
733            Canvas.Font.Size := Config.FontSizeBoghandler;
734            Canvas.TextOut(Config.XPosBoghandler, Config.YPosBoghandler, LabelData.SimpelLinie3);
735            EndDoc;
736          end;
737    
738    
739    
740      Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
741    
742    end;
743    
744    
745    
746  function TLabelPrint.GetPrinterCount() : Integer;  function TLabelPrint.GetPrinterCount() : Integer;
747  begin  begin
Legend:
Removed from v.3094  
changed lines
  Added in v.3101
  ViewVC Help
Powered by ViewVC 1.1.20