/[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 3086 by torben, Thu Jul 28 21:25:58 2016 UTC revision 3087 by torben, Mon Aug 15 14:14:14 2016 UTC
# Line 38  type Line 38  type
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
# Line 127  begin Line 141  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.
Legend:
Removed from v.3086  
changed lines
  Added in v.3087
  ViewVC Help
Powered by ViewVC 1.1.20