6 |
|
|
7 |
type |
type |
8 |
TConfiguration = class |
TConfiguration = class |
9 |
|
private |
10 |
|
BaseURL : string; |
11 |
|
|
12 |
public |
public |
13 |
|
|
14 |
Sted : String; |
Sted : String; |
39 |
YPosSmskode : integer; |
YPosSmskode : integer; |
40 |
FontSizeSmskode : integer; |
FontSizeSmskode : integer; |
41 |
|
|
42 |
BaseURL : string; |
|
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 |
// ToDO : Omskriv alle URL referncer til at basere sig på BaseURL |
|
70 |
BaseURL := 'http://omdeling.info/webservices'; |
BaseURL := 'http://omdeling.info/'; |
71 |
|
|
72 |
with iniFile do |
with iniFile do |
73 |
begin |
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. |