--- dao/DelphiScanner/Main.pas 2015/08/26 19:52:38 2682 +++ dao/DelphiScanner/Main.pas 2015/09/03 14:24:23 2692 @@ -8,7 +8,7 @@ IdTCPClient, IdHTTP, xmldom, XMLIntf, msxmldom, XMLDoc, IniFiles, AppEvnts, Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils, IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException, - Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet, + Winspool, ShellApi, ClipBrd, Buttons, wininet, UITypes, PakkeshopLabels, StBarC, @@ -52,7 +52,7 @@ Testlyd1: TMenuItem; ListBox1: TListBox; Budlevering1: TMenuItem; - DownloadButton01: TButton; + BtnDownloadKontrolfil: TButton; IdFTP1: TIdFTP; Image1: TImage; ListBox2: TListBox; @@ -101,7 +101,7 @@ function retRutenummer(rutenummer : String) : String; function GetCurrentPrinterHandle() : THandle; function SavePChar(p: PChar): PChar; - function AdobeReaderExists(): Boolean; + function FileTime2DateTime(FileTime: TFileTime): TDateTime; function CheckUrl(url:string):boolean; @@ -134,7 +134,7 @@ procedure Button1Click(Sender: TObject); procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); procedure Budlevering1Click(Sender: TObject); - procedure DownloadButton01Click(Sender: TObject); + procedure BtnDownloadKontrolfilClick(Sender: TObject); procedure OpdaterListenButton01Click(Sender: TObject); procedure DownloadBladhusRuteskiftfil(); procedure DownloadBladhusKontrolfil(); @@ -193,7 +193,7 @@ SkrivLog : String; Sted : String; StedNavn : String; - Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlEKLoverforsel : String; + Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel : String; // 29150330: start UrlEKLoverforselPakkeshop : String; // 20150330: slut @@ -207,9 +207,9 @@ AlarmLyd : String; ScannetOkLyd : String; ScannetOkStorLyd : String; -// 20150317: start + ScannetOkTilTjekkodeLyd : String; -// 20150317: slut + PrinterNavn : String; TjekPrinter : String; XPosRute : integer; @@ -498,27 +498,11 @@ procedure TMainForm.Automatiskvalg1Click(Sender: TObject); begin -// 20150317: start -(* - if Automatiskvalg1.Checked then - begin - AutomatiskValg1.Checked := true; - PanelValgA.Color := clGreen; - PanelValgA.Font.Color := clWhite; - end - else - begin - AutomatiskValg1.Checked := false; - PanelValgA.Color := clBtnFace; - PanelValgA.Font.Color := clWindowText; - end; -*) // Skal ikke toggle men bare sætte funktionen on // Fravælges ved at vælge en scanningstype AutomatiskValg1.Checked := true; PanelValgA.Color := clGreen; PanelValgA.Font.Color := clWhite; -// 20150317: slut end; procedure TMainForm.FormCreate(Sender: TObject); @@ -578,7 +562,10 @@ UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s'); UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s'); + UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s'); + UrlIndleveringsPakkeManglendeScanninger := ReadString('Settings', 'UrlIndleveringsPakkeManglendeScanninger','http://omdeling.info/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s'); + LabelType := ReadInteger('Settings','LabelType',1); @@ -790,7 +777,6 @@ // Hvis specialversion er valgt (SpecialVersionSted er sat til en værdi ovenfor) // ændrer vi Sted og Scanningtype her: -// 20150313: start if SpecialVersionSted = 'NS' then begin SpecialVersionSted := '01'; @@ -801,7 +787,6 @@ SpecialVersionSted := '03'; SpecialVersionScanningtype := '4'; end; -// 20150313: slut if SpecialVersionSted = 'BK' then begin @@ -1995,7 +1980,7 @@ 01 : begin; // NS Testprinter1.Visible := true; - DownloadButton01.Enabled := true; + BtnDownloadKontrolfil.Enabled := true; OpdaterListenButton01.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -2011,7 +1996,7 @@ Storepakker1.Enabled := true; radioStorPakke.Enabled := true; radioLillePakke.Enabled := true; - DownloadButton01.Enabled := false; // kontrolfil bruges ikke her + BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her OpdaterListenButton01.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -2028,7 +2013,7 @@ begin DownloadButton03.Visible := false; end; - DownloadButton01.Enabled := true; + BtnDownloadKontrolfil.Enabled := true; OpdaterListenButton01.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -2049,7 +2034,7 @@ Storepakker1.Enabled := true; radioStorPakke.Enabled := true; radioLillePakke.Enabled := true; - DownloadButton01.Enabled := false; // kontrolfil bruges ikke her + BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her OpdaterListenButton01.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; @@ -2924,6 +2909,58 @@ end; end; + // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger + if PanelValg7.Enabled = true then + begin + if CheckUrl(UrlIndleveringsPakke) then + begin + 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; + + if CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then + begin + logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger; + SkrivScanningLogFil(logTekst); + 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; + // Tjekker UrlEKLoverforsel if PanelValg1.Enabled = true then begin @@ -3207,27 +3244,14 @@ procedure TMainForm.PanelValgAClick(Sender: TObject); begin -// 20150311: start -(* - if PanelValgA.Color = clBtnFace then - begin - AutomatiskValg1.Checked := true; - PanelValgA.Color := clGreen; - PanelValgA.Font.Color := clWhite; - end - else - begin - AutomatiskValg1.Checked := false; - PanelValgA.Color := clBtnFace; - PanelValgA.Font.Color := clWindowText; - end; -*) // Skal ikke toggle men bare sætte funktionen on // Fravælges ved at vælge en scanningstype - AutomatiskValg1.Checked := true; - PanelValgA.Color := clGreen; - PanelValgA.Font.Color := clWhite; -// 20150311: slut + AutomatiskValg1.Checked := true; + PanelValgA.Color := clGreen; + PanelValgA.Font.Color := clWhite; + + + end; procedure TMainForm.Pakkernormal1Click(Sender: TObject); @@ -3437,7 +3461,7 @@ if FileExists(fileName) then begin - if AdobeReaderExists then + if TUtils.AdobeReaderExists then begin //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL); ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL); @@ -3461,7 +3485,7 @@ if FileExists(fileName) then begin - if AdobeReaderExists then + if TUtils.AdobeReaderExists then begin //ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL); ShellExecute(Handle,'open',PChar(fileName), nil, nil, SW_SHOWNORMAL); @@ -3620,7 +3644,7 @@ radioLillePakke.Enabled := true; ListBox1.Visible := true; ListBox1.Items.Clear; - DownloadButton01.Enabled := false; + BtnDownloadKontrolfil.Enabled := false; OpdaterListenButton01.Enabled := true; DownloadButton03.Visible := false; EKLoverforsel.Enabled := false; @@ -3656,7 +3680,7 @@ radioLillePakke.Enabled := false; ListBox1.Visible := true; ListBox1.Items.Clear; - DownloadButton01.Enabled := false; + BtnDownloadKontrolfil.Enabled := false; OpdaterListenButton01.Enabled := true; EKLoverforsel.Enabled := true; @@ -3693,7 +3717,7 @@ radioLillePakke.Enabled := false; ListBox1.Visible := true; ListBox1.Items.Clear; - DownloadButton01.Enabled := false; + BtnDownloadKontrolfil.Enabled := false; OpdaterListenButton01.Enabled := true; EKLoverforsel.Enabled := false; InitLillePakke(); @@ -3740,7 +3764,7 @@ ListBox1.Visible := true; ListBox1.Items.Clear(); - DownloadButton01.Enabled := false; + BtnDownloadKontrolfil.Enabled := false; OpdaterListenButton01.Enabled := true; EKLoverforsel.Enabled := false; InitLillePakke(); @@ -4503,7 +4527,7 @@ ListBox1.SetFocus; // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode end; -procedure TMainForm.DownloadButton01Click(Sender: TObject); +procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject); begin DownloadBladhusKontrolfil(); ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode @@ -4534,7 +4558,6 @@ XForm, XFormOld: TXForm; //Bruges til rotate X-formation Angle: integer; gMode: integer; - BarcodeArea: TRect; Dirigering: string; begin @@ -4687,13 +4710,18 @@ end; - if (Scanningtype = '6') then + + if (Scanningtype = '7') then + begin + URLStr := Format(UrlIndleveringsPakkeManglendeScanninger, [StedKode]); + end + else if (Scanningtype = '6') then begin - URLStr := Format(UrlPakkeshopManglendeReturScanninger,[StedKode]); + URLStr := Format(UrlPakkeshopManglendeReturScanninger, [StedKode]); end else if (Scanningtype = '5') then begin - URLStr := Format(UrlPakkeshopManglendeScanninger,[StedKode]); + URLStr := Format(UrlPakkeshopManglendeScanninger, [StedKode]); end else if (Scanningtype = '1') then begin @@ -5380,17 +5408,7 @@ end; end; -function TMainForm.AdobeReaderExists: Boolean; -var - AReg: TRegistry; -begin - result:= false; - AReg := TRegistry.Create; - AReg.RootKey := HKEY_LOCAL_MACHINE; - if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then - result:= True; - AReg.Free; -end; + function TMainForm.CheckUrl(url:string):boolean;