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

Diff of /dao/DelphiScanner/Main.pas

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

revision 2682 by torben, Wed Aug 26 19:52:38 2015 UTC revision 2694 by torben, Thu Sep 3 14:31:39 2015 UTC
# Line 8  uses Line 8  uses
8    IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,    IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts,
9    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,
10    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,
11    Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet,    Winspool, ShellApi, ClipBrd, Buttons, wininet,
12    UITypes,    UITypes,
13    PakkeshopLabels,    PakkeshopLabels,
14    StBarC,    StBarC,
# Line 52  type Line 52  type
52      Testlyd1: TMenuItem;      Testlyd1: TMenuItem;
53      ListBox1: TListBox;      ListBox1: TListBox;
54      Budlevering1: TMenuItem;      Budlevering1: TMenuItem;
55      DownloadButton01: TButton;      BtnDownloadKontrolfil: TButton;
56      IdFTP1: TIdFTP;      IdFTP1: TIdFTP;
57      Image1: TImage;      Image1: TImage;
58      ListBox2: TListBox;      ListBox2: TListBox;
# Line 93  type Line 93  type
93      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
94      menuIndlevering: TMenuItem;      menuIndlevering: TMenuItem;
95    
   
   function Sto_GetFmtFileVersion(const FileName: String = ''): String;  
   
96    function getProddato() : TDate;    function getProddato() : TDate;
97    function getProddag() : String;    function getProddag() : String;
98    function retRutenummer(rutenummer : String) : String;    function retRutenummer(rutenummer : String) : String;
99    function GetCurrentPrinterHandle() : THandle;    function GetCurrentPrinterHandle() : THandle;
100    function SavePChar(p: PChar): PChar;    function SavePChar(p: PChar): PChar;
101    function AdobeReaderExists(): Boolean;  
102    function FileTime2DateTime(FileTime: TFileTime): TDateTime;    function FileTime2DateTime(FileTime: TFileTime): TDateTime;
   function CheckUrl(url:string):boolean;  
103    
104    procedure PlaySound(filename : PWideChar);    procedure PlaySound(filename : PWideChar);
105    procedure StartScreen();    procedure StartScreen();
# Line 134  type Line 130  type
130    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
131    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
132    procedure Budlevering1Click(Sender: TObject);    procedure Budlevering1Click(Sender: TObject);
133    procedure DownloadButton01Click(Sender: TObject);    procedure BtnDownloadKontrolfilClick(Sender: TObject);
134    procedure OpdaterListenButton01Click(Sender: TObject);    procedure OpdaterListenButton01Click(Sender: TObject);
135    procedure DownloadBladhusRuteskiftfil();    procedure DownloadBladhusRuteskiftfil();
136    procedure DownloadBladhusKontrolfil();    procedure DownloadBladhusKontrolfil();
# Line 193  type Line 189  type
189      SkrivLog : String;      SkrivLog : String;
190      Sted : String;      Sted : String;
191      StedNavn : String;      StedNavn : String;
192      Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlEKLoverforsel : String;      Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel : String;
193  // 29150330: start  // 29150330: start
194      UrlEKLoverforselPakkeshop : String;      UrlEKLoverforselPakkeshop : String;
195  // 20150330: slut  // 20150330: slut
# Line 207  type Line 203  type
203      AlarmLyd : String;      AlarmLyd : String;
204      ScannetOkLyd : String;      ScannetOkLyd : String;
205      ScannetOkStorLyd : String;      ScannetOkStorLyd : String;
206  // 20150317: start  
207      ScannetOkTilTjekkodeLyd : String;      ScannetOkTilTjekkodeLyd : String;
208  // 20150317: slut  
209      PrinterNavn : String;      PrinterNavn : String;
210      TjekPrinter : String;      TjekPrinter : String;
211      XPosRute : integer;      XPosRute : integer;
# Line 498  end; Line 494  end;
494    
495  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);  procedure TMainForm.Automatiskvalg1Click(Sender: TObject);
496  begin  begin
 // 20150317: start  
 (*  
   if Automatiskvalg1.Checked then  
   begin  
      AutomatiskValg1.Checked := true;  
      PanelValgA.Color := clGreen;  
      PanelValgA.Font.Color := clWhite;  
   end  
   else  
   begin  
      AutomatiskValg1.Checked := false;  
      PanelValgA.Color := clBtnFace;  
      PanelValgA.Font.Color := clWindowText;  
   end;  
 *)  
