/[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 3091 by torben, Tue Aug 16 21:06:46 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        LabelStor : integer;
77    
78    
79    
80      procedure ReadFromInifile( iniFile: TIniFile);      procedure ReadFromInifile( iniFile: TIniFile);
# Line 65  type Line 84  type
84    
85  implementation  implementation
86    
87  uses Utils;  uses Utils, SysUtils;
88    
89    
90  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
# Line 97  begin Line 116  begin
116      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
117      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
118      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
119      Scanningtype := ReadString('Settings','Scanningtype','A');  
120      Pakketype := ReadString('Settings','Pakketype','0');      //Scanningtype := ReadString('Settings','Scanningtype','A');  //Scanningstype skal ikke lęses fra config
121        //Pakketype := ReadString('Settings','Pakketype','0');        //Pakketype Skal ikke lęses fra config
122    
123      TestFunktionen := ReadString('Settings','TestFunktion','0');      TestFunktionen := ReadString('Settings','TestFunktion','0');
124    
125      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
126      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
127      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
# Line 111  begin Line 133  begin
133      TjekUrls := ReadString('Settings','TjekUrls','2');      TjekUrls := ReadString('Settings','TjekUrls','2');
134    
135    
136      LabelType := ReadInteger('Settings','LabelType',1);      LabelType := ReadInteger('Settings','LabelType', 1);
137    
138        LabelStor := ReadInteger('Settings','LabelStor', 0);
139    
140      if LabelType = 0 then      if LabelType = 0 then
141      begin      begin
# Line 236  begin Line 260  begin
260      URLPrintLabel := InjectURL(URLPrintLabel);      URLPrintLabel := InjectURL(URLPrintLabel);
261    
262    
263    
264        //Finally check for files:
265        if not FileExists(AlarmLyd) then
266        begin
267          AlarmLyd := '';
268        end;
269    
270        if not FileExists(ScannetOkLyd) then
271        begin
272          ScannetOkLyd := '';
273        end;
274    
275        if not FileExists(ScannetOkStorLyd) then
276        begin
277          ScannetOkStorLyd := '';
278        end;
279    
280    
281        if not FileExists(ScannetOkTilTjekkodeLyd) then
282        begin
283          ScannetOkTilTjekkodeLyd := '';
284        end;
285    
286    
287    
288  end;  end;
289    
290    
Legend:
Removed from v.3089  
changed lines
  Added in v.3091
  ViewVC Help
Powered by ViewVC 1.1.20