/[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 3096 by torben, Sun Aug 21 21:56:01 2016 UTC
# Line 54  type Line 54  type
54      URLPrintLabel : String;      URLPrintLabel : String;
55      UrlEKLoverforselPakkeshop : String;      UrlEKLoverforselPakkeshop : String;
56    
57        UrlEmballageRepareret : String;
58    
59      UrlFindPakketype, UrlSendPrograminfo: String;      UrlFindPakketype, UrlSendPrograminfo: String;
60    
61        AlarmLyd : String;
62        ScannetOkLyd : String;
63        ScannetOkStorLyd : String;
64    
65        ScannetOkTilTjekkodeLyd : String;
66    
67        PrinterNavn : String;
68        TjekPrinter : String;
69    
70        SporgEfterBoghandler : String;
71    
72        ScanTjekkode : String;
73        ScanTjekkodeAutomatik : string;
74    
75        TjekUrls : String;
76        TestFunktionen : String;
77    
78        LabelStor : integer;
79    
80    
81    
82      procedure ReadFromInifile( iniFile: TIniFile);      procedure ReadFromInifile( iniFile: TIniFile);
# Line 65  type Line 86  type
86    
87  implementation  implementation
88    
89  uses Utils;  uses Utils, SysUtils;
90    
91    
92  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
# Line 97  begin Line 118  begin
118      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');      SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
119      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');      ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
120      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');      ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
121      Scanningtype := ReadString('Settings','Scanningtype','A');  
122      Pakketype := ReadString('Settings','Pakketype','0');      //Scanningtype := ReadString('Settings','Scanningtype','A');  //Scanningstype skal ikke lęses fra config
123        //Pakketype := ReadString('Settings','Pakketype','0');        //Pakketype Skal ikke lęses fra config
124    
125      TestFunktionen := ReadString('Settings','TestFunktion','0');      TestFunktionen := ReadString('Settings','TestFunktion','0');
126    
127      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');      AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
128      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');      ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
129      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');      ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
# Line 111  begin Line 135  begin
135      TjekUrls := ReadString('Settings','TjekUrls','2');      TjekUrls := ReadString('Settings','TjekUrls','2');
136    
137    
138      LabelType := ReadInteger('Settings','LabelType',1);      LabelType := ReadInteger('Settings','LabelType', 1);
139    
140        LabelStor := ReadInteger('Settings','LabelStor', 0);
141    
142      if LabelType = 0 then      if LabelType = 0 then
143      begin      begin
# Line 232  begin Line 258  begin
258      URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';      URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';
259      URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);      URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
260    
261        UrlEmballageRepareret := BaseURL + '/webservices/pakkeshop/EmballageRepareret.php?sted=%s&stregkode=%s';
262        UrlEmballageRepareret := InjectURL(UrlEmballageRepareret);
263    
264    
265      URLPrintLabel := BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=%s';      URLPrintLabel := BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=%s';
266      URLPrintLabel := InjectURL(URLPrintLabel);      URLPrintLabel := InjectURL(URLPrintLabel);
267    
268    
269    
270        //Finally check for files:
271        if not FileExists(AlarmLyd) then
272        begin
273          AlarmLyd := '';
274        end;
275    
276        if not FileExists(ScannetOkLyd) then
277        begin
278          ScannetOkLyd := '';
279        end;
280    
281        if not FileExists(ScannetOkStorLyd) then
282        begin
283          ScannetOkStorLyd := '';
284        end;
285    
286    
287        if not FileExists(ScannetOkTilTjekkodeLyd) then
288        begin
289          ScannetOkTilTjekkodeLyd := '';
290        end;
291    
292    
293    
294  end;  end;
295    
296    
Legend:
Removed from v.3089  
changed lines
  Added in v.3096
  ViewVC Help
Powered by ViewVC 1.1.20