497  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
498  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
499       AutomatiskValg1.Checked := true;       AutomatiskValg1.Checked := true;
500       PanelValgA.Color := clGreen;       PanelValgA.Color := clGreen;
501       PanelValgA.Font.Color := clWhite;       PanelValgA.Font.Color := clWhite;
 // 20150317: slut  
502  end;  end;
503    
504  procedure TMainForm.FormCreate(Sender: TObject);  procedure TMainForm.FormCreate(Sender: TObject);
# Line 578  begin Line 558  begin
558      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');
559      UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');      UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
560    
561    
562      UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');      UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
563        UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
564    
565    
566    
567      LabelType := ReadInteger('Settings','LabelType',1);      LabelType := ReadInteger('Settings','LabelType',1);
# Line 618  begin Line 601  begin
601    
602      if (SkrivLog = '1') then      if (SkrivLog = '1') then
603      begin      begin
604        logTekst := 'Program start (Version: ' + Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);        logTekst := 'Program start (Version: ' + TUtils.Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
605        try        try
606          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
607          Uploadlogfil1.Enabled := true;          Uploadlogfil1.Enabled := true;
# Line 790  begin Line 773  begin
773      // Hvis specialversion er valgt (SpecialVersionSted er sat til en værdi ovenfor)      // Hvis specialversion er valgt (SpecialVersionSted er sat til en værdi ovenfor)
774      // ændrer vi Sted og Scanningtype her:      // ændrer vi Sted og Scanningtype her:
775    
 // 20150313: start  
776      if SpecialVersionSted = 'NS' then      if SpecialVersionSted = 'NS' then
777      begin      begin
778         SpecialVersionSted := '01';         SpecialVersionSted := '01';
# Line 801  begin Line 783  begin
783         SpecialVersionSted := '03';         SpecialVersionSted := '03';
784         SpecialVersionScanningtype := '4';         SpecialVersionScanningtype := '4';
785      end;      end;
 // 20150313: slut  
