/[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 3088 by torben, Mon Aug 15 15:56:50 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    
43    
44    
45       UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,
46                UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,
47                UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;
48    
49        URLPrintLabel : String;
50        UrlEKLoverforselPakkeshop : String;
51    
52        UrlFindPakketype, UrlSendPrograminfo: String;
53    
54    
55    
56      procedure ReadFromInifile( iniFile: TIniFile);      procedure ReadFromInifile( iniFile: TIniFile);
57        function InjectURL(Url : String) : String;
58    
59    end;    end;
60    
61  implementation  implementation
62    
63    uses Utils;
64    
65    
66  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);  procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
67  begin  begin
68    
69    
70      BaseURL := 'http://omdeling.info/';
71    
72    with iniFile do    with iniFile do
73    begin    begin
74    
# Line 121  begin Line 145  begin
145      end;      end;
146    end;  //With ... do    end;  //With ... do
147    
148        UrlFindPakketype := BaseURL + '/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s';
149        UrlFindPakketype := InjectURL(UrlFindPakketype);
150    
151        UrlSendPrograminfo := BaseURL + '/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s';
152        UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
153    
154        UrlNormal := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s';
155        UrlNormal := InjectURL(UrlNormal);
156    
157        UrlReturDAO := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
158        UrlReturDAO := InjectURL(UrlReturDAO);
159    
160        UrlReturBoghandler := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
161        UrlReturBoghandler := InjectURL(UrlReturBoghandler);
162    
163        UrlBudlevering := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s';
164        UrlBudlevering := InjectURL(UrlBudlevering);
165    
166        UrlManglendeScanninger := BaseURL + '/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s';
167        UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
168    
169        UrlEKLoverforsel := BaseURL + '/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s';
170        UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
171    
172        UrlEKLoverforselPakkeshop := BaseURL + '/webservices/pakkeshop/pakkertilekl.php?sted=%s';
173        UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
174    
175        UrlPakkeshoplevering := BaseURL + '/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s';
176        UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
177    
178        UrlReturPakkeshop := BaseURL + '/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s';
179        UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
180    
181        UrlPakkeshopManglendeScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s';
182        UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
183    
184        UrlPakkeshopManglendeReturScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s';
185        UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
186    
187        UrlIndleveringsPakke := BaseURL + '/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s';
188        UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
189    
190        UrlIndleveringsPakkeManglendeScanninger := BaseURL + '/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s';
191        UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
192    
193        URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';
194        URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
195    
196        URLPrintLabel := BaseURL + '/BogpakkeKontrol/PrintLabel.php?stregkode=%s';
197        URLPrintLabel := InjectURL(URLPrintLabel);
198    
199    
200    end;
201    
202    
203    function TConfiguration.InjectURL(Url : String) : String;
204    begin
205    
206      Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
207      Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
208      Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
209    
210      Result := Url;
211  end;  end;
212    
213  end.  end.
Legend:
Removed from v.2705  
changed lines
  Added in v.3088
  ViewVC Help
Powered by ViewVC 1.1.20