--- dao/DelphiScanner/Main.pas 2016/08/15 14:14:14 3087 +++ dao/DelphiScanner/Main.pas 2016/08/21 22:34:01 3097 @@ -20,7 +20,7 @@ IdExplicitTLSClientServerBase, IdFTP, IdException, ShellApi, ClipBrd, Buttons, wininet, UITypes, - PakkeshopLabels, + LabelData, Utils, ParentForm, LabelPrint, @@ -202,6 +202,7 @@ procedure LogMessage( msg : string); procedure SetPrinterstatusText( txt: string; alert: boolean); function GetFormObject() : TForm; + function GetXMLDocument() : TXMLDocument; @@ -212,26 +213,16 @@ Sted : String; StedNavn : String; - Scanningtype, TestFunktionen, Pakketype, SporgEfterBoghandler : String; - ScanTjekkode : String; - ScanTjekkodeAutomatik : string; + Scanningtype, Pakketype : String; - Url : String; - Farve, FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop, - FarveIndlevering : String; + Url : String; - Titel, TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop, - TitelIndlevering : String; + Farve : String; - AlarmLyd : String; - ScannetOkLyd : String; - ScannetOkStorLyd : String; + Titel : String; - ScannetOkTilTjekkodeLyd : String; - PrinterNavn : String; - TjekPrinter : String; Org_RuteNummerST, Org_BoghandlerNavnST, Org_KommentarST : String; BladhusSted : Integer; @@ -244,7 +235,7 @@ logTekst : string; PakkeshopStregkode, PakkeshopTjekkode : String; BoghandlerStregkode, BoghandlerTjekkode : String; - TjekUrls : String; + Config : TConfiguration; @@ -415,7 +406,7 @@ if (Scanningtype = '1') or (Scanningtype = '5') then begin - if (ScanTjekkode = '1') then + if (Config.ScanTjekkode = '1') then begin chkScanTjekkode.Checked := true; chkScanTjekkode.Enabled := true; @@ -548,7 +539,7 @@ // Sætter lige en default panel størrelse MainForm.ClientWidth := 1000; - MainForm.ClientHeight := 820; + MainForm.ClientHeight := 920; Config := TConfiguration.Create(); Config.ReadFromInifile( TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ); //ToDo: clean up duplicate ini ref @@ -563,42 +554,12 @@ Sted := ReadString('Settings','Sted',''); StedNavn := ReadString('Settings','Stednavn',''); + Scanningtype := 'A'; //hardcoded + Pakketype := '0'; + - FarveNormal := ReadString('Settings','FarveNormal','D8D8D8'); - TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker'); - FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9'); - TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO'); - FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9'); - TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler'); - FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE'); - TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker'); - FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF'); - TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker'); - - FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC'); - TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop'); - - FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB'); - TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode'); - - - SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0'); - ScanTjekkode := ReadString('Settings','ScanTjekkode','0'); - ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1'); - Scanningtype := ReadString('Settings','Scanningtype','A'); - Pakketype := ReadString('Settings','Pakketype','0'); - TestFunktionen := ReadString('Settings','TestFunktion','0'); - AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav'); - ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav'); - ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav'); - - ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav'); - - PrinterNavn := ReadString('Settings','PrinterNavn',''); - TjekPrinter := ReadString('Settings','TjekPrinter','1'); - TjekUrls := ReadString('Settings','TjekUrls','2'); if (SkrivLog = '1') then begin @@ -626,7 +587,7 @@ - if SporgEfterBoghandler = '1' then + if Config.SporgEfterBoghandler = '1' then begin chkSporgEfterKunde.Checked := true; Sprgefterboghandlernummer1.Checked := true; @@ -637,7 +598,7 @@ Sprgefterboghandlernummer1.Checked := false; end; - if ScanTjekkode = '1' then + if Config.ScanTjekkode = '1' then begin chkScanTjekkode.Checked := true; Scanogstjekkoden1.Checked := true; @@ -648,7 +609,7 @@ Scanogstjekkoden1.Checked := false; end; - if ScanTjekkodeAutomatik = '1' then + if Config.ScanTjekkodeAutomatik = '1' then begin menuAutomatiskTjekkodeStyring.Checked := true; chkScanTjekkode.Enabled := false; @@ -893,12 +854,12 @@ Application.Terminate; end; - if TjekUrls = '1' then // Tjekker urls + if Config.TjekUrls = '1' then // Tjekker urls begin TjekkerUrls(); - 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 begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; RutenummerST.Caption := ''; BoghandlerNavnST.Caption := 'Fejl i urls'; @@ -954,14 +915,14 @@ radioLillePakke.Checked := true; end; - if TestFunktionen = '1' then + if Config.TestFunktionen = '1' then begin Testforbindelsen1.Visible := true; Testprinter1.Visible := true; Testlyd1.Visible := true; Testlyd2.Visible := true; end - else if TestFunktionen = '2' then + else if Config.TestFunktionen = '2' then begin Testforbindelsen1.Enabled := false; Testprinter1.Enabled := false; @@ -976,32 +937,12 @@ Testlyd2.Visible := false; end; - 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; - - LabelPrint := TLabelPrint.Create( self, Config, PrinterNavn ); - LabelPrint.CheckPrintQue('Opstart', PrinterNavn); + LabelPrint := TLabelPrint.Create( self, Config, Config.PrinterNavn ); + LabelPrint.CheckPrintQue('Opstart', Config.PrinterNavn); finally Free; @@ -1489,6 +1430,30 @@ end; end; + // EmballageRepareret skal bare sætte reklamationkoden, + // og så ellers fortsætte med scanning som normalt + if (chkEmballageRepareret.Checked = True) then + begin + URLStr := Format(Config.UrlEmballageRepareret,[Sted,Stregkode]); + WebSvar := IdHTTP1.Get(URLStr); + + chkEmballageRepareret.Checked := False; + end; + + if (chkUdenforSpecifikation.Checked = True) then + begin + URLStr := Format(Config.URLUdenforSpecifikation,[Sted,Stregkode]); + //ShowMessage( URLStr); + + WebSvar := IdHTTP1.Get(Config.URLUdenforSpecifikation); + //ShowMessage( WebSvar ); + + chkUdenforSpecifikation.Checked := False; + LabelPrint.PrintLabel(Stregkode); + exit; //leave procedure + end; + + if (PakkeshopText1.Visible = true) and (PakkeshopText1.Caption = 'Stregkode') and menuAutomatiskTjekkodeStyring.Checked then @@ -1535,7 +1500,7 @@ BoghandlerStregkode := Stregkode; PakkeshopText1.Caption := 'Tjekkode'; - PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); + PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd)); end else @@ -1553,9 +1518,9 @@ BoghandlerTjekkode := Stregkode; PakkeshopText1.Caption := 'Stregkode'; if (menuPakkeshop1.Checked) then - MainForm.Color := TUtils.HexToTColor(FarvePakkeshoplevering); + MainForm.Color := TUtils.HexToTColor(Config.FarvePakkeshoplevering); if (menuNatXpress1.Checked) then - MainForm.Color := TUtils.HexToTColor(FarveNormal); + MainForm.Color := TUtils.HexToTColor(Config.FarveNormal); btnNulstil.Visible := false; end else @@ -1609,7 +1574,7 @@ tjekkodemangler := pos('Tjekkode mangler', Kommentar); if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); btnNulstil.Visible := true; MainForm.Color := clRed; end; @@ -1619,11 +1584,11 @@ MainForm.Color := TUtils.HexToTColor(Farve); if menuStorePakker.Checked then begin - PlaySound(PWideChar(ScannetOkStorLyd)); + PlaySound(PWideChar(Config.ScannetOkStorLyd)); end else begin - PlaySound(PWideChar(ScannetOkLyd)); + PlaySound(PWideChar(Config.ScannetOkLyd)); end; btnNulstil.Visible := false; end @@ -1632,11 +1597,11 @@ MainForm.Color := TUtils.HexToTColor(Farve); if menuStorePakker.Checked then begin - PlaySound(PWideChar(ScannetOkStorLyd)); + PlaySound(PWideChar(Config.ScannetOkStorLyd)); end else begin - PlaySound(PWideChar(ScannetOkLyd)); + PlaySound(PWideChar(Config.ScannetOkLyd)); end; btnNulstil.Visible := false; end @@ -1659,11 +1624,11 @@ begin if menuStorePakker.Checked then begin - PlaySound(PWideChar(ScannetOkStorLyd)); + PlaySound(PWideChar(Config.ScannetOkStorLyd)); end else begin - PlaySound(PWideChar(ScannetOkLyd)); + PlaySound(PWideChar(Config.ScannetOkLyd)); end; InitLillePakke(); end; @@ -1992,7 +1957,7 @@ pakkestorrelse : String; PrintNyLabelInteger : Integer; - PakkeshopLabel: TPakkeshopLabel; + PakkeshopLabel: TLabelData; begin if radioStorPakke.Checked then begin @@ -2101,7 +2066,7 @@ if (Kommentar = 'Ok') then begin PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label - PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc + PakkeshopLabel := TLabelData.Create( XMLDocument1 ); //Opret struct og parse xml doc RuteNummer := PakkeshopLabel.Koreliste + ' -> ' + PakkeshopLabel.PakkeshopTurid; Stregkode := PakkeshopLabel.Stregkode; @@ -2150,21 +2115,14 @@ begin if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then begin - Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; - PrintNyLabel := False; + Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted; + //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel end; end else if (menuDaoDirekte1.Checked) and (Leveringssted <> Sted) And (Leveringssted <> '') then begin - if (Leveringssted = 'E') and (Sted = 'DBK') then - begin - // Det er ok at DBK scanner pakker til E (Schenker) - end - else - begin - Kommentar := Kommentar + 'Pakke burde være hos ' + Leveringssted; - PrintNyLabel := False; - end; + Kommentar := Kommentar + ' Pakke burde være hos ' + Leveringssted; + //PrintNyLabel := False; //ved fuld-daekning / X-ruter skal vi altid skrive label alligevel end; except on e:exception do raise exception.CreateFmt('Fejl i XML-format: %s',[e.Message]); @@ -2309,7 +2267,7 @@ begin PrintNyLabel := false; - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; btnNulstil.Visible := true; @@ -2329,14 +2287,14 @@ logTekst := RightStr(List1Msg, Length(List1Msg)-10); SkrivScanningLogFil(logTekst); - if (PrinterNavn = 'Ingen') then + if (Config.PrinterNavn = 'Ingen') then begin PrintNyLabel := false; end; if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; btnNulstil.Visible := true; end; @@ -2362,7 +2320,7 @@ if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; btnNulstil.Visible := true; end; @@ -2431,7 +2389,7 @@ end else begin - 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 begin logTekst := 'Printer label type '; if (chkAltidPrintLabel.Checked) then @@ -2641,7 +2599,7 @@ SkrivScanningLogFil(logTekst); Except - TjekUrls := '-'; // markerer at der var fejl + Config.TjekUrls := '-'; // markerer at der var fejl end; end; @@ -2661,14 +2619,14 @@ inc(urlFejl); // Optæller antal fejl logTekst := UrlNavn + ' svarer ikke: ' + Url; ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + logTekst); - if TjekUrls = '1' then + if Config.TjekUrls = '1' then begin logTekst := logTekst + crlf + crlf + 'Programmet afsluttes... '; end; SkrivScanningLogFil(logTekst); - if TjekUrls = '1' then + if Config.TjekUrls = '1' then begin ShowMessage(logTekst); Config.UrlSendPrograminfo := ''; // Her sletter vi lige url, så der ikke forsøges at sende besked ved program slut @@ -2854,12 +2812,12 @@ Leveringssted : String; orgTjekUrls : String; begin - orgTjekUrls := TjekUrls; - if (TjekUrls = '1') or (TjekUrls = '2') then + orgTjekUrls := Config.TjekUrls; + if (Config.TjekUrls = '1') or (Config.TjekUrls = '2') then begin TjekkerUrls(); end; - if TjekUrls = '-' then + if Config.TjekUrls = '-' then begin //ShowMessage('Der var fejl i een eller flere urls - se logvinduet'); RuteNummer := ''; @@ -2868,7 +2826,7 @@ Koreliste := ''; UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, ''); // Her kommer en alarm og rød skærm - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; btnNulstil.Visible := true; end @@ -2884,7 +2842,7 @@ PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); FocusControl(StregkodeST); end; - TjekUrls := orgTjekUrls; + Config.TjekUrls := orgTjekUrls; end; @@ -2909,7 +2867,7 @@ begin ShowMessage('Der er ikke installeret en printer på denne PC.'); end - else if PrinterNavn = 'Ingen' then + else if Config.PrinterNavn = 'Ingen' then begin ShowMessage('Der er fravalgt printer i dette program.'); end @@ -2920,16 +2878,16 @@ DBKbane := '999'; Leveringssted := 'XXX'; PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); - LabelPrint.CheckPrintQue('Test', PrinterNavn); + LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); end; FocusControl(StregkodeST); end; procedure TMainForm.Timer1Timer(Sender: TObject); begin - if (TjekPrinter = '1') then + if (Config.TjekPrinter = '1') then begin - LabelPrint.CheckPrintQue('Timer', PrinterNavn); + LabelPrint.CheckPrintQue('Timer', Config.PrinterNavn); end else begin @@ -3124,7 +3082,7 @@ menuAutomatiskTjekkodeStyring.Enabled := true; btnNulstil.Visible := false; menuNatXpress1.Checked := true; - InitForm(FarveNormal,TitelNormal,Config.UrlNormal); + InitForm(Config.FarveNormal,Config.TitelNormal,Config.UrlNormal); PanelValg1.Color := clGreen; PanelValg1.Font.Color := clWhite; @@ -3160,7 +3118,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; menuNatxpressReturDAO1.Checked := true; btnNulstil.Visible := false; - InitForm(FarveReturDAO,TitelReturDAO, Config.UrlReturDAO); + InitForm(Config.FarveReturDAO, Config.TitelReturDAO, Config.UrlReturDAO); PanelValg2.Color := clGreen; PanelValg2.Font.Color := clWhite; @@ -3191,7 +3149,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; menuNatxpressReturfraKunde1.Checked := true; btnNulstil.Visible := false; - InitForm(FarveReturBoghandler,TitelReturBoghandler, Config.UrlReturBoghandler); + InitForm(Config.FarveReturBoghandler, Config.TitelReturBoghandler, Config.UrlReturBoghandler); PanelValg3.Color := clGreen; PanelValg3.Font.Color := clWhite; @@ -3221,7 +3179,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; menuDaoDirekte1.Checked := true; btnNulstil.Visible := false; - InitForm(FarveBudlevering,TitelBudlevering, Config.UrlBudlevering); + InitForm(Config.FarveBudlevering, Config.TitelBudlevering, Config.UrlBudlevering); PanelValg4.Color := clGreen; PanelValg4.Font.Color := clWhite; @@ -3261,7 +3219,7 @@ menuAutomatiskTjekkodeStyring.Enabled := true; menuPakkeshop1.Checked := true; btnNulstil.Visible := false; - InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering, Config.UrlPakkeshoplevering); + InitForm(Config.FarvePakkeshoplevering, Config.TitelPakkeshoplevering, Config.UrlPakkeshoplevering); PanelValg5.Color := clGreen; PanelValg5.Font.Color := clWhite; @@ -3301,7 +3259,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; menuPakkeshopRetur1.Checked := true; btnNulstil.Visible := false; - InitForm(FarveReturPakkeshop,TitelReturPakkeshop, Config.UrlReturPakkeshop); + InitForm(Config.FarveReturPakkeshop, Config.TitelReturPakkeshop, Config.UrlReturPakkeshop); PanelValg6.Color := clGreen; PanelValg6.Font.Color := clWhite; @@ -3349,7 +3307,7 @@ menuAutomatiskTjekkodeStyring.Enabled := false; btnNulstil.Visible := false; - InitForm(FarveIndlevering, TitelIndlevering, Config.UrlReturPakkeshop); + InitForm(Config.FarveIndlevering, Config.TitelIndlevering, Config.UrlReturPakkeshop); PanelValg7.Color := clGreen; PanelValg7.Font.Color := clWhite; @@ -3428,9 +3386,9 @@ procedure TMainForm.Testlyd1Click(Sender: TObject); begin - if AlarmLyd <> '' then + if Config.AlarmLyd <> '' then begin - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end else begin @@ -3442,9 +3400,9 @@ begin if (PakkeshopText1.Caption = 'Tjekkode') then begin - if ScannetOkTilTjekkodeLyd <> '' then + if Config.ScannetOkTilTjekkodeLyd <> '' then begin - PlaySound(PWideChar(ScannetOkTilTjekkodeLyd)); + PlaySound(PWideChar(Config.ScannetOkTilTjekkodeLyd)); end else begin @@ -3454,18 +3412,18 @@ end; if menuSmaaPakker.Checked then - if ScannetOkLyd <> '' then + if Config.ScannetOkLyd <> '' then begin - PlaySound(PWideChar(ScannetOkLyd)); + PlaySound(PWideChar(Config.ScannetOkLyd)); end else begin MessageBox(Handle, PWideChar('Lyd fil ikke fundet (ScannetOkLyd)'), 'Information', MB_OK); end; if menuStorePakker.Checked then - if ScannetOkStorLyd <> '' then + if Config.ScannetOkStorLyd <> '' then begin - PlaySound(PWideChar(ScannetOkStorLyd)); + PlaySound(PWideChar(Config.ScannetOkStorLyd)); end else begin @@ -3566,7 +3524,7 @@ // Hvis der var fejl i overførslen skal dette fejlmeldes her if status = 'Fejl' then begin // Her skal komme en alarm og rød skærm - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; RutenummerST.Caption := 'EKL overførsel'; BoghandlerNavnST.Caption := 'Fejl:'; @@ -4649,7 +4607,7 @@ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.'); logTekst := 'Fandt ingen linier til '+imorgenYmd+'.'; SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end; end; end @@ -4658,7 +4616,7 @@ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Ruteskift fil '+filnavn+' findes ikke.'); logTekst := 'Ruteskift fil '+filnavn+' findes ikke.'; SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end; end; @@ -4729,7 +4687,7 @@ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' +'Fandt ingen linier til '+imorgenYmd+'.'); logTekst := 'Fandt ingen linier til '+imorgenYmd+'.'; SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end; end; end @@ -4738,7 +4696,7 @@ ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Kontrol fil '+filnavn+' findes ikke.'); logTekst := 'Kontrol fil '+filnavn+' findes ikke.'; SkrivScanningLogFil(logTekst); - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); end; end; @@ -4796,7 +4754,7 @@ begin //ShowMessage('Ændring ikke tilladt'); // Her skal komme en 'rød skærm' alarm - PlaySound(PWideChar(AlarmLyd)); + PlaySound(PWideChar(Config.AlarmLyd)); MainForm.Color := clRed; @@ -4924,5 +4882,12 @@ Result := self; end; +//Nedarvet fra IParentForm +function TMainForm.GetXMLDocument() : TXMLDocument; +begin + Result := XMLDocument1 +end; + + end.