786    
787      if SpecialVersionSted = 'BK' then      if SpecialVersionSted = 'BK' then
788      begin      begin
# Line 1146  begin Line 1127  begin
1127      Scanningtype := gemScanningtype;      Scanningtype := gemScanningtype;
1128    
1129      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
1130      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion(''));      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', TUtils.Sto_GetFmtFileVersion(''));
1131    
1132  end;  end;
1133    
# Line 1995  begin Line 1976  begin
1976      01 :      01 :
1977            begin;      // NS            begin;      // NS
1978              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1979              DownloadButton01.Enabled := true;              BtnDownloadKontrolfil.Enabled := true;
1980              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
1981              IdFTP1.Passive := true;              IdFTP1.Passive := true;
1982              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2011  begin Line 1992  begin
1992              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
1993              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1994              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1995              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
1996              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
1997              IdFTP1.Passive := true;              IdFTP1.Passive := true;
1998              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2028  begin Line 2009  begin
2009              begin              begin
2010                DownloadButton03.Visible := false;                DownloadButton03.Visible := false;
2011              end;              end;
2012              DownloadButton01.Enabled := true;              BtnDownloadKontrolfil.Enabled := true;
2013              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2014              IdFTP1.Passive := true;              IdFTP1.Passive := true;
2015              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2049  begin Line 2030  begin
2030              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2031              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2032              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2033              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
2034              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2035              IdFTP1.Passive := true;              IdFTP1.Passive := true;
2036              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2673  begin Line 2654  begin
2654          // Tjekker UrlNormal          // Tjekker UrlNormal
2655          if PanelValg1.Enabled = true then          if PanelValg1.Enabled = true then
2656          begin          begin
2657            if CheckUrl(UrlNormal) then            if TUtils.CheckUrl(UrlNormal) then
2658            begin            begin
2659              logTekst := 'UrlNormal accepteret: ' + UrlNormal;              logTekst := 'UrlNormal accepteret: ' + UrlNormal;
2660              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2702  begin Line 2683  begin
2683          // Tjekker UrlReturDAO          // Tjekker UrlReturDAO
2684          if PanelValg2.Enabled = true then          if PanelValg2.Enabled = true then
2685          begin          begin
2686            if CheckUrl(UrlReturDAO) then            if TUtils.CheckUrl(UrlReturDAO) then
2687            begin            begin
2688              logTekst := 'UrlReturDAO accepteret: ' + UrlReturDAO;              logTekst := 'UrlReturDAO accepteret: ' + UrlReturDAO;
2689              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2730  begin Line 2711  begin
2711          // Tjekker UrlReturBoghandler          // Tjekker UrlReturBoghandler
2712          if PanelValg3.Enabled = true then          if PanelValg3.Enabled = true then
2713          begin          begin
2714            if CheckUrl(UrlReturBoghandler) then            if TUtils.CheckUrl(UrlReturBoghandler) then
2715            begin            begin
2716              logTekst := 'UrlReturBoghandler accepteret: ' + UrlReturBoghandler;              logTekst := 'UrlReturBoghandler accepteret: ' + UrlReturBoghandler;
2717              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2758  begin Line 2739  begin
2739          // Tjekker UrlBudlevering          // Tjekker UrlBudlevering
2740          if PanelValg4.Enabled = true then          if PanelValg4.Enabled = true then
2741          begin          begin
2742            if CheckUrl(UrlBudlevering) then            if TUtils.CheckUrl(UrlBudlevering) then
2743            begin            begin
2744              logTekst := 'UrlBudlevering accepteret: ' + UrlBudlevering;              logTekst := 'UrlBudlevering accepteret: ' + UrlBudlevering;
2745              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2786  begin Line 2767  begin
2767          // Tjekker UrlPakkeshoplevering          // Tjekker UrlPakkeshoplevering
2768          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
2769          begin          begin
2770            if CheckUrl(UrlPakkeshoplevering) then            if TUtils.CheckUrl(UrlPakkeshoplevering) then
2771            begin            begin
2772              logTekst := 'UrlPakkeshoplevering accepteret: ' + UrlPakkeshoplevering;              logTekst := 'UrlPakkeshoplevering accepteret: ' + UrlPakkeshoplevering;
2773              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2814  begin Line 2795  begin
2795          // Tjekker UrlReturPakkeshop          // Tjekker UrlReturPakkeshop
2796          if PanelValg6.Enabled = true then          if PanelValg6.Enabled = true then
2797          begin          begin
2798            if CheckUrl(UrlReturPakkeshop) then            if TUtils.CheckUrl(UrlReturPakkeshop) then
2799            begin            begin
2800              logTekst := 'UrlReturPakkeshop accepteret: ' + UrlReturPakkeshop;              logTekst := 'UrlReturPakkeshop accepteret: ' + UrlReturPakkeshop;
2801              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2843  begin Line 2824  begin
2824          if (PanelValg1.Enabled = true)          if (PanelValg1.Enabled = true)
2825          or (PanelValg4.Enabled = true) then          or (PanelValg4.Enabled = true) then
2826          begin          begin
2827            if CheckUrl(UrlManglendeScanninger) then            if TUtils.CheckUrl(UrlManglendeScanninger) then
2828            begin            begin
2829              logTekst := 'UrlManglendeScanninger accepteret: ' + UrlManglendeScanninger;              logTekst := 'UrlManglendeScanninger accepteret: ' + UrlManglendeScanninger;
2830              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2871  begin Line 2852  begin
2852          // Tjekker UrlPakkeshopManglendeScanninger          // Tjekker UrlPakkeshopManglendeScanninger
2853          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
2854          begin          begin
2855            if CheckUrl(UrlPakkeshopManglendeScanninger) then            if TUtils.CheckUrl(UrlPakkeshopManglendeScanninger) then
2856            begin            begin
2857              logTekst := 'UrlPakkeshopManglendeScanninger accepteret: ' + UrlPakkeshopManglendeScanninger;              logTekst := 'UrlPakkeshopManglendeScanninger accepteret: ' + UrlPakkeshopManglendeScanninger;
2858              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2899  begin Line 2880  begin
2880          // Tjekker UrlPakkeshopManglendeReturScanninger          // Tjekker UrlPakkeshopManglendeReturScanninger
2881          if PanelValg6.Enabled = true then          if PanelValg6.Enabled = true then
2882          begin          begin
2883            if CheckUrl(UrlPakkeshopManglendeReturScanninger) then            if TUtils.CheckUrl(UrlPakkeshopManglendeReturScanninger) then
2884            begin            begin
2885              logTekst := 'UrlPakkeshopManglendeReturScanninger accepteret: ' + UrlPakkeshopManglendeReturScanninger;              logTekst := 'UrlPakkeshopManglendeReturScanninger accepteret: ' + UrlPakkeshopManglendeReturScanninger;
2886              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2924  begin Line 2905  begin
2905            end;            end;
2906          end;          end;
2907    
2908           // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
2909            if PanelValg7.Enabled = true then
2910            begin
2911              if TUtils.CheckUrl(UrlIndleveringsPakke) then
2912              begin
2913                logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke;
2914                SkrivScanningLogFil(logTekst);
2915              end
2916              else
2917              begin
2918                inc(urlFejl);   // Optæller antal fejl
2919                logTekst := 'UrlIndleveringsPakke svarer ikke: ' + UrlIndleveringsPakke;
2920                ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2921                if TjekUrls = '1' then
2922                begin
2923                  logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2924                end;
2925                SkrivScanningLogFil(logTekst);
2926                if TjekUrls = '1' then
2927                begin
2928                  ShowMessage(logTekst);
2929                  UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2930                  Application.Terminate;
2931                  exit;
2932                end;
2933              end;
2934    
2935              if TUtils.CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
2936              begin
2937                logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger;
2938                SkrivScanningLogFil(logTekst);
2939              end
2940              else
2941              begin
2942                inc(urlFejl);   // Optæller antal fejl
2943                logTekst := 'UrlIndleveringsPakkeManglendeScanninger svarer ikke: ' + UrlIndleveringsPakkeManglendeScanninger;
2944                ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst);
2945                if TjekUrls = '1' then
2946                begin
2947                  logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... ';
2948                end;
2949                SkrivScanningLogFil(logTekst);
2950                if TjekUrls = '1' then
2951                begin
2952                  ShowMessage(logTekst);
2953                  UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
2954                  Application.Terminate;
2955                  exit;
2956                end;
2957              end;
2958            end;
2959    
2960          // Tjekker UrlEKLoverforsel          // Tjekker UrlEKLoverforsel
2961          if PanelValg1.Enabled = true then          if PanelValg1.Enabled = true then
2962          begin          begin
2963            if CheckUrl(UrlEKLoverforsel) then            if TUtils.CheckUrl(UrlEKLoverforsel) then
2964            begin            begin
2965              logTekst := 'UrlEKLoverforsel accepteret: ' + UrlEKLoverforsel;              logTekst := 'UrlEKLoverforsel accepteret: ' + UrlEKLoverforsel;
2966              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2956  begin Line 2989  begin
2989          // Tjekker UrlEKLoverforselPakkeshop          // Tjekker UrlEKLoverforselPakkeshop
2990          if PanelValg5.Enabled = true then          if PanelValg5.Enabled = true then
2991          begin          begin
2992            if CheckUrl(UrlEKLoverforselPakkeshop) then            if TUtils.CheckUrl(UrlEKLoverforselPakkeshop) then
2993            begin            begin
2994              logTekst := 'UrlEKLoverforselPakkeshop accepteret: ' + UrlEKLoverforselPakkeshop;              logTekst := 'UrlEKLoverforselPakkeshop accepteret: ' + UrlEKLoverforselPakkeshop;
2995              SkrivScanningLogFil(logTekst);              SkrivScanningLogFil(logTekst);
# Line 2983  begin Line 3016  begin
3016    
3017    
3018          // Tjekker UrlFindPakketype          // Tjekker UrlFindPakketype
3019          if CheckUrl(UrlFindPakketype) then          if TUtils.CheckUrl(UrlFindPakketype) then
3020          begin          begin
3021            logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype;            logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype;
3022            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
# Line 3008  begin Line 3041  begin
3041          end;          end;
3042    
3043          // Tjekker UrlSendPrograminfo          // Tjekker UrlSendPrograminfo
3044          if CheckUrl(UrlSendPrograminfo) then          if TUtils.CheckUrl(UrlSendPrograminfo) then
3045          begin          begin
3046            logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo;            logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo;
3047            SkrivScanningLogFil(logTekst);            SkrivScanningLogFil(logTekst);
# Line 3207  end; Line 3240  end;
3240    
3241  procedure TMainForm.PanelValgAClick(Sender: TObject);  procedure TMainForm.PanelValgAClick(Sender: TObject);
3242  begin  begin
 // 20150311: start  
 (*  
   if PanelValgA.Color = clBtnFace then  
   begin  
      AutomatiskValg1.Checked := true;  
      PanelValgA.Color := clGreen;  
      PanelValgA.Font.Color := clWhite;  
   end  
   else  
   begin  
      AutomatiskValg1.Checked := false;  
      PanelValgA.Color := clBtnFace;  
      PanelValgA.Font.Color := clWindowText;  
   end;  
 *)  
