--- dao/DelphiScanner/Main.pas	2016/07/28 20:03:18	3076
+++ dao/DelphiScanner/Main.pas	2016/08/15 19:09:21	3089
@@ -211,22 +211,16 @@
     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;
 
-    Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
-          FarveIndlevering : String;
+    Url : String;
+
+    Farve : String;
 
-    Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
-          TitelIndlevering : String;
+    Titel : String;
 
     AlarmLyd : String;
     ScannetOkLyd : String;
@@ -265,7 +259,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 +509,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,89 +561,9 @@
     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);
-
-
-
-    FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
-    TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
-    FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');
-    TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');
-    FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');
-    TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');
-    FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');
-    TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
-    FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
-    TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
-
-    FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
-    TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
-
-    FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
-    TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
-
 
-    SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
-    ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
-    ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
-    Scanningtype := ReadString('Settings','Scanningtype','A');
-    Pakketype := ReadString('Settings','Pakketype','0');
-    TestFunktionen := ReadString('Settings','TestFunktion','0');
-    AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
-    ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
-    ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
 
-    ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
 
-    PrinterNavn := ReadString('Settings','PrinterNavn','');
-    TjekPrinter := ReadString('Settings','TjekPrinter','1');
-    TjekUrls := ReadString('Settings','TjekUrls','2');
 
     if (SkrivLog = '1') then
     begin
@@ -1425,7 +1331,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);
@@ -1612,9 +1518,9 @@
            BoghandlerTjekkode := Stregkode;
            PakkeshopText1.Caption := 'Stregkode';
            if (menuPakkeshop1.Checked) then
-              MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering);
+              MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering);
            if (menuNatXpress1.Checked) then
-              MainForm.Color := TUtils.HexToTColor(FarveNormal);
+              MainForm.Color := TUtils.HexToTColor(Config.FarveNormal);
            btnNulstil.Visible := false;
          end
         else
@@ -1776,9 +1682,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 +1697,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 +1975,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 +2008,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
@@ -2164,7 +2070,7 @@
        RuteNummer := PakkeshopLabel.Koreliste + '  ->  ' +  PakkeshopLabel.PakkeshopTurid;
        Stregkode := PakkeshopLabel.Stregkode;
 
-       LabelPrint.PrintPakkeshopLabel( PakkeshopLabel );
+       LabelPrint.PrintFuldPakkeLabel( PakkeshopLabel );
        chkForstorTilDirekte.Checked := false;
 
      end;
@@ -2615,83 +2521,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 +2636,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 +2717,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 +2948,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 +3089,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := true;
       btnNulstil.Visible := false;
       menuNatXpress1.Checked := true;
-      InitForm(FarveNormal,TitelNormal,UrlNormal);
+      InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal);
       PanelValg1.Color := clGreen;
       PanelValg1.Font.Color := clWhite;
 
@@ -3219,7 +3125,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuNatxpressReturDAO1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
+      InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO);
       PanelValg2.Color := clGreen;
       PanelValg2.Font.Color := clWhite;
 
@@ -3250,7 +3156,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuNatxpressReturfraKunde1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
+      InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler);
       PanelValg3.Color := clGreen;
       PanelValg3.Font.Color := clWhite;
 
@@ -3280,7 +3186,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuDaoDirekte1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
+      InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering);
       PanelValg4.Color := clGreen;
       PanelValg4.Font.Color := clWhite;
 
@@ -3320,7 +3226,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := true;
       menuPakkeshop1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
+      InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering);
       PanelValg5.Color := clGreen;
       PanelValg5.Font.Color := clWhite;
 
@@ -3360,7 +3266,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
       menuPakkeshopRetur1.Checked := true;
       btnNulstil.Visible := false;
-      InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
+      InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop);
       PanelValg6.Color := clGreen;
       PanelValg6.Font.Color := clWhite;
 
@@ -3408,7 +3314,7 @@
       menuAutomatiskTjekkodeStyring.Enabled := false;
 
       btnNulstil.Visible := false;
-      InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
+      InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop);
       PanelValg7.Color := clGreen;
       PanelValg7.Font.Color := clWhite;
 
@@ -3561,11 +3467,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 +4126,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