--- dao/DelphiScanner/Configuration.pas	2016/08/15 19:09:21	3089
+++ dao/DelphiScanner/Configuration.pas	2016/08/16 21:06:46	3091
@@ -56,6 +56,25 @@
 
     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);
@@ -65,7 +84,7 @@
 
 implementation
 
-uses Utils;
+uses Utils, SysUtils;
 
 
 procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
@@ -97,9 +116,12 @@
     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');
+
+    //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');
@@ -111,7 +133,9 @@
     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
@@ -236,6 +260,31 @@
     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;