3243  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
3244  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
3245       AutomatiskValg1.Checked := true;    AutomatiskValg1.Checked := true;
3246       PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
3247       PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
3248  // 20150311: slut  
3249    
3250    
3251  end;  end;
3252    
3253  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.Pakkernormal1Click(Sender: TObject);
# Line 3342  var Line 3362  var
3362   tekst, filversion : String;   tekst, filversion : String;
3363  begin  begin
3364    
3365    filversion := Sto_GetFmtFileVersion('');    filversion := TUtils.Sto_GetFmtFileVersion('');
3366    tekst := 'Program til indscanning af pakker'+crlf+'Version '+filversion+crlf+crlf+'Udviklet af it afdelingen, DAO';    tekst := 'Program til indscanning af pakker'+crlf+'Version '+filversion+crlf+crlf+'Udviklet af it afdelingen, DAO';
3367    
3368    tekst := tekst+crlf+crlf;    tekst := tekst+crlf+crlf;
# Line 3437  begin Line 3457  begin
3457    
3458    if FileExists(fileName) then    if FileExists(fileName) then
3459    begin    begin
3460      if AdobeReaderExists then      if TUtils.AdobeReaderExists then
3461      begin      begin
3462        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
3463        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
# Line 3461  begin Line 3481  begin
3481    
3482    if FileExists(fileName) then    if FileExists(fileName) then
3483    begin    begin
3484      if AdobeReaderExists then      if TUtils.AdobeReaderExists then
3485      begin      begin
3486        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);        //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);
3487        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);        ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL);
# Line 3620  begin Line 3640  begin
3640        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3641        ListBox1.Visible := true;        ListBox1.Visible := true;
3642        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3643        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3644        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3645        DownloadButton03.Visible := false;        DownloadButton03.Visible := false;
3646        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
# Line 3656  begin Line 3676  begin
3676        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3677        ListBox1.Visible := true;        ListBox1.Visible := true;
3678        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3679        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3680        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3681    
3682        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3693  begin Line 3713  begin
3713        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3714        ListBox1.Visible := true;        ListBox1.Visible := true;
3715        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3716        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3717        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3718        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3719        InitLillePakke();        InitLillePakke();
# Line 3740  begin Line 3760  begin
3760        ListBox1.Visible := true;        ListBox1.Visible := true;
3761        ListBox1.Items.Clear();        ListBox1.Items.Clear();
3762    
3763        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3764        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3765        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3766        InitLillePakke();        InitLillePakke();
# Line 3780  begin Line 3800  begin
3800  // 20150310: slut  // 20150310: slut
3801  end;  end;
3802    
 /// <summary>  
 ///   This function reads the file resource of "FileName" and returns  
 ///   the version number as formatted text.</summary>  
 /// <example>  
 ///   Sto_GetFmtFileVersion() = '4.13.128.0'  
 ///   Sto_GetFmtFileVersion('', '%.2d-%.2d-%.2d') = '04-13-128'  
 /// </example>  
 /// <remarks>If "Fmt" is invalid, the function may raise an  
 ///   EConvertError exception.</remarks>  
 /// <param name="FileName">Full path to exe or dll. If an empty  
 ///   string is passed, the function uses the filename of the  
 ///   running exe or dll.</param>  
 /// <param name="Fmt">Format string, you can use at most four integer  
 ///   values.</param>  
 /// <returns>Formatted version number of file, '' if no version  
 ///   resource found.</returns>  
 function TMainForm.Sto_GetFmtFileVersion(const FileName: String = ''): String;  
 var  
   sFileName: String;  
   iBufferSize: DWORD;  
   iDummy: DWORD;  
   pBuffer: Pointer;  
   pFileInfo: Pointer;  
   iVer: array[1..4] of Integer;  
 begin  
   // set default value  
   Result := '';  
   // get filename of exe/dll if no filename is specified  
   sFileName := Trim(FileName);  
   if (sFileName = '') then  
     sFileName := GetModuleName(HInstance);  
   // get size of version info (0 if no version info exists)  
   iBufferSize := GetFileVersionInfoSize(PChar(sFileName), iDummy);  
   if (iBufferSize > 0) then  
   begin  
     GetMem(pBuffer, iBufferSize);  
     try  
     // get fixed file info (language independent)  
     GetFileVersionInfo(PChar(sFileName), 0, iBufferSize, pBuffer);  
     VerQueryValue(pBuffer, '\', pFileInfo, iDummy);  
     // read version blocks  
     iVer[1] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);  
     iVer[2] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);  
     iVer[3] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);  
     iVer[4] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);  
     finally  
       FreeMem(pBuffer);  
     end;  
   
     // format result string  
     Result := Format('%d.%d.%d.%d', [iVer[1], iVer[2], iVer[3], iVer[4]]);  
