--- dao/DelphiScanner/Main.pas	2015/09/03 14:27:21	2693
+++ dao/DelphiScanner/Main.pas	2015/09/03 15:22:09	2701
@@ -56,16 +56,16 @@
     IdFTP1: TIdFTP;
     Image1: TImage;
     ListBox2: TListBox;
-    OpdaterListenButton01: TButton;
-    UploadButton01: TButton;
-    DownloadButton03: TButton;
+    BtnOpdaterListen: TButton;
+    BtnUploadLogfil: TButton;
+    BtnDownloadRuteskiftFil: TButton;
     Pakkeshoplevering1: TMenuItem;
     PakkeshopText1: TStaticText;
     btnNulstil: TButton;
     Returpakkerfrapakkeshop1: TMenuItem;
     Altidprintepakkelabel1: TMenuItem;
     chkAltidPrintLabel: TCheckBox;
-    EKLoverforsel: TButton;
+    BtnEKLoverforsel: TButton;
     N5: TMenuItem;
     Uploadlogfil1: TMenuItem;
     Manual1: TMenuItem;
@@ -99,9 +99,6 @@
   function GetCurrentPrinterHandle() : THandle;
   function SavePChar(p: PChar): PChar;
 
-  function FileTime2DateTime(FileTime: TFileTime): TDateTime;
-  function CheckUrl(url:string):boolean;
-
   procedure PlaySound(filename : PWideChar);
   procedure StartScreen();
   procedure InitScreen();
@@ -132,7 +129,7 @@
   procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
   procedure Budlevering1Click(Sender: TObject);
   procedure BtnDownloadKontrolfilClick(Sender: TObject);
-  procedure OpdaterListenButton01Click(Sender: TObject);
+  procedure BtnOpdaterListenClick(Sender: TObject);
   procedure DownloadBladhusRuteskiftfil();
   procedure DownloadBladhusKontrolfil();
   procedure SendFilTilDAO(fil_type, filnavn_input, filnavn_output: String);
@@ -140,8 +137,8 @@
   procedure UploadInifilTilDAO();
   procedure SletStregkodelinieFraListboks2(StregKode : String);
   procedure FormDestroy(Sender: TObject);
-  procedure UploadButton01Click(Sender: TObject);
-  procedure DownloadButton03Click(Sender: TObject);
+  procedure BtnUploadLogfilClick(Sender: TObject);
+  procedure BtnDownloadRuteskiftFilClick(Sender: TObject);
   procedure Pakkeshoplevering1Click(Sender: TObject);
   procedure btnNulstilClick(Sender: TObject);
   procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
@@ -155,7 +152,7 @@
 
   procedure Altidprintepakkelabel1Click(Sender: TObject);
   procedure chkAltidPrintLabelClick(Sender: TObject);
