--- dao/DelphiScanner/Configuration.pas	2016/08/15 14:14:14	3087
+++ dao/DelphiScanner/Configuration.pas	2016/08/21 21:56:01	3096
@@ -6,6 +6,9 @@
 
 type
   TConfiguration = class
+  private
+     BaseURL : string;
+
   public
 
     Sted : String;
@@ -36,17 +39,44 @@
     YPosSmskode : integer;
     FontSizeSmskode : integer;
 
-    BaseURL : string;
+     FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
+          FarveIndlevering : String;
+
+     TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
+          TitelIndlevering : String;
+
 
 
    UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,
             UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,
             UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;
 
+    URLPrintLabel : String;
     UrlEKLoverforselPakkeshop : String;
 
+    UrlEmballageRepareret : String;
+
     UrlFindPakketype, UrlSendPrograminfo: String;
 
+    AlarmLyd : String;
+    ScannetOkLyd : String;
+    ScannetOkStorLyd : String;
+
+    ScannetOkTilTjekkodeLyd : String;
+
+    PrinterNavn : String;
+    TjekPrinter : String;
+
+    SporgEfterBoghandler : String;
+
+    ScanTjekkode : String;
+    ScanTjekkodeAutomatik : string;
+
+    TjekUrls : String;
+    TestFunktionen : String;
+
+    LabelStor : integer;
+
 
 
     procedure ReadFromInifile( iniFile: TIniFile);
@@ -56,7 +86,7 @@
 
 implementation
 
-uses Utils;
+uses Utils, SysUtils;
 
 
 procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
@@ -67,8 +97,47 @@
 
   with iniFile do
   begin
+    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');  //Scanningstype skal ikke lęses fra config
+    //Pakketype := ReadString('Settings','Pakketype','0');        //Pakketype Skal ikke lęses fra config
+
+    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');
+
 
-    LabelType := ReadInteger('Settings','LabelType',1);
+    LabelType := ReadInteger('Settings','LabelType', 1);
+
+    LabelStor := ReadInteger('Settings','LabelStor', 0);
 
     if LabelType = 0 then
     begin
@@ -189,6 +258,38 @@
     URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';
     URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
 
+    UrlEmballageRepareret := BaseURL + '/webservices/pakkeshop/EmballageRepareret.php?sted=%s&stregkode=%s';
+    UrlEmballageRepareret := InjectURL(UrlEmballageRepareret);
+
+
+    URLPrintLabel := BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=%s';
+    URLPrintLabel := InjectURL(URLPrintLabel);
+
+
+
+    //Finally check for files:
+    if not FileExists(AlarmLyd) then
+    begin
+      AlarmLyd := '';
+    end;
+
+    if not FileExists(ScannetOkLyd) then
+    begin
+      ScannetOkLyd := '';
+    end;
+
+    if not FileExists(ScannetOkStorLyd) then
+    begin
+      ScannetOkStorLyd := '';
+    end;
+
+
+    if not FileExists(ScannetOkTilTjekkodeLyd) then
+    begin
+      ScannetOkTilTjekkodeLyd := '';
+    end;
+
+
 
 end;