174 |
procedure SletLogfiler(Path: string; FileList: TStrings); |
procedure SletLogfiler(Path: string; FileList: TStrings); |
175 |
procedure Manualgenerel1Click(Sender: TObject); |
procedure Manualgenerel1Click(Sender: TObject); |
176 |
procedure TjekkerUrls(); |
procedure TjekkerUrls(); |
177 |
|
procedure TjekkerEnkeltUrl(UrlNavn: String; Url: String; var urlFejl: integer); |
178 |
|
|
179 |
procedure menuIndleveringClick(Sender: TObject); |
procedure menuIndleveringClick(Sender: TObject); |
180 |
|
|
2152 |
begin |
begin |
2153 |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label |
2154 |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc |
2155 |
RuteNummer := PakkeshopLabel.Koreliste; |
RuteNummer := PakkeshopLabel.Koreliste + ' -> ' + PakkeshopLabel.PakkeshopTurid; |
2156 |
Stregkode := PakkeshopLabel.Stregkode; |
Stregkode := PakkeshopLabel.Stregkode; |
2157 |
|
|
2158 |
PrintPakkeshopLabel( PakkeshopLabel ); |
PrintPakkeshopLabel( PakkeshopLabel ); |
2654 |
//UpdateScreen('', '', 'Tjekker forbindelsen...', '', ''); // virker ikke |
//UpdateScreen('', '', 'Tjekker forbindelsen...', '', ''); // virker ikke |
2655 |
ShowMessage('Tjekker data forbindelse til serveren.' + crlf + 'Det kan godt tage nogle minutter.' + crlf + 'Resultatet af testen vises i skærmbilledet...'); |
ShowMessage('Tjekker data forbindelse til serveren.' + crlf + 'Det kan godt tage nogle minutter.' + crlf + 'Resultatet af testen vises i skærmbilledet...'); |
2656 |
|
|
2657 |
// Tjekker urls |
try |
2658 |
logTekst := 'Tjekker urls.'; |
// Tjekker urls |
2659 |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
logTekst := 'Tjekker urls.'; |
2660 |
SkrivScanningLogFil(logTekst); |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
2661 |
|
SkrivScanningLogFil(logTekst); |
2662 |
|
|
|
// Tjekker UrlNormal |
|
|
if PanelValg1.Enabled = true then |
|
|
begin |
|
|
if TUtils.CheckUrl(UrlNormal) then |
|
|
begin |
|
|
logTekst := 'UrlNormal accepteret: ' + UrlNormal; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlNormal svarer ikke: ' + UrlNormal; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
TjekUrls := '-'; // markerer at der var fejl |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2663 |
|
|
|
// Tjekker UrlReturDAO |
|
|
if PanelValg2.Enabled = true then |
|
|
begin |
|
|
if TUtils.CheckUrl(UrlReturDAO) then |
|
|
begin |
|
|
logTekst := 'UrlReturDAO accepteret: ' + UrlReturDAO; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlReturDAO svarer ikke: ' + UrlReturDAO; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2664 |
|
|
2665 |
// Tjekker UrlReturBoghandler |
// Tjekker UrlNormal |
2666 |
if PanelValg3.Enabled = true then |
if PanelValg1.Enabled = true then |
2667 |
begin |
begin |
2668 |
if TUtils.CheckUrl(UrlReturBoghandler) then |
TjekkerEnkeltUrl('UrlNormal', UrlNormal, urlFejl); |
2669 |
begin |
end; |
|
logTekst := 'UrlReturBoghandler accepteret: ' + UrlReturBoghandler; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlReturDAO svarer ikke: ' + UrlReturDAO; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2670 |
|
|
2671 |
// Tjekker UrlBudlevering |
// Tjekker UrlReturDAO |
2672 |
if PanelValg4.Enabled = true then |
if PanelValg2.Enabled = true then |
2673 |
begin |
begin |
2674 |
if TUtils.CheckUrl(UrlBudlevering) then |
TjekkerEnkeltUrl('UrlReturDAO', UrlReturDAO, urlFejl); |
2675 |
begin |
end; |
|
logTekst := 'UrlBudlevering accepteret: ' + UrlBudlevering; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlBudlevering svarer ikke: ' + UrlBudlevering; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2676 |
|
|
2677 |
// Tjekker UrlPakkeshoplevering |
// Tjekker UrlReturBoghandler |
2678 |
if PanelValg5.Enabled = true then |
if PanelValg3.Enabled = true then |
2679 |
begin |
begin |
2680 |
if TUtils.CheckUrl(UrlPakkeshoplevering) then |
TjekkerEnkeltUrl('UrlReturBoghandler', UrlReturBoghandler, urlFejl); |
2681 |
begin |
end; |
|
logTekst := 'UrlPakkeshoplevering accepteret: ' + UrlPakkeshoplevering; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlPakkeshoplevering svarer ikke: ' + UrlPakkeshoplevering; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2682 |
|
|
2683 |
// Tjekker UrlReturPakkeshop |
// Tjekker UrlBudlevering |
2684 |
if PanelValg6.Enabled = true then |
if PanelValg4.Enabled = true then |
2685 |
begin |
begin |
2686 |
if TUtils.CheckUrl(UrlReturPakkeshop) then |
TjekkerEnkeltUrl('UrlBudlevering', UrlBudlevering, urlFejl); |
2687 |
begin |
end; |
|
logTekst := 'UrlReturPakkeshop accepteret: ' + UrlReturPakkeshop; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlReturPakkeshop svarer ikke: ' + UrlReturPakkeshop; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2688 |
|
|
2689 |
// Tjekker UrlManglendeScanninger |
// Tjekker UrlPakkeshoplevering |
2690 |
if (PanelValg1.Enabled = true) |
if PanelValg5.Enabled = true then |
2691 |
or (PanelValg4.Enabled = true) then |
begin |
2692 |
begin |
TjekkerEnkeltUrl('UrlPakkeshoplevering', UrlPakkeshoplevering, urlFejl); |
2693 |
if TUtils.CheckUrl(UrlManglendeScanninger) then |
end; |
|
begin |
|
|
logTekst := 'UrlManglendeScanninger accepteret: ' + UrlManglendeScanninger; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlManglendeScanninger svarer ikke: ' + UrlManglendeScanninger; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2694 |
|
|
2695 |
// Tjekker UrlPakkeshopManglendeScanninger |
// Tjekker UrlReturPakkeshop |
2696 |
if PanelValg5.Enabled = true then |
if PanelValg6.Enabled = true then |
2697 |
begin |
begin |
2698 |
if TUtils.CheckUrl(UrlPakkeshopManglendeScanninger) then |
TjekkerEnkeltUrl('UrlReturPakkeshop', UrlReturPakkeshop, urlFejl); |
2699 |
begin |
end; |
|
logTekst := 'UrlPakkeshopManglendeScanninger accepteret: ' + UrlPakkeshopManglendeScanninger; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlPakkeshopManglendeScanninger svarer ikke: ' + UrlPakkeshopManglendeScanninger; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2700 |
|
|
2701 |
// Tjekker UrlPakkeshopManglendeReturScanninger |
// Tjekker UrlManglendeScanninger |
2702 |
if PanelValg6.Enabled = true then |
if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then |
2703 |
begin |
begin |
2704 |
if TUtils.CheckUrl(UrlPakkeshopManglendeReturScanninger) then |
TjekkerEnkeltUrl('UrlManglendeScanninger', UrlManglendeScanninger, urlFejl); |
2705 |
begin |
end; |
|
logTekst := 'UrlPakkeshopManglendeReturScanninger accepteret: ' + UrlPakkeshopManglendeReturScanninger; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlPakkeshopManglendeReturScanninger svarer ikke: ' + UrlPakkeshopManglendeReturScanninger; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2706 |
|
|
2707 |
// Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger |
// Tjekker UrlPakkeshopManglendeScanninger |
2708 |
if PanelValg7.Enabled = true then |
if PanelValg5.Enabled = true then |
2709 |
begin |
begin |
2710 |
if TUtils.CheckUrl(UrlIndleveringsPakke) then |
TjekkerEnkeltUrl('UrlPakkeshopManglendeScanninger', UrlPakkeshopManglendeScanninger, urlFejl); |
2711 |
begin |
end; |
|
logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlIndleveringsPakke svarer ikke: ' + UrlIndleveringsPakke; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
2712 |
|
|
2713 |
if TUtils.CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then |
// Tjekker UrlPakkeshopManglendeReturScanninger |
2714 |
begin |
if PanelValg6.Enabled = true then |
2715 |
logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger; |
begin |
2716 |
SkrivScanningLogFil(logTekst); |
TjekkerEnkeltUrl('UrlPakkeshopManglendeReturScanninger', UrlPakkeshopManglendeReturScanninger, urlFejl); |
2717 |
end |
end; |
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlIndleveringsPakkeManglendeScanninger svarer ikke: ' + UrlIndleveringsPakkeManglendeScanninger; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2718 |
|
|
2719 |
// Tjekker UrlEKLoverforsel |
// Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger |
2720 |
if PanelValg1.Enabled = true then |
if PanelValg7.Enabled = true then |
2721 |
begin |
begin |
2722 |
if TUtils.CheckUrl(UrlEKLoverforsel) then |
TjekkerEnkeltUrl('UrlIndleveringsPakke', UrlIndleveringsPakke, urlFejl); |
2723 |
begin |
TjekkerEnkeltUrl('UrlIndleveringsPakkeManglendeScanninger', UrlIndleveringsPakkeManglendeScanninger, urlFejl); |
2724 |
logTekst := 'UrlEKLoverforsel accepteret: ' + UrlEKLoverforsel; |
end; |
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlEKLoverforsel svarer ikke: ' + UrlEKLoverforsel; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2725 |
|
|
2726 |
|
// Tjekker UrlEKLoverforsel |
2727 |
|
if PanelValg1.Enabled = true then |
2728 |
|
begin |
2729 |
|
TjekkerEnkeltUrl('UrlEKLoverforsel', UrlEKLoverforsel, urlFejl); |
2730 |
|
end; |
2731 |
|
|
|
// Tjekker UrlEKLoverforselPakkeshop |
|
|
if PanelValg5.Enabled = true then |
|
|
begin |
|
|
if TUtils.CheckUrl(UrlEKLoverforselPakkeshop) then |
|
|
begin |
|
|
logTekst := 'UrlEKLoverforselPakkeshop accepteret: ' + UrlEKLoverforselPakkeshop; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlEKLoverforselPakkeshop svarer ikke: ' + UrlEKLoverforselPakkeshop; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
|
end; |
|
2732 |
|
|
2733 |
|
// Tjekker UrlEKLoverforselPakkeshop |
2734 |
|
if PanelValg5.Enabled = true then |
2735 |
|
begin |
2736 |
|
TjekkerEnkeltUrl('UrlEKLoverforselPakkeshop', UrlEKLoverforselPakkeshop, urlFejl); |
2737 |
|
end; |
2738 |
|
|
|
// Tjekker UrlFindPakketype |
|
|
if TUtils.CheckUrl(UrlFindPakketype) then |
|
|
begin |
|
|
logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlFindPakketype svarer ikke: ' + UrlFindPakketype; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
2739 |
|
|
2740 |
// Tjekker UrlSendPrograminfo |
// Tjekker UrlFindPakketype |
2741 |
if TUtils.CheckUrl(UrlSendPrograminfo) then |
TjekkerEnkeltUrl('UrlFindPakketype', UrlFindPakketype, urlFejl); |
2742 |
begin |
|
2743 |
logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo; |
// Tjekker UrlSendPrograminfo |
2744 |
SkrivScanningLogFil(logTekst); |
TjekkerEnkeltUrl('UrlSendPrograminfo', UrlSendPrograminfo, urlFejl); |
2745 |
end |
|
|
else |
|
|
begin |
|
|
inc(urlFejl); // Optæller antal fejl |
|
|
logTekst := 'UrlSendPrograminfo svarer ikke: ' + UrlSendPrograminfo; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
|
|
end; |
|
|
SkrivScanningLogFil(logTekst); |
|
|
if TjekUrls = '1' then |
|
|
begin |
|
|
ShowMessage(logTekst); |
|
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
|
|
Application.Terminate; |
|
|
exit; |
|
|
end; |
|
|
end; |
|
2746 |
|
|
|
if urlFejl > 0 then |
|
|
begin |
|
|
TjekUrls := '-'; // markerer at der var fejl |
|
|
end |
|
|
else |
|
|
begin |
|
|
logTekst := 'urls er ok'; |
|
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
|
|
SkrivScanningLogFil(logTekst); |
|
|
end; |
|
2747 |
|
|
2748 |
|
logTekst := 'urls er ok'; |
2749 |
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
2750 |
|
SkrivScanningLogFil(logTekst); |
2751 |
|
|
2752 |
|
Except |
2753 |
|
TjekUrls := '-'; // markerer at der var fejl |
2754 |
|
|
2755 |
|
end; |
2756 |
end; |
end; |
2757 |
|
|
2758 |
|
procedure TMainForm.TjekkerEnkeltUrl(UrlNavn: String; Url: String; var urlFejl: integer); |
2759 |
|
const |
2760 |
|
crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed |
2761 |
|
begin |
2762 |
|
if TUtils.CheckUrl(Url) then |
2763 |
|
|
2764 |
|
begin |
2765 |
|
logTekst := UrlNavn + ' accepteret: ' + Url; |
2766 |
|
SkrivScanningLogFil(logTekst); |
2767 |
|
end |
2768 |
|
else |
2769 |
|
begin |
2770 |
|
inc(urlFejl); // Optæller antal fejl |
2771 |
|
logTekst := UrlNavn + ' svarer ikke: ' + Url; |
2772 |
|
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
2773 |
|
if TjekUrls = '1' then |
2774 |
|
begin |
2775 |
|
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
2776 |
|
end; |
2777 |
|
|
2778 |
|
SkrivScanningLogFil(logTekst); |
2779 |
|
|
2780 |
|
if TjekUrls = '1' then |
2781 |
|
begin |
2782 |
|
ShowMessage(logTekst); |
2783 |
|
UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
2784 |
|
Application.Terminate; |
2785 |
|
|
2786 |
|
raise Exception.Create('UrlFejl'); |
2787 |
|
|
2788 |
|
end; |
2789 |
|
end; |
2790 |
|
|
2791 |
|
end; |
2792 |
|
|
2793 |
|
|
2794 |
|
|
2795 |
procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings); |
procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings); |
2796 |
var |
var |
2797 |
SR: TSearchRec; |
SR: TSearchRec; |