212 |
Sted : String; |
Sted : String; |
213 |
StedNavn : String; |
StedNavn : String; |
214 |
|
|
215 |
Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String; |
Scanningtype, Pakketype : String; |
216 |
ScanTjekkode : String; |
|
|
ScanTjekkodeAutomatik : string; |
|
217 |
|
|
218 |
Url : String; |
Url : String; |
219 |
|
|
221 |
|
|
222 |
Titel : String; |
Titel : String; |
223 |
|
|
|
AlarmLyd : String; |
|
|
ScannetOkLyd : String; |
|
|
ScannetOkStorLyd : String; |
|
|
|
|
|
ScannetOkTilTjekkodeLyd : String; |
|
224 |
|
|
|
PrinterNavn : String; |
|
|
TjekPrinter : String; |
|
225 |
|
|
226 |
Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String; |
Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String; |
227 |
BladhusSted : Integer; |
BladhusSted : Integer; |
234 |
logTekst : string; |
logTekst : string; |
235 |
PakkeshopStregkode, PakkeshopTjekkode : String; |
PakkeshopStregkode, PakkeshopTjekkode : String; |
236 |
BoghandlerStregkode, BoghandlerTjekkode : String; |
BoghandlerStregkode, BoghandlerTjekkode : String; |
237 |
TjekUrls : String; |
|
238 |
Config : TConfiguration; |
Config : TConfiguration; |
239 |
|
|
240 |
|
|
405 |
|
|
406 |
if (Scanningtype = '1') or (Scanningtype = '5') then |
if (Scanningtype = '1') or (Scanningtype = '5') then |
407 |
begin |
begin |
408 |
if (ScanTjekkode = '1') then |
if (Config.ScanTjekkode = '1') then |
409 |
begin |
begin |
410 |
chkScanTjekkode.Checked := true; |
chkScanTjekkode.Checked := true; |
411 |
chkScanTjekkode.Enabled := true; |
chkScanTjekkode.Enabled := true; |
583 |
|
|
584 |
|
|
585 |
|
|
586 |
if SporgEfterBoghandler = '1' then |
if Config.SporgEfterBoghandler = '1' then |
587 |
begin |
begin |
588 |
chkSporgEfterKunde.Checked := true; |
chkSporgEfterKunde.Checked := true; |
589 |
Sprgefterboghandlernummer1.Checked := true; |
Sprgefterboghandlernummer1.Checked := true; |
594 |
Sprgefterboghandlernummer1.Checked := false; |
Sprgefterboghandlernummer1.Checked := false; |
595 |
end; |
end; |
596 |
|
|
597 |
if ScanTjekkode = '1' then |
if Config.ScanTjekkode = '1' then |
598 |
begin |
begin |
599 |
chkScanTjekkode.Checked := true; |
chkScanTjekkode.Checked := true; |
600 |
Scanogstjekkoden1.Checked := true; |
Scanogstjekkoden1.Checked := true; |
605 |
Scanogstjekkoden1.Checked := false; |
Scanogstjekkoden1.Checked := false; |
606 |
end; |
end; |
607 |
|
|
608 |
if ScanTjekkodeAutomatik = '1' then |
if Config.ScanTjekkodeAutomatik = '1' then |
609 |
begin |
begin |
610 |
menuAutomatiskTjekkodeStyring.Checked := true; |
menuAutomatiskTjekkodeStyring.Checked := true; |
611 |
chkScanTjekkode.Enabled := false; |
chkScanTjekkode.Enabled := false; |
850 |
Application.Terminate; |
Application.Terminate; |
851 |
end; |
end; |
852 |
|
|
853 |
if TjekUrls = '1' then // Tjekker urls |
if Config.TjekUrls = '1' then // Tjekker urls |
854 |
begin |
begin |
855 |
TjekkerUrls(); |
TjekkerUrls(); |
856 |
if TjekUrls = '-' then // så var der fejl i url - så vi stopper her |
if Config.TjekUrls = '-' then // så var der fejl i url - så vi stopper her |
857 |
begin |
begin |
858 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
859 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
860 |
RutenummerST.Caption := ''; |
RutenummerST.Caption := ''; |
861 |
BoghandlerNavnST.Caption := 'Fejl i urls'; |
BoghandlerNavnST.Caption := 'Fejl i urls'; |
911 |
radioLillePakke.Checked := true; |
radioLillePakke.Checked := true; |
912 |
end; |
end; |
913 |
|
|
914 |
if TestFunktionen = '1' then |
if Config.TestFunktionen = '1' then |
915 |
begin |
begin |
916 |
Testforbindelsen1.Visible := true; |
Testforbindelsen1.Visible := true; |
917 |
Testprinter1.Visible := true; |
Testprinter1.Visible := true; |
918 |
Testlyd1.Visible := true; |
Testlyd1.Visible := true; |
919 |
Testlyd2.Visible := true; |
Testlyd2.Visible := true; |
920 |
end |
end |
921 |
else if TestFunktionen = '2' then |
else if Config.TestFunktionen = '2' then |
922 |
begin |
begin |
923 |
Testforbindelsen1.Enabled := false; |
Testforbindelsen1.Enabled := false; |
924 |
Testprinter1.Enabled := false; |
Testprinter1.Enabled := false; |
933 |
Testlyd2.Visible := false; |
Testlyd2.Visible := false; |
934 |
end; |
end; |
935 |
|
|
|
if not FileExists(AlarmLyd) then |
|
|
begin |
|
|
AlarmLyd := ''; |
|
|
end; |
|
|
|
|
|
if not FileExists(ScannetOkLyd) then |
|
|
begin |
|
|
ScannetOkLyd := ''; |
|
|
end; |
|
|
|
|
|
if not FileExists(ScannetOkStorLyd) then |
|
|
begin |
|
|
ScannetOkStorLyd := ''; |
|
|
end; |
|
|
|
|
|
|
|
|
if not FileExists(ScannetOkTilTjekkodeLyd) then |
|
|
begin |
|
|
ScannetOkTilTjekkodeLyd := ''; |
|
|
end; |
|
936 |
|
|
937 |
|
|
938 |
|
|
939 |
|
|
940 |
LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn ); |
LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn ); |
941 |
LabelPrint.CheckPrintQue('Opstart', PrinterNavn); |
LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn); |
942 |
|
|
943 |
finally |
finally |
944 |
Free; |
Free; |
1472 |
BoghandlerStregkode := Stregkode; |
BoghandlerStregkode := Stregkode; |
1473 |
PakkeshopText1.Caption := 'Tjekkode'; |
PakkeshopText1.Caption := 'Tjekkode'; |
1474 |
|
|
1475 |
PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); |
PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd)); |
1476 |
|
|
1477 |
end |
end |
1478 |
else |
else |
1546 |
tjekkodemangler := pos('Tjekkode mangler', Kommentar); |
tjekkodemangler := pos('Tjekkode mangler', Kommentar); |
1547 |
if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then |
if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then |
1548 |
begin |
begin |
1549 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
1550 |
btnNulstil.Visible := true; |
btnNulstil.Visible := true; |
1551 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
1552 |
end; |
end; |
1556 |
MainForm.Color := TUtils.HexToTColor(Farve); |
MainForm.Color := TUtils.HexToTColor(Farve); |
1557 |
if menuStorePakker.Checked then |
if menuStorePakker.Checked then |
1558 |
begin |
begin |
1559 |
PlaySound(PWideChar(ScannetOkStorLyd)); |
PlaySound(PWideChar(Config.ScannetOkStorLyd)); |
1560 |
end |
end |
1561 |
else |
else |
1562 |
begin |
begin |
1563 |
PlaySound(PWideChar(ScannetOkLyd)); |
PlaySound(PWideChar(Config.ScannetOkLyd)); |
1564 |
end; |
end; |
1565 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
1566 |
end |
end |
1569 |
MainForm.Color := TUtils.HexToTColor(Farve); |
MainForm.Color := TUtils.HexToTColor(Farve); |
1570 |
if menuStorePakker.Checked then |
if menuStorePakker.Checked then |
1571 |
begin |
begin |
1572 |
PlaySound(PWideChar(ScannetOkStorLyd)); |
PlaySound(PWideChar(Config.ScannetOkStorLyd)); |
1573 |
end |
end |
1574 |
else |
else |
1575 |
begin |
begin |
1576 |
PlaySound(PWideChar(ScannetOkLyd)); |
PlaySound(PWideChar(Config.ScannetOkLyd)); |
1577 |
end; |
end; |
1578 |
btnNulstil.Visible := false; |
btnNulstil.Visible := false; |
1579 |
end |
end |
1596 |
begin |
begin |
1597 |
if menuStorePakker.Checked then |
if menuStorePakker.Checked then |
1598 |
begin |
begin |
1599 |
PlaySound(PWideChar(ScannetOkStorLyd)); |
PlaySound(PWideChar(Config.ScannetOkStorLyd)); |
1600 |
end |
end |
1601 |
else |
else |
1602 |
begin |
begin |
1603 |
PlaySound(PWideChar(ScannetOkLyd)); |
PlaySound(PWideChar(Config.ScannetOkLyd)); |
1604 |
end; |
end; |
1605 |
InitLillePakke(); |
InitLillePakke(); |
1606 |
end; |
end; |
2246 |
begin |
begin |
2247 |
PrintNyLabel := false; |
PrintNyLabel := false; |
2248 |
|
|
2249 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
2250 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
2251 |
btnNulstil.Visible := true; |
btnNulstil.Visible := true; |
2252 |
|
|
2266 |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
logTekst := RightStr(List1Msg, Length(List1Msg)-10); |
2267 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
2268 |
|
|
2269 |
if (PrinterNavn = 'Ingen') then |
if (Config.PrinterNavn = 'Ingen') then |
2270 |
begin |
begin |
2271 |
PrintNyLabel := false; |
PrintNyLabel := false; |
2272 |
end; |
end; |
2273 |
|
|
2274 |
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm |
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm |
2275 |
begin |
begin |
2276 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
2277 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
2278 |
btnNulstil.Visible := true; |
btnNulstil.Visible := true; |
2279 |
end; |
end; |
2299 |
|
|
2300 |
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm |
if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm |
2301 |
begin |
begin |
2302 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
2303 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
2304 |
btnNulstil.Visible := true; |
btnNulstil.Visible := true; |
2305 |
end; |
end; |
2368 |
end |
end |
2369 |
else |
else |
2370 |
begin |
begin |
2371 |
if ( (PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then |
if ( (Config.PrinterNavn <> 'Ingen') and (PrintNyLabel or chkAltidPrintLabel.Checked) and (RuteNummer <> 'Ukendt') or (RuteNummer = 'Rutenr')) then |
2372 |
begin |
begin |
2373 |
logTekst := 'Printer label type '; |
logTekst := 'Printer label type '; |
2374 |
if (chkAltidPrintLabel.Checked) then |
if (chkAltidPrintLabel.Checked) then |
2578 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
2579 |
|
|
2580 |
Except |
Except |
2581 |
TjekUrls := '-'; // markerer at der var fejl |
Config.TjekUrls := '-'; // markerer at der var fejl |
2582 |
|
|
2583 |
end; |
end; |
2584 |
end; |
end; |
2598 |
inc(urlFejl); // Optæller antal fejl |
inc(urlFejl); // Optæller antal fejl |
2599 |
logTekst := UrlNavn + ' svarer ikke: ' + Url; |
logTekst := UrlNavn + ' svarer ikke: ' + Url; |
2600 |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); |
2601 |
if TjekUrls = '1' then |
if Config.TjekUrls = '1' then |
2602 |
begin |
begin |
2603 |
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; |
2604 |
end; |
end; |
2605 |
|
|
2606 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
2607 |
|
|
2608 |
if TjekUrls = '1' then |
if Config.TjekUrls = '1' then |
2609 |
begin |
begin |
2610 |
ShowMessage(logTekst); |
ShowMessage(logTekst); |
2611 |
Config.UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
Config.UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut |
2791 |
Leveringssted : String; |
Leveringssted : String; |
2792 |
orgTjekUrls : String; |
orgTjekUrls : String; |
2793 |
begin |
begin |
2794 |
orgTjekUrls := TjekUrls; |
orgTjekUrls := Config.TjekUrls; |
2795 |
if (TjekUrls = '1') or (TjekUrls = '2') then |
if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then |
2796 |
begin |
begin |
2797 |
TjekkerUrls(); |
TjekkerUrls(); |
2798 |
end; |
end; |
2799 |
if TjekUrls = '-' then |
if Config.TjekUrls = '-' then |
2800 |
begin |
begin |
2801 |
//ShowMessage('Der var fejl i een eller flere urls - se logvinduet'); |
//ShowMessage('Der var fejl i een eller flere urls - se logvinduet'); |
2802 |
RuteNummer := ''; |
RuteNummer := ''; |
2805 |
Koreliste := ''; |
Koreliste := ''; |
2806 |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); |
2807 |
// Her kommer en alarm og rød skærm |
// Her kommer en alarm og rød skærm |
2808 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
2809 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
2810 |
btnNulstil.Visible := true; |
btnNulstil.Visible := true; |
2811 |
end |
end |
2821 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2822 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
2823 |
end; |
end; |
2824 |
TjekUrls := orgTjekUrls; |
Config.TjekUrls := orgTjekUrls; |
2825 |
|
|
2826 |
end; |
end; |
2827 |
|
|
2846 |
begin |
begin |
2847 |
ShowMessage('Der er ikke installeret en printer på denne PC.'); |
ShowMessage('Der er ikke installeret en printer på denne PC.'); |
2848 |
end |
end |
2849 |
else if PrinterNavn = 'Ingen' then |
else if Config.PrinterNavn = 'Ingen' then |
2850 |
begin |
begin |
2851 |
ShowMessage('Der er fravalgt printer i dette program.'); |
ShowMessage('Der er fravalgt printer i dette program.'); |
2852 |
end |
end |
2857 |
DBKbane := '999'; |
DBKbane := '999'; |
2858 |
Leveringssted := 'XXX'; |
Leveringssted := 'XXX'; |
2859 |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); |
2860 |
LabelPrint.CheckPrintQue('Test', PrinterNavn); |
LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); |
2861 |
end; |
end; |
2862 |
FocusControl(StregkodeST); |
FocusControl(StregkodeST); |
2863 |
end; |
end; |
2864 |
|
|
2865 |
procedure TMainForm.Timer1Timer(Sender: TObject); |
procedure TMainForm.Timer1Timer(Sender: TObject); |
2866 |
begin |
begin |
2867 |
if (TjekPrinter = '1') then |
if (Config.TjekPrinter = '1') then |
2868 |
begin |
begin |
2869 |
LabelPrint.CheckPrintQue('Timer', PrinterNavn); |
LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn); |
2870 |
end |
end |
2871 |
else |
else |
2872 |
begin |
begin |
3365 |
|
|
3366 |
procedure TMainForm.Testlyd1Click(Sender: TObject); |
procedure TMainForm.Testlyd1Click(Sender: TObject); |
3367 |
begin |
begin |
3368 |
if AlarmLyd <> '' then |
if Config.AlarmLyd <> '' then |
3369 |
begin |
begin |
3370 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
3371 |
end |
end |
3372 |
else |
else |
3373 |
begin |
begin |
3379 |
begin |
begin |
3380 |
if (PakkeshopText1.Caption = 'Tjekkode') then |
if (PakkeshopText1.Caption = 'Tjekkode') then |
3381 |
begin |
begin |
3382 |
if ScannetOkTilTjekkodeLyd <> '' then |
if Config.ScannetOkTilTjekkodeLyd <> '' then |
3383 |
begin |
begin |
3384 |
PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); |
PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd)); |
3385 |
end |
end |
3386 |
else |
else |
3387 |
begin |
begin |
3391 |
end; |
end; |
3392 |
|
|
3393 |
if menuSmaaPakker.Checked then |
if menuSmaaPakker.Checked then |
3394 |
if ScannetOkLyd <> '' then |
if Config.ScannetOkLyd <> '' then |
3395 |
begin |
begin |
3396 |
PlaySound(PWideChar(ScannetOkLyd)); |
PlaySound(PWideChar(Config.ScannetOkLyd)); |
3397 |
end |
end |
3398 |
else |
else |
3399 |
begin |
begin |
3400 |
MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK); |
MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK); |
3401 |
end; |
end; |
3402 |
if menuStorePakker.Checked then |
if menuStorePakker.Checked then |
3403 |
if ScannetOkStorLyd <> '' then |
if Config.ScannetOkStorLyd <> '' then |
3404 |
begin |
begin |
3405 |
PlaySound(PWideChar(ScannetOkStorLyd)); |
PlaySound(PWideChar(Config.ScannetOkStorLyd)); |
3406 |
end |
end |
3407 |
else |
else |
3408 |
begin |
begin |
3503 |
// Hvis der var fejl i overførslen skal dette fejlmeldes her |
// Hvis der var fejl i overførslen skal dette fejlmeldes her |
3504 |
if status = 'Fejl' then |
if status = 'Fejl' then |
3505 |
begin // Her skal komme en alarm og rød skærm |
begin // Her skal komme en alarm og rød skærm |
3506 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
3507 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
3508 |
RutenummerST.Caption := 'EKL overførsel'; |
RutenummerST.Caption := 'EKL overførsel'; |
3509 |
BoghandlerNavnST.Caption := 'Fejl:'; |
BoghandlerNavnST.Caption := 'Fejl:'; |
4586 |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.'); |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.'); |
4587 |
logTekst := 'Fandt ingen linier til '+imorgenYmd+'.'; |
logTekst := 'Fandt ingen linier til '+imorgenYmd+'.'; |
4588 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
4589 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
4590 |
end; |
end; |
4591 |
end; |
end; |
4592 |
end |
end |
4595 |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.'); |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.'); |
4596 |
logTekst := 'Ruteskift fil '+filnavn+' findes ikke.'; |
logTekst := 'Ruteskift fil '+filnavn+' findes ikke.'; |
4597 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
4598 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
4599 |
end; |
end; |
4600 |
end; |
end; |
4601 |
|
|
4666 |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.'); |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.'); |
4667 |
logTekst := 'Fandt ingen linier til '+imorgenYmd+'.'; |
logTekst := 'Fandt ingen linier til '+imorgenYmd+'.'; |
4668 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
4669 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
4670 |
end; |
end; |
4671 |
end; |
end; |
4672 |
end |
end |
4675 |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.'); |
ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.'); |
4676 |
logTekst := 'Kontrol fil '+filnavn+' findes ikke.'; |
logTekst := 'Kontrol fil '+filnavn+' findes ikke.'; |
4677 |
SkrivScanningLogFil(logTekst); |
SkrivScanningLogFil(logTekst); |
4678 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
4679 |
end; |
end; |
4680 |
end; |
end; |
4681 |
|
|
4733 |
begin |
begin |
4734 |
//ShowMessage('Ændring ikke tilladt'); |
//ShowMessage('Ændring ikke tilladt'); |
4735 |
// Her skal komme en 'rød skærm' alarm |
// Her skal komme en 'rød skærm' alarm |
4736 |
PlaySound(PWideChar(AlarmLyd)); |
PlaySound(PWideChar(Config.AlarmLyd)); |
4737 |
MainForm.Color := clRed; |
MainForm.Color := clRed; |
4738 |
|
|
4739 |
|
|