--- dao/DelphiScanner/Main.pas	2016/08/15 12:44:21	3086
+++ dao/DelphiScanner/Main.pas	2016/08/15 14:14:14	3087
@@ -211,17 +211,13 @@
     SkrivLog : String;
     Sted : String;
     StedNavn : String;
-    Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,
-            UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,
-            UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;
 
-    UrlEKLoverforselPakkeshop : String;
-
-    UrlFindPakketype, UrlSendPrograminfo: String;
     Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String;
     ScanTjekkode : String;
     ScanTjekkodeAutomatik : string;
 
+    Url : String;
+
     Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
           FarveIndlevering : String;
 
@@ -265,7 +261,7 @@
     procedure SkrivScanningLogFil(var tekst : string);
     function TjekKoreliste(var RuteNummer, Koreliste : string) : string;
     procedure VisAlarmSkaerm(strMessage: string);
-    function InjectURL(Url : String) : String;
+
 
   public
     { Public declarations }
@@ -515,15 +511,7 @@
      PanelValgA.Font.Color := clWhite;
 end;
 
-function TMainForm.InjectURL(Url : String) : String;
-begin
-
-  Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
-  Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
-  Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
 
-  Result := Url;
-end;
 
 //InitForm kaldes før FormCreate
 procedure TMainForm.FormCreate(Sender: TObject);
@@ -575,53 +563,6 @@
     Sted := ReadString('Settings','Sted','');
     StedNavn := ReadString('Settings','Stednavn','');
 