3803    
   end;  
 end;  
3804    
3805  procedure TMainForm.PlaySound(filename : PWideChar);  procedure TMainForm.PlaySound(filename : PWideChar);
3806  begin  begin
# Line 4503  begin Line 4470  begin
4470    ListBox1.SetFocus;  // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode    ListBox1.SetFocus;  // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
4471  end;  end;
4472    
4473  procedure TMainForm.DownloadButton01Click(Sender: TObject);  procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject);
4474  begin  begin
4475      DownloadBladhusKontrolfil();      DownloadBladhusKontrolfil();
4476      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
# Line 4534  var Line 4501  var
4501    XForm, XFormOld: TXForm; //Bruges til rotate X-formation    XForm, XFormOld: TXForm; //Bruges til rotate X-formation
4502    Angle: integer;    Angle: integer;
4503    gMode: integer;    gMode: integer;
   BarcodeArea: TRect;  
4504    Dirigering: string;    Dirigering: string;
4505    
4506  begin  begin
# Line 4687  var Line 4653  var
4653        end;        end;
4654    
4655    
4656      if (Scanningtype = '6') then  
4657        if (Scanningtype = '7') then
4658       begin       begin
4659        URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]);        URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
4660         end
4661        else if (Scanningtype = '6') then
4662         begin
4663          URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);
4664       end       end
4665      else if (Scanningtype = '5') then      else if (Scanningtype = '5') then
4666       begin       begin
4667        URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]);        URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);
4668       end       end
4669      else if (Scanningtype = '1') then      else if (Scanningtype = '1') then
4670       begin       begin
# Line 5380  begin Line 5351  begin
5351    end;    end;
5352  end;  end;
5353    
 function TMainForm.AdobeReaderExists: Boolean;  
 var  
   AReg: TRegistry;  
 begin  
   result:= false;  
   AReg := TRegistry.Create;  
   AReg.RootKey := HKEY_LOCAL_MACHINE;  
   if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then  
     result:= True;  
   AReg.Free;  
 end;  
