38 |
|
|
39 |
BaseURL : string; |
BaseURL : string; |
40 |
|
|
41 |
|
|
42 |
|
UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, |
43 |
|
UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke, |
44 |
|
UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String; |
45 |
|
|
46 |
|
UrlEKLoverforselPakkeshop : String; |
47 |
|
|
48 |
|
UrlFindPakketype, UrlSendPrograminfo: String; |
49 |
|
|
50 |
|
|
51 |
|
|
52 |
procedure ReadFromInifile( iniFile: TIniFile); |
procedure ReadFromInifile( iniFile: TIniFile); |
53 |
|
function InjectURL(Url : String) : String; |
54 |
|
|
55 |
end; |
end; |
56 |
|
|
57 |
implementation |
implementation |
58 |
|
|
59 |
|
uses Utils; |
60 |
|
|
61 |
|
|
62 |
procedure TConfiguration.ReadFromInifile( iniFile: TIniFile); |
procedure TConfiguration.ReadFromInifile( iniFile: TIniFile); |
63 |
begin |
begin |
64 |
|
|
65 |
// ToDO : Omskriv alle URL referncer til at basere sig på BaseURL |
|
66 |
BaseURL := 'http://omdeling.info/webservices'; |
BaseURL := 'http://omdeling.info/'; |
67 |
|
|
68 |
with iniFile do |
with iniFile do |
69 |
begin |
begin |
141 |
end; |
end; |
142 |
end; //With ... do |
end; //With ... do |
143 |
|
|
144 |
|
UrlFindPakketype := BaseURL + '/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s'; |
145 |
|
UrlFindPakketype := InjectURL(UrlFindPakketype); |
146 |
|
|
147 |
|
UrlSendPrograminfo := BaseURL + '/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s'; |
148 |
|
UrlSendPrograminfo := InjectURL(UrlSendPrograminfo); |
149 |
|
|
150 |
|
UrlNormal := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s'; |
151 |
|
UrlNormal := InjectURL(UrlNormal); |
152 |
|
|
153 |
|
UrlReturDAO := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s'; |
154 |
|
UrlReturDAO := InjectURL(UrlReturDAO); |
155 |
|
|
156 |
|
UrlReturBoghandler := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s'; |
157 |
|
UrlReturBoghandler := InjectURL(UrlReturBoghandler); |
158 |
|
|
159 |
|
UrlBudlevering := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s'; |
160 |
|
UrlBudlevering := InjectURL(UrlBudlevering); |
161 |
|
|
162 |
|
UrlManglendeScanninger := BaseURL + '/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s'; |
163 |
|
UrlManglendeScanninger := InjectURL(UrlManglendeScanninger); |
164 |
|
|
165 |
|
UrlEKLoverforsel := BaseURL + '/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s'; |
166 |
|
UrlEKLoverforsel := InjectURL(UrlEKLoverforsel); |
167 |
|
|
168 |
|
UrlEKLoverforselPakkeshop := BaseURL + '/webservices/pakkeshop/pakkertilekl.php?sted=%s'; |
169 |
|
UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop); |
170 |
|
|
171 |
|
UrlPakkeshoplevering := BaseURL + '/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s'; |
172 |
|
UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering); |
173 |
|
|
174 |
|
UrlReturPakkeshop := BaseURL + '/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s'; |
175 |
|
UrlReturPakkeshop := InjectURL(UrlReturPakkeshop); |
176 |
|
|
177 |
|
UrlPakkeshopManglendeScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s'; |
178 |
|
UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger); |
179 |
|
|
180 |
|
UrlPakkeshopManglendeReturScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s'; |
181 |
|
UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger); |
182 |
|
|
183 |
|
UrlIndleveringsPakke := BaseURL + '/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s'; |
184 |
|
UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke); |
185 |
|
|
186 |
|
UrlIndleveringsPakkeManglendeScanninger := BaseURL + '/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s'; |
187 |
|
UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger); |
188 |
|
|
189 |
|
URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s'; |
190 |
|
URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop); |
191 |
|
|
192 |
|
|
193 |
|
end; |
194 |
|
|
195 |
|
|
196 |
|
function TConfiguration.InjectURL(Url : String) : String; |
197 |
|
begin |
198 |
|
|
199 |
|
Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion('')); |
200 |
|
Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper()); |
201 |
|
Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName()); |
202 |
|
|
203 |
|
Result := Url; |
204 |
end; |
end; |
205 |
|
|
206 |
end. |
end. |