-    UrlFindPakketype := ReadString('Settings','UrlFindPakketype','http://omdeling.info/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s');
-    UrlFindPakketype := InjectURL(UrlFindPakketype);
-
-    UrlSendPrograminfo := ReadString('Settings','UrlSendPrograminfo','http://omdeling.info/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s');
-    UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
-
-    UrlNormal := ReadString('Settings','UrlNormal','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s');
-    UrlNormal := InjectURL(UrlNormal);
-
-    UrlReturDAO := ReadString('Settings','UrlReturDAO','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
-    UrlReturDAO := InjectURL(UrlReturDAO);
-
-    UrlReturBoghandler := ReadString('Settings','UrlReturBoghandler','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s');
-    UrlReturBoghandler := InjectURL(UrlReturBoghandler);
-
-    UrlBudlevering := ReadString('Settings','UrlBudlevering','http://omdeling.info/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s');
-    UrlBudlevering := InjectURL(UrlBudlevering);
-
-    UrlManglendeScanninger := ReadString('Settings','UrlManglendeScanninger','http://omdeling.info/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s');
-    UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
-
-    UrlEKLoverforsel := ReadString('Settings','UrlEKLoverforsel','http://omdeling.info/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s');
-    UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
-
-    UrlEKLoverforselPakkeshop := ReadString('Settings','UrlEKLoverforselPakkeshop','http://omdeling.info/webservices/pakkeshop/pakkertilekl.php?sted=%s');
-    UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
-
-    UrlPakkeshoplevering := ReadString('Settings','UrlPakkeshoplevering','http://omdeling.info/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s');
-    UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
-
-    UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');
-    UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
-
-    UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');
-    UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
-
-    UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
-    UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
-
-    UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
-    UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
-
-    UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s');
-    UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
-
-    URLOmdirigerTilPakkeshop := ReadString('Settings', 'URLOmdirigerTilPakkeshop','http://omdeling.info/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s');
-    URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
 
 
 
@@ -1425,7 +1366,7 @@
     if (Length(Stregkode) > 8) then
     begin
       // Her skal vi så forespørge pakketype på serveren udfra stregkode feltet
-      URLStr := Format(UrlFindPakketype,[Stregkode]);
+      URLStr := Format(Config.UrlFindPakketype,[Stregkode]);
       try
         //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
         WebSvar := IdHTTP1.Get(URLStr);
@@ -1776,9 +1717,9 @@
   WebSvar : String;
   URLStr : String;
 begin
-  if UrlSendPrograminfo <> '' then
+  if Config.UrlSendPrograminfo <> '' then
   begin
-    URLStr := Format(UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
+    URLStr := Format(Config.UrlSendPrograminfo,[ExtractFileName(ParamStr(0)), Sted, Scanningtype, Infotype, Info]);
     try
       //raise EIdConnClosedGracefully.Create('test');   // KUN TIL TEST
       WebSvar := IdHTTP1.Get(URLStr);
@@ -1791,7 +1732,7 @@
       ShowMessage(logTekst);
       SkrivScanningLogFil(logTekst);
       // Vi nulstiller lige url feltet så rutinen ikke kaldes igen i forbindelse med lukning af programmet
-      UrlSendPrograminfo := '';
+      Config.UrlSendPrograminfo := '';
       Application.Terminate;
     end;
     end;
@@ -2069,31 +2010,31 @@
      begin
        BoghandlerTjekkode := '-1';
      end;
-     URLStr := Format(UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
+     URLStr := Format(Config.UrlNormal,[Sted, PakkeNr, BoghandlerNummer, BoghandlerTjekkode]);
   end
   else if menuNatxpressReturDAO1.Checked then
   begin
-     URLStr := Format(UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
+     URLStr := Format(Config.UrlReturDAO,[Sted, PakkeNr, BoghandlerNummer, 'DAO', pakkestorrelse]);
   end
   else if menuNatxpressReturfraKunde1.Checked then
   begin
-     URLStr := Format(UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
+     URLStr := Format(Config.UrlReturBoghandler,[Sted, PakkeNr, BoghandlerNummer, 'Boghandler', pakkestorrelse]);
   end
   else if menuDaoDirekte1.Checked then
   begin
-     URLStr := Format(UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
+     URLStr := Format(Config.UrlBudlevering,[Sted, PakkeNr, 'bud', pakkestorrelse]);
   end
   else if menuPakkeshop1.Checked then
   begin
-     URLStr := Format(UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
+     URLStr := Format(Config.UrlPakkeshoplevering,[Sted, PakkeNr, PakkeshopTjekkode]);
   end
   else if menuPakkeshopRetur1.Checked then
   begin
-     URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
+     URLStr := Format(Config.UrlReturPakkeshop,[Sted, PakkeNr]);
   end
   else if menuIndlevering.Checked then
   begin
-    URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);
+    URLStr := Format(Config.UrlIndleveringsPakke,[Sted, PakkeNr]);
   end
   else
   begin
@@ -2102,7 +2043,7 @@
 
   if chkForstorTilDirekte.Checked then  // Denne skal være efter if/else kæden da den overrider de øvrige URL'er
   begin
-    URLStr := Format(URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
+    URLStr := Format(Config.URLOmdirigerTilPakkeshop,[Sted, PakkeNr]);
   end;
 
   try
@@ -2615,83 +2556,83 @@
     // Tjekker UrlNormal
     if PanelValg1.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl);
+      TjekkerEnkeltUrl('UrlNormal', Config.UrlNormal, urlFejl);
     end;
 
     // Tjekker UrlReturDAO
     if PanelValg2.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl);
+      TjekkerEnkeltUrl('UrlReturDAO', Config.UrlReturDAO, urlFejl);
     end;
 
     // Tjekker UrlReturBoghandler
     if PanelValg3.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl);
+      TjekkerEnkeltUrl('UrlReturBoghandler', Config.UrlReturBoghandler, urlFejl);
     end;
 
     // Tjekker UrlBudlevering
     if PanelValg4.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl);
+      TjekkerEnkeltUrl('UrlBudlevering', Config.UrlBudlevering, urlFejl);
     end;
 
     // Tjekker UrlPakkeshoplevering
     if PanelValg5.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl);
+      TjekkerEnkeltUrl('UrlPakkeshoplevering', Config.UrlPakkeshoplevering, urlFejl);
     end;
 
     // Tjekker UrlReturPakkeshop
     if PanelValg6.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl);
+      TjekkerEnkeltUrl('UrlReturPakkeshop', Config.UrlReturPakkeshop, urlFejl);
     end;
 
     // Tjekker UrlManglendeScanninger
     if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then
     begin
-      TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl);
+      TjekkerEnkeltUrl('UrlManglendeScanninger', Config.UrlManglendeScanninger, urlFejl);
     end;
 
     // Tjekker UrlPakkeshopManglendeScanninger
     if PanelValg5.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl);
+      TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', Config.UrlPakkeshopManglendeScanninger, urlFejl);
     end;
 
     // Tjekker UrlPakkeshopManglendeReturScanninger
     if PanelValg6.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl);
+      TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', Config.UrlPakkeshopManglendeReturScanninger, urlFejl);
     end;
 
    // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger
     if PanelValg7.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl);
-      TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl);
+      TjekkerEnkeltUrl('UrlIndleveringsPakke', Config.UrlIndleveringsPakke, urlFejl);
+      TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', Config.UrlIndleveringsPakkeManglendeScanninger, urlFejl);
     end;
 
     // Tjekker UrlEKLoverforsel
     if PanelValg1.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl);
+      TjekkerEnkeltUrl('UrlEKLoverforsel', Config.UrlEKLoverforsel, urlFejl);
     end;
 
 
     // Tjekker UrlEKLoverforselPakkeshop
     if PanelValg5.Enabled = true then
     begin
-      TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl);
+      TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', Config.UrlEKLoverforselPakkeshop, urlFejl);
     end;
 
 
     // Tjekker UrlFindPakketype
-    TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl);
+    TjekkerEnkeltUrl('UrlFindPakketype', Config.UrlFindPakketype, urlFejl);
 
     // Tjekker UrlSendPrograminfo