5354    
5355    
 function TMainForm.CheckUrl(url:string):boolean;  
 var  
   hSession, hfile: hInternet;  
   dwindex,dwcodelen :dword;  
   dwcode:array[1..20] of char;  
   res : pchar;  
 begin  
   if pos('http://',lowercase(url))=0 then  
     url := 'http://'+url;  
   Result := false;  
   hSession := InternetOpen('InetURL:/1.0',  
                             INTERNET_OPEN_TYPE_PRECONFIG,  
                             nil,  
                             nil,  
                             0);  
   if assigned(hsession) then  
   begin  
     hfile := InternetOpenUrl(hsession,  
                              pchar(url),  
                              nil,  
                              0,  
                              INTERNET_FLAG_RELOAD,  
                              0);  
     dwIndex := 0;  
     dwCodeLen := 10;  
     HttpQueryInfo(hfile,  
                   HTTP_QUERY_STATUS_CODE,  
                   @dwcode,  
                   dwcodeLen,  
                   dwIndex);  
     res := pchar(@dwcode);  
     result:= (res ='200') or (res ='302');  
     if assigned(hfile) then  
       InternetCloseHandle(hfile);  
     InternetCloseHandle(hsession);  
   end;  
5356    
5357  end;  
5358    
5359    
5360  procedure TMainForm.CheckPrintQue(tjektype : string);  procedure TMainForm.CheckPrintQue(tjektype : string);
Legend:
Removed from v.2682  
changed lines
  Added in v.2694
  ViewVC Help
Powered by ViewVC 1.1.20