289 |
procedure TMainForm.InitForm(Farve,Titel,Url : String); |
procedure TMainForm.InitForm(Farve,Titel,Url : String); |
290 |
begin |
begin |
291 |
|
|
292 |
|
IdHTTP1.ConnectTimeout := 5000; // Vent max 5 sek på connect |
293 |
|
IdHTTP1.ReadTimeout := 10000; // Vent max 10 sek på read |
294 |
|
|
295 |
|
|
296 |
|
|
297 |
|
|
298 |
StaticTextManglendePakker.Caption := ''; |
StaticTextManglendePakker.Caption := ''; |
299 |
|
|
300 |
|
|
4277 |
begin |
begin |
4278 |
// Her skal vi ikke gøre noget - men vi skal forespørge igen |
// Her skal vi ikke gøre noget - men vi skal forespørge igen |
4279 |
WebSvar := IdHTTP1.Get(URLStr); |
WebSvar := IdHTTP1.Get(URLStr); |
4280 |
|
|
4281 |
|
|
4282 |
|
|
4283 |
end; |
end; |
4284 |
on e:exception do |
on e:exception do |
4285 |
begin |
begin |