-    TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl);
+    TjekkerEnkeltUrl('UrlSendPrograminfo', Config.UrlSendPrograminfo, urlFejl);
 
 
 
@@ -2730,7 +2671,7 @@
     if TjekUrls = '1' then
     begin
       ShowMessage(logTekst);
-      UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
+      Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
       Application.Terminate;
 
       raise Exception.Create('UrlFejl');
@@ -2811,7 +2752,7 @@
   if BoghandlerNavnST.Caption = 'Fejl i forbindelse til server' then
   begin
      ShowMessage('Programmet afbrydes...');
-     UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
+     Config.UrlSendPrograminfo := '';   // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut
      Application.Terminate;
      exit;
   end;
@@ -3042,7 +2983,7 @@
     tekst := tekst+crlf+crlf;
     tekst := tekst+crlf+crlf+'          **********  DETTE ER KUN EN TEST VERSION  **********';
     tekst := tekst+crlf+crlf;
-    tekst := tekst+crlf+crlf+'Url: '+url;
+    tekst := tekst+crlf+crlf+'Url: ' + Url;
   end;
 
   MessageBox(Handle, PWideChar(tekst), 'Information', MB_OK);
@@ -3183,7 +3124,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := true;
       btnNulstil.Visible := false;
       menuNatXpress1.Checked := true;
-      InitForm(FarveNormal,TitelNormal,UrlNormal);
+      InitForm(FarveNormal,TitelNormal,Config.UrlNormal);
       PanelValg1.Color := clGreen;
       PanelValg1.Font.Color := clWhite;
 
@@ -3219,7 +3160,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuNatxpressReturDAO1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
+      InitForm(FarveReturDAO,TitelReturDAO, Config.UrlReturDAO);
       PanelValg2.Color := clGreen;
       PanelValg2.Font.Color := clWhite;
 
@@ -3250,7 +3191,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuNatxpressReturfraKunde1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
+      InitForm(FarveReturBoghandler,TitelReturBoghandler, Config.UrlReturBoghandler);
       PanelValg3.Color := clGreen;
       PanelValg3.Font.Color := clWhite;
 
@@ -3280,7 +3221,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuDaoDirekte1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
+      InitForm(FarveBudlevering,TitelBudlevering, Config.UrlBudlevering);
       PanelValg4.Color := clGreen;
       PanelValg4.Font.Color := clWhite;
 
@@ -3320,7 +3261,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := true;
       menuPakkeshop1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
+      InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
       PanelValg5.Color := clGreen;
       PanelValg5.Font.Color := clWhite;
 
@@ -3360,7 +3301,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuPakkeshopRetur1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
+      InitForm(FarveReturPakkeshop,TitelReturPakkeshop, Config.UrlReturPakkeshop);
       PanelValg6.Color := clGreen;
       PanelValg6.Font.Color := clWhite;
 
@@ -3408,7 +3349,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
 
       btnNulstil.Visible := false;
-      InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
+      InitForm(FarveIndlevering, TitelIndlevering, Config.UrlReturPakkeshop);
       PanelValg7.Color := clGreen;
       PanelValg7.Font.Color := clWhite;
 
@@ -3561,11 +3502,11 @@
     logTekst := 'Overfører de scannede pakker til EKL';
     SkrivScanningLogFil(logTekst);
     StedKode := Sted;
-    URLStr := Format(UrlEKLoverforsel,[StedKode,Sted]);
+    URLStr := Format(Config.UrlEKLoverforsel,[StedKode,Sted]);
 
     if PanelValg5.Color = clGreen then
     begin
-      URLStr := Format(UrlEKLoverforselPakkeshop,[StedKode,Sted]);
+      URLStr := Format(Config.UrlEKLoverforselPakkeshop,[StedKode,Sted]);
     end;
 
 
@@ -4220,23 +4161,23 @@
 
     if (Scanningtype = '7') then
      begin
-      URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
+      URLStr := Format(Config.UrlIndleveringsPakkeManglendeScanninger, [StedKode]);
      end
     else if (Scanningtype = '6') then
      begin
-      URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]);
+      URLStr := Format(Config.UrlPakkeshopManglendeReturScanninger, [StedKode]);
      end
     else if (Scanningtype = '5') then
      begin
-      URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]);
+      URLStr := Format(Config.UrlPakkeshopManglendeScanninger, [StedKode]);
      end
     else if (Scanningtype = '1') then
      begin
-      URLStr := Format(UrlManglendeScanninger,[StedKode,'B2']);
+      URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'B2']);
      end
     else if (Scanningtype = '4') then
      begin
-      URLStr := Format(UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
+      URLStr := Format(Config.UrlManglendeScanninger,[StedKode,'A2']);    // Budleveringer
      end
     else
      begin