/[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 3077 by torben, Thu Jul 28 21:25:58 2016 UTC revision 3090 by torben, Mon Aug 15 19:26:48 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      BaseURL : string;       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        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);
79        function InjectURL(Url : String) : String;
80    
81    end;    end;
82    
83  implementation  implementation
84    
85    uses Utils, SysUtils;
86    
87    
88  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
89  begin  begin
90    
91    // ToDO : Omskriv alle URL referncer til at basere sig på BaseURL  
92    BaseURL := 'http://omdeling.info/webservices';    BaseURL := 'http://omdeling.info/';
93    
94    with iniFile do    with iniFile do
95    begin    begin
96        FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
97        TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
98        FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');
99        TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');
100        FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');
101        TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');
102        FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');
103        TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
104        FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
105        TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
106    
107        FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
108        TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
109    
110        FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
111        TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
112    
113    
114        SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
115        ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
116        ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
117    
118        //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');
122    
123        AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
124        ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
125        ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
126    
127        ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
128    
129        PrinterNavn := ReadString('Settings','PrinterNavn','');
130        TjekPrinter := ReadString('Settings','TjekPrinter','1');
131        TjekUrls := ReadString('Settings','TjekUrls','2');
132    
133    
134      LabelType := ReadInteger('Settings','LabelType',1);      LabelType := ReadInteger('Settings','LabelType',1);
135    
# Line 127  begin Line 204  begin
204      end;      end;
205    end;  //With ... do    end;  //With ... do
206    
207        UrlFindPakketype := BaseURL + '/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s';
208        UrlFindPakketype := InjectURL(UrlFindPakketype);
209    
210        UrlSendPrograminfo := BaseURL + '/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s';
211        UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
212    
213        UrlNormal := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s';
214        UrlNormal := InjectURL(UrlNormal);
215    
216        UrlReturDAO := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
217        UrlReturDAO := InjectURL(UrlReturDAO);
218    
219        UrlReturBoghandler := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
220        UrlReturBoghandler := InjectURL(UrlReturBoghandler);
221    
222        UrlBudlevering := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s';
223        UrlBudlevering := InjectURL(UrlBudlevering);
224    
225        UrlManglendeScanninger := BaseURL + '/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s';
226        UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
227    
228        UrlEKLoverforsel := BaseURL + '/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s';
229        UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
230    
231        UrlEKLoverforselPakkeshop := BaseURL + '/webservices/pakkeshop/pakkertilekl.php?sted=%s';
232        UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
233    
234        UrlPakkeshoplevering := BaseURL + '/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s';
235        UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
236    
237        UrlReturPakkeshop := BaseURL + '/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s';
238        UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
239    
240        UrlPakkeshopManglendeScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s';
241        UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
242    
243        UrlPakkeshopManglendeReturScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s';
244        UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
245    
246        UrlIndleveringsPakke := BaseURL + '/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s';
247        UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
248    
249        UrlIndleveringsPakkeManglendeScanninger := BaseURL + '/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s';
250        UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
251    
252        URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';
253        URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
254    
255        URLPrintLabel := BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=%s';
256        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;
285    
286    
287    function TConfiguration.InjectURL(Url : String) : String;
288    begin
289    
290      Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
291      Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
292      Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
293    
294      Result := Url;
295  end;  end;
296    
297  end.  end.
Legend:
Removed from v.3077  
changed lines
  Added in v.3090
  ViewVC Help
Powered by ViewVC 1.1.20