/[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 2705 by torben, Fri Sep 4 12:39:33 2015 UTC revision 3124 by torben, Wed Oct 19 06:59:57 2016 UTC
# Line 6  uses Line 6  uses
6    
7  type  type
8    TConfiguration = class    TConfiguration = class
9      private
10         BaseURL : string;
11    
12    public    public
13    
14      Sted : String;      Sted : String;
# Line 36  type Line 39  type
39      YPosSmskode : integer;      YPosSmskode : integer;
40      FontSizeSmskode : integer;      FontSizeSmskode : integer;
41    
42         FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
43              FarveIndlevering : String;
44    
45         TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
46              TitelIndlevering : String;
47    
48    
49    
50       UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,
51                UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,
52                UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;
53    
54        URLPrintLabel : String;
55        UrlEKLoverforselPakkeshop : String;
56    
57        URLUdenforSpecifikation : String;
58        UrlEmballageRepareret : String;
59    
60        UrlFindPakketype, UrlSendPrograminfo: String;
61    
62        UrlHentPakkeAntal: String;
63    
64        AlarmLyd : String;
65        ScannetOkLyd : String;
66        ScannetOkStorLyd : String;
67    
68        ScannetOkTilTjekkodeLyd : String;
69    
70        PrinterNavn : String;
71        TjekPrinter : String;
72    
73        SporgEfterBoghandler : String;
74    
75        ScanTjekkode : String;
76        ScanTjekkodeAutomatik : string;
77    
78        TjekUrls : String;
79        TestFunktionen : String;
80    
81        LabelStor : integer;
82    
83    
84    
85      procedure ReadFromInifile( iniFile: TIniFile);      procedure ReadFromInifile( iniFile: TIniFile);
86        function InjectURL(Url : String) : String;
87    
88    end;    end;
89    
90  implementation  implementation
91    
92    uses Utils, SysUtils;
93    
94    
95  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
96  begin  begin
97    
98    
99      BaseURL := 'http://omdeling.info/';
100    
101    with iniFile do    with iniFile do
102    begin    begin
103        FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
104        TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
105        FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');
106        TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');
107        FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');
108        TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');
109        FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');
110        TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
111        FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
112        TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
113    
114        FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
115        TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
116    
117        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
118        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
119    
120    
121        SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
122        ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
123        ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
124    
125        //Scanningtype := ReadString('Settings','Scanningtype','A');  //Scanningstype skal ikke lęses fra config
126        //Pakketype := ReadString('Settings','Pakketype','0');        //Pakketype Skal ikke lęses fra config
127    
128        TestFunktionen := ReadString('Settings','TestFunktion','0');
129    
130        AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
131        ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
132        ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
133    
134      LabelType := ReadInteger('Settings','LabelType',1);      ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
135    
136        PrinterNavn := ReadString('Settings','PrinterNavn','');
137        TjekPrinter := ReadString('Settings','TjekPrinter','1');
138        TjekUrls := ReadString('Settings','TjekUrls','2');
139    
140    
141        LabelType := ReadInteger('Settings','LabelType', 1);
142    
143        LabelStor := ReadInteger('Settings','LabelStor', 0);
144    
145      if LabelType = 0 then      if LabelType = 0 then
146      begin      begin
# Line 121  begin Line 213  begin
213      end;      end;
214    end;  //With ... do    end;  //With ... do
215    
216        UrlFindPakketype := BaseURL + '/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s';
217        UrlFindPakketype := InjectURL(UrlFindPakketype);
218    
219        UrlSendPrograminfo := BaseURL + '/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s';
220        UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
221    
222        UrlNormal := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s';
223        UrlNormal := InjectURL(UrlNormal);
224    
225        UrlReturDAO := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
226        UrlReturDAO := InjectURL(UrlReturDAO);
227    
228        UrlReturBoghandler := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
229        UrlReturBoghandler := InjectURL(UrlReturBoghandler);
230    
231        UrlBudlevering := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s';
232        UrlBudlevering := InjectURL(UrlBudlevering);
233    
234        UrlManglendeScanninger := BaseURL + '/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s';
235        UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
236    
237        UrlEKLoverforsel := BaseURL + '/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s';
238        UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
239    
240        UrlEKLoverforselPakkeshop := BaseURL + '/webservices/pakkeshop/pakkertilekl.php?sted=%s';
241        UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
242    
243        UrlPakkeshoplevering := BaseURL + '/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s';
244        UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
245    
246        UrlReturPakkeshop := BaseURL + '/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s';
247        UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
248    
249        UrlPakkeshopManglendeScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s';
250        UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
251    
252        UrlPakkeshopManglendeReturScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s';
253        UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
254    
255        UrlIndleveringsPakke := BaseURL + '/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s';
256        UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
257    
258        UrlIndleveringsPakkeManglendeScanninger := BaseURL + '/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s';
259        UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
260    
261        URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';
262        URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
263    
264        UrlEmballageRepareret := BaseURL + '/webservices/pakkeshop/EmballageRepareret.php?sted=%s&stregkode=%s';
265        UrlEmballageRepareret := InjectURL(UrlEmballageRepareret);
266    
267        URLUdenforSpecifikation := BaseURL + '/webservices/pakkeshop/UdenforSpecifikation.php?sted=%s&stregkode=%s';
268        URLUdenforSpecifikation := InjectURL(URLUdenforSpecifikation);
269    
270    
271        URLPrintLabel := BaseURL + '/WebServices/BogpakkeKontrol/PrintLabel.php?stregkode=%s';
272        URLPrintLabel := InjectURL(URLPrintLabel);
273    
274        UrlHentPakkeAntal := BaseURL + '/WebServices/BogpakkeKontrol/HentPakkeAntal.php?sted=%s';
275        UrlHentPakkeAntal := InjectURL(UrlHentPakkeAntal);
276    
277    
278    
279        //Finally check for files:
280        if not FileExists(AlarmLyd) then
281        begin
282          AlarmLyd := '';
283        end;
284    
285        if not FileExists(ScannetOkLyd) then
286        begin
287          ScannetOkLyd := '';
288        end;
289    
290        if not FileExists(ScannetOkStorLyd) then
291        begin
292          ScannetOkStorLyd := '';
293        end;
294    
295    
296        if not FileExists(ScannetOkTilTjekkodeLyd) then
297        begin
298          ScannetOkTilTjekkodeLyd := '';
299        end;
300    
301    
302    
303    end;
304    
305    
306    function TConfiguration.InjectURL(Url : String) : String;
307    begin
308    
309      Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
310      Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
311      Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
312    
313      Result := Url;
314  end;  end;
315    
316  end.  end.
Legend:
Removed from v.2705  
changed lines
  Added in v.3124
  ViewVC Help
Powered by ViewVC 1.1.20