-  procedure EKLoverforselClick(Sender: TObject);
+  procedure BtnEKLoverforselClick(Sender: TObject);
   procedure Uploadlogfil1Click(Sender: TObject);
   procedure Manual1Click(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
@@ -332,7 +329,7 @@
       PanelValg7.Font.Color := clWindowText;
     end;
 
-    OpdaterListenButton01.Enabled := false;
+    BtnOpdaterListen.Enabled := false;
 
     if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
     begin
@@ -606,7 +603,7 @@
       try
         SkrivScanningLogFil(logTekst);
         Uploadlogfil1.Enabled := true;
-        UploadButton01.Enabled := true;
+        BtnUploadLogfil.Enabled := true;
         logTekst := 'Programmet er installeret som: '+ParamStr(0);
         SkrivScanningLogFil(logTekst);
         // Oprydning i gamle logfiler
@@ -1603,6 +1600,7 @@
 
     if not PakkeshopLevering1.Checked and not Pakkernormal1.Checked or (PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '')) or (Pakkernormal1.Checked and (Scanogstjekkoden1.Checked and (BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked)) then
     begin
+
        if PakkeshopLevering1.Checked and (PakkeshopStregkode <> '') and (PakkeshopTjekkode <> '') then
           StregKode := PakkeshopStregkode;
        if Pakkernormal1.Checked and ((BoghandlerStregkode <> '') and (BoghandlerTjekkode <> '') or not Scanogstjekkoden1.Checked) then
@@ -1677,6 +1675,7 @@
           begin
             VisAlarmSkaerm('');
           end;
+
          if not btnNulstil.Visible then
           begin
 
@@ -1769,7 +1768,7 @@
 
 
 begin
-    if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked then
+    if Budlevering1.Checked or Pakkeshoplevering1.Checked or Returpakkerfrapakkeshop1.Checked or Pakkernormal1.Checked or menuIndlevering.Checked then
     begin
       for i := ListBox2.items.count-1 downto 0 do
         if pos(StregKode,ListBox2.items[i]) <> 0 then
@@ -1978,7 +1977,7 @@
           begin;      // NS
             Testprinter1.Visible := true;
             BtnDownloadKontrolfil.Enabled := true;
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
             BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt';
@@ -1994,7 +1993,7 @@
             radioStorPakke.Enabled := true;
             radioLillePakke.Enabled := true;
             BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
             IndlesManglendeScanninger();
@@ -2004,14 +2003,14 @@
             Testprinter1.Visible := true;
            if (getProddag() = 'lørdag') then
             begin
-              DownloadButton03.Visible := false;
+              BtnDownloadRuteskiftFil.Visible := false;
             end
             else
             begin
-              DownloadButton03.Visible := false;
+              BtnDownloadRuteskiftFil.Visible := false;
             end;
             BtnDownloadKontrolfil.Enabled := true;
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
             BladhusRuteskiftfil_server := 'frafd/RuteSkift.txt';
@@ -2032,7 +2031,7 @@
             radioStorPakke.Enabled := true;
             radioLillePakke.Enabled := true;
             BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
-            OpdaterListenButton01.Enabled := true;
+            BtnOpdaterListen.Enabled := true;
             IdFTP1.Passive := true;
             IdFTP1.PassiveUseControlHost := true;
           end;
@@ -2153,6 +2152,7 @@
        PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
        PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
        RuteNummer := PakkeshopLabel.Koreliste;
+       Stregkode := PakkeshopLabel.Stregkode;
 
        PrintPakkeshopLabel( PakkeshopLabel );
 
@@ -2286,12 +2286,18 @@
       List1msg := List1msg + '; ' + Stregkode + ' (' + BoghandlerTjekkode + ')' + '; ' + Kommentar;
     end;
   end;
+  if menuIndlevering.Checked then
+  begin
+    List1Msg := Stregkode;
+  end;
+
+
   ListBox1.Items.Insert(0,List1Msg);
   logTekst := RightStr(List1Msg, Length(List1Msg)-10);
   SkrivScanningLogFil(logTekst);
 end;
 
-procedure TMainForm.UploadButton01Click(Sender: TObject);
+procedure TMainForm.BtnUploadLogfilClick(Sender: TObject);
 begin
   UploadLogfilTilDAO();
   UploadInifilTilDAO();
@@ -2655,7 +2661,7 @@
         // Tjekker UrlNormal
         if PanelValg1.Enabled = true then
         begin
-          if CheckUrl(UrlNormal) then
+          if TUtils.CheckUrl(UrlNormal) then
           begin
             logTekst := 'UrlNormal accepteret: ' + UrlNormal;
             SkrivScanningLogFil(logTekst);
@@ -2684,7 +2690,7 @@
         // Tjekker UrlReturDAO
         if PanelValg2.Enabled = true then
         begin
-          if CheckUrl(UrlReturDAO) then
+          if TUtils.CheckUrl(UrlReturDAO) then
           begin
             logTekst := 'UrlReturDAO accepteret: ' + UrlReturDAO;
             SkrivScanningLogFil(logTekst);
@@ -2712,7 +2718,7 @@
         // Tjekker UrlReturBoghandler
         if PanelValg3.Enabled = true then
         begin
-          if CheckUrl(UrlReturBoghandler) then
+          if TUtils.CheckUrl(UrlReturBoghandler) then
           begin
             logTekst := 'UrlReturBoghandler accepteret: ' + UrlReturBoghandler;
             SkrivScanningLogFil(logTekst);
@@ -2740,7 +2746,7 @@
         // Tjekker UrlBudlevering
         if PanelValg4.Enabled = true then
         begin
-          if CheckUrl(UrlBudlevering) then
+          if TUtils.CheckUrl(UrlBudlevering) then
           begin
             logTekst := 'UrlBudlevering accepteret: ' + UrlBudlevering;
             SkrivScanningLogFil(logTekst);
@@ -2768,7 +2774,7 @@
         // Tjekker UrlPakkeshoplevering
         if PanelValg5.Enabled = true then
         begin
-          if CheckUrl(UrlPakkeshoplevering) then
+          if TUtils.CheckUrl(UrlPakkeshoplevering) then
           begin
             logTekst := 'UrlPakkeshoplevering accepteret: ' + UrlPakkeshoplevering;
             SkrivScanningLogFil(logTekst);
@@ -2796,7 +2802,7 @@
         // Tjekker UrlReturPakkeshop
         if PanelValg6.Enabled = true then
         begin
-          if CheckUrl(UrlReturPakkeshop) then
+          if TUtils.CheckUrl(UrlReturPakkeshop) then
           begin
             logTekst := 'UrlReturPakkeshop accepteret: ' + UrlReturPakkeshop;
             SkrivScanningLogFil(logTekst);
@@ -2825,7 +2831,7 @@
         if (PanelValg1.Enabled = true)
         or (PanelValg4.Enabled = true) then
         begin
-          if CheckUrl(UrlManglendeScanninger) then
+          if TUtils.CheckUrl(UrlManglendeScanninger) then
           begin
             logTekst := 'UrlManglendeScanninger accepteret: ' + UrlManglendeScanninger;
             SkrivScanningLogFil(logTekst);
@@ -2853,7 +2859,7 @@
         // Tjekker UrlPakkeshopManglendeScanninger
         if PanelValg5.Enabled = true then
         begin
-          if CheckUrl(UrlPakkeshopManglendeScanninger) then
+          if TUtils.CheckUrl(UrlPakkeshopManglendeScanninger) then
           begin
             logTekst := 'UrlPakkeshopManglendeScanninger accepteret: ' + UrlPakkeshopManglendeScanninger;
             SkrivScanningLogFil(logTekst);
@@ -2881,7 +2887,7 @@
         // Tjekker UrlPakkeshopManglendeReturScanninger
         if PanelValg6.Enabled = true then
         begin
-          if CheckUrl(UrlPakkeshopManglendeReturScanninger) then
+          if TUtils.CheckUrl(UrlPakkeshopManglendeReturScanninger) then
           begin
             logTekst := 'UrlPakkeshopManglendeReturScanninger accepteret: ' + UrlPakkeshopManglendeReturScanninger;
             SkrivScanningLogFil(logTekst);
@@ -2909,7 +2915,7 @@
        // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
         if PanelValg7.Enabled = true then
         begin
-          if CheckUrl(UrlIndleveringsPakke) then
+          if TUtils.CheckUrl(UrlIndleveringsPakke) then
           begin
             logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke;
             SkrivScanningLogFil(logTekst);
@@ -2933,7 +2939,7 @@
             end;
           end;
 
-          if CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
+          if TUtils.CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
           begin
             logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger;
             SkrivScanningLogFil(logTekst);
@@ -2961,7 +2967,7 @@
         // Tjekker UrlEKLoverforsel
         if PanelValg1.Enabled = true then
         begin
-          if CheckUrl(UrlEKLoverforsel) then
+          if TUtils.CheckUrl(UrlEKLoverforsel) then
           begin
             logTekst := 'UrlEKLoverforsel accepteret: ' + UrlEKLoverforsel;
             SkrivScanningLogFil(logTekst);
@@ -2990,7 +2996,7 @@
         // Tjekker UrlEKLoverforselPakkeshop
         if PanelValg5.Enabled = true then
         begin
-          if CheckUrl(UrlEKLoverforselPakkeshop) then
+          if TUtils.CheckUrl(UrlEKLoverforselPakkeshop) then
           begin
             logTekst := 'UrlEKLoverforselPakkeshop accepteret: ' + UrlEKLoverforselPakkeshop;
             SkrivScanningLogFil(logTekst);
@@ -3017,7 +3023,7 @@
 
 
         // Tjekker UrlFindPakketype
-        if CheckUrl(UrlFindPakketype) then
+        if TUtils.CheckUrl(UrlFindPakketype) then
         begin
           logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype;
           SkrivScanningLogFil(logTekst);
@@ -3042,7 +3048,7 @@
         end;
 
         // Tjekker UrlSendPrograminfo
-        if CheckUrl(UrlSendPrograminfo) then
+        if TUtils.CheckUrl(UrlSendPrograminfo) then
         begin
           logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo;
           SkrivScanningLogFil(logTekst);
@@ -3079,16 +3085,6 @@
 
 end;
 
-function TMainForm.FileTime2DateTime(FileTime: TFileTime): TDateTime;
-var
-   LocalFileTime: TFileTime;
-   SystemTime: TSystemTime;
-begin
-   FileTimeToLocalFileTime(FileTime, LocalFileTime) ;
-   FileTimeToSystemTime(LocalFileTime, SystemTime) ;
-   Result := SystemTimeToDateTime(SystemTime) ;
-end;
-
 procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
@@ -3108,7 +3104,7 @@
 
         dt := fileDateToDateTime(SR.Time);  // finder filens timestamp for seneste ændring
         CreationTime := SR.FindData.ftCreationTime;  // finder filens timestamp for oprettelse
-        dtCreation := FileTime2DateTime(CreationTime);   // finder filens timestamp for oprettelse
+        dtCreation := TUtils.FileTime2DateTime(CreationTime);   // finder filens timestamp for oprettelse
         // Selvom creation date godt kan være forskellig fra modified date,
         // skal vi alligevel altid tjekke filens alder ud fra modified date
         // (ændring den kan ligge både før og efter oprettelse, hvis filerne er flyttet eller ændret manuelt)
@@ -3489,7 +3485,7 @@
     end
     else
     begin
-      ShowMessage('Acrobat Reader er ikke installeret!');
+      ShowMessage('Adobe Reader er ikke installeret!');
     end;
   end
   else
@@ -3555,8 +3551,8 @@
       radioStorPakke.Enabled := false;
       radioLillePakke.Enabled := false;
       ListBox1.Visible := true;
-      OpdaterListenButton01.Enabled := true;
-      EKLoverforsel.Enabled := true;
+      BtnOpdaterListen.Enabled := true;
+      BtnEKLoverforsel.Enabled := true;
       InitLillePakke();
       ListBox1.Items.Clear;
       if BladhusSted = 0 then
@@ -3589,7 +3585,7 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       ListBox2.Items.Clear;
-      EKLoverforsel.Enabled := false;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
 end;
 
@@ -3615,7 +3611,7 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       ListBox2.Items.Clear;
-      EKLoverforsel.Enabled := false;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
 end;
 
@@ -3642,9 +3638,9 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
-      DownloadButton03.Visible := false;
-      EKLoverforsel.Enabled := false;
+      BtnOpdaterListen.Enabled := true;
+      BtnDownloadRuteskiftFil.Visible := false;
+      BtnEKLoverforsel.Enabled := false;
       IdFTP1.Passive := true;
       IdFTP1.PassiveUseControlHost := true;
       if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then
@@ -3678,9 +3674,9 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
+      BtnOpdaterListen.Enabled := true;
 
-      EKLoverforsel.Enabled := true;
+      BtnEKLoverforsel.Enabled := true;
 
       InitLillePakke();
       IndlesScanningLogFil();
@@ -3715,8 +3711,8 @@
       ListBox1.Visible := true;
       ListBox1.Items.Clear;
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
-      EKLoverforsel.Enabled := false;
+      BtnOpdaterListen.Enabled := true;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
       IndlesScanningLogFil();
       if BladhusSted = 0 then
@@ -3762,8 +3758,8 @@
       ListBox1.Items.Clear();
 
       BtnDownloadKontrolfil.Enabled := false;
-      OpdaterListenButton01.Enabled := true;
-      EKLoverforsel.Enabled := false;
+      BtnOpdaterListen.Enabled := true;
+      BtnEKLoverforsel.Enabled := false;
       InitLillePakke();
       IndlesScanningLogFil();
       if BladhusSted = 0 then
@@ -3872,7 +3868,7 @@
   CheckCode();
 end;
 
-procedure TMainForm.EKLoverforselClick(Sender: TObject);
+procedure TMainForm.BtnEKLoverforselClick(Sender: TObject);
 var
   WebSvar : String;
   URLStr : String;
@@ -3882,7 +3878,7 @@
   status, kommentar : String;
 
 begin
-    EKLoverforsel.Enabled := false;
+    BtnEKLoverforsel.Enabled := false;
 
     ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Overfører de scannede pakker til EKL');
     logTekst := 'Overfører de scannede pakker til EKL';
@@ -3945,7 +3941,7 @@
       end;
     end;
 
-    EKLoverforsel.Enabled := true;
+    BtnEKLoverforsel.Enabled := true;
 
     ListBox1.SetFocus;  // for at flytte fokus væk fra knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
 
@@ -4477,7 +4473,7 @@
     ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
 end;
 
-procedure TMainForm.OpdaterListenButton01Click(Sender: TObject);
+procedure TMainForm.BtnOpdaterListenClick(Sender: TObject);
 const
   crlf = Chr(13) + Chr(10) ;  // Carriage return & Linefeed
 
@@ -4486,7 +4482,7 @@
     ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
 end;
 
-procedure TMainForm.DownloadButton03Click(Sender: TObject);
+procedure TMainForm.BtnDownloadRuteskiftFilClick(Sender: TObject);
 begin
     if (getProddag() = 'lørdag') then
     begin
@@ -5355,44 +5351,7 @@
 
 
 
-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;
 
-end;
 
 
 procedure TMainForm.CheckPrintQue(tjektype : string);