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 |
|
|
3002 |
SmsKode := '999999'; |
SmsKode := '999999'; |
3003 |
DBKbane := '999'; |
DBKbane := '999'; |
3004 |
Leveringssted := 'XXX'; |
Leveringssted := 'XXX'; |
3005 |
LabelPrint.TestZpl(); |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
|
//PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
|
3006 |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
3007 |
end; |
end; |
3008 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
4276 |
begin |
begin |
4277 |
// 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 |
4278 |
WebSvar := IdHTTP1.Get(URLStr); |
WebSvar := IdHTTP1.Get(URLStr); |
4279 |
|
|
4280 |
|
|
4281 |
|
|
4282 |
end; |
end; |
4283 |
on e:exception do |
on e:exception do |
4284 |
begin |
begin |