/[projects]/dao/DelphiScanner/Configuration.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Configuration.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3089 by torben, Mon Aug 15 19:09:21 2016 UTC revision 3090 by torben, Mon Aug 15 19:26:48 2016 UTC
# Line 56  type Line 56  type
56    
57      UrlFindPakketype, UrlSendPrograminfo: String;      UrlFindPakketype, UrlSendPrograminfo: String;
58    
59        AlarmLyd : String;
60        ScannetOkLyd : String;
61        ScannetOkStorLyd : String;
62    
63        ScannetOkTilTjekkodeLyd : String;
64    
65        PrinterNavn : String;
66        TjekPrinter : String;
67    
68        SporgEfterBoghandler : String;
69    
70        ScanTjekkode : String;
71        ScanTjekkodeAutomatik : string;
72    
73        TjekUrls : String;
74        TestFunktionen : String;
75    
76    
77    
78      procedure ReadFromInifile( iniFile: TIniFile);      procedure ReadFromInifile( iniFile: TIniFile);
# Line 65  type Line 82  type
82    
83  implementation  implementation
84    
85  uses Utils;  uses Utils, SysUtils;
86    
87    
88  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
# Line 97  begin Line 114  begin
114      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
115      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
116      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
117      Scanningtype := ReadString('Settings','Scanningtype','A');  
118      Pakketype := ReadString('Settings','Pakketype','0');      //Scanningtype := ReadString('Settings','Scanningtype','A');  //Scanningstype skal ikke lęses fra config
119        //Pakketype := ReadString('Settings','Pakketype','0');        //Pakketype Skal ikke lęses fra config
120    
121      TestFunktionen := ReadString('Settings','TestFunktion','0');      TestFunktionen := ReadString('Settings','TestFunktion','0');
122    
123      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
124      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
125      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
# Line 236  begin Line 256  begin
256      URLPrintLabel := InjectURL(URLPrintLabel);      URLPrintLabel := InjectURL(URLPrintLabel);
257    
258    
259    
260        //Finally check for files:
261        if not FileExists(AlarmLyd) then
262        begin
263          AlarmLyd := '';
264        end;
265    
266        if not FileExists(ScannetOkLyd) then
267        begin
268          ScannetOkLyd := '';
269        end;
270    
271        if not FileExists(ScannetOkStorLyd) then
272        begin
273          ScannetOkStorLyd := '';
274        end;
275    
276    
277        if not FileExists(ScannetOkTilTjekkodeLyd) then
278        begin
279          ScannetOkTilTjekkodeLyd := '';
280        end;
281    
282    
283    
284  end;  end;
285    
286    
Legend:
Removed from v.3089  
changed lines
  Added in v.3090
  ViewVC Help
Powered by ViewVC 1.1.20