--- dao/DelphiScanner/Main.pas	2015/09/03 14:27:21	2693
+++ dao/DelphiScanner/Main.pas	2015/09/03 14:40:49	2695
@@ -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();
@@ -2655,7 +2652,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 +2681,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 +2709,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 +2737,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 +2765,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 +2793,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 +2822,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 +2850,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 +2878,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 +2906,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 +2930,7 @@
             end;
           end;
 
-          if CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
+          if TUtils.CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then
           begin
             logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger;
             SkrivScanningLogFil(logTekst);
@@ -2961,7 +2958,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 +2987,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 +3014,7 @@
 
 
         // Tjekker UrlFindPakketype
-        if CheckUrl(UrlFindPakketype) then
+        if TUtils.CheckUrl(UrlFindPakketype) then
         begin
           logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype;
           SkrivScanningLogFil(logTekst);
@@ -3042,7 +3039,7 @@
         end;
 
         // Tjekker UrlSendPrograminfo
-        if CheckUrl(UrlSendPrograminfo) then
+        if TUtils.CheckUrl(UrlSendPrograminfo) then
         begin
           logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo;
           SkrivScanningLogFil(logTekst);
@@ -3079,16 +3076,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 +3095,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)
@@ -5355,44 +5342,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);