--- dao/DelphiScanner/Main.pas 2015/09/03 14:27:21 2693 +++ dao/DelphiScanner/Main.pas 2015/09/03 14:53:37 2700 @@ -56,16 +56,16 @@ IdFTP1: TIdFTP; Image1: TImage; ListBox2: TListBox; - OpdaterListenButton01: TButton; - UploadButton01: TButton; - DownloadButton03: TButton; + BtnOpdaterListen: TButton; + BtnUploadLogfil: TButton; + BtnDownloadRuteskiftFil: TButton; Pakkeshoplevering1: TMenuItem; PakkeshopText1: TStaticText; btnNulstil: TButton; Returpakkerfrapakkeshop1: TMenuItem; Altidprintepakkelabel1: TMenuItem; chkAltidPrintLabel: TCheckBox; - EKLoverforsel: TButton; + BtnEKLoverforsel: TButton; N5: TMenuItem; Uploadlogfil1: TMenuItem; Manual1: TMenuItem; @@ -99,9 +99,6 @@ function GetCurrentPrinterHandle() : THandle; function SavePChar(p: PChar): PChar; - function FileTime2DateTime(FileTime: TFileTime): TDateTime; - function CheckUrl(url:string):boolean; - procedure PlaySound(filename : PWideChar); procedure StartScreen(); procedure InitScreen(); @@ -132,7 +129,7 @@ procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); procedure Budlevering1Click(Sender: TObject); procedure BtnDownloadKontrolfilClick(Sender: TObject); - procedure OpdaterListenButton01Click(Sender: TObject); + procedure BtnOpdaterListenClick(Sender: TObject); procedure DownloadBladhusRuteskiftfil(); procedure DownloadBladhusKontrolfil(); procedure SendFilTilDAO(fil_type, filnavn_input, filnavn_output: String); @@ -140,8 +137,8 @@ procedure UploadInifilTilDAO(); procedure SletStregkodelinieFraListboks2(StregKode : String); procedure FormDestroy(Sender: TObject); - procedure UploadButton01Click(Sender: TObject); - procedure DownloadButton03Click(Sender: TObject); + procedure BtnUploadLogfilClick(Sender: TObject); + procedure BtnDownloadRuteskiftFilClick(Sender: TObject); procedure Pakkeshoplevering1Click(Sender: TObject); procedure btnNulstilClick(Sender: TObject); procedure Returpakkerfrapakkeshop1Click(Sender: TObject); @@ -155,7 +152,7 @@ procedure Altidprintepakkelabel1Click(Sender: TObject); procedure chkAltidPrintLabelClick(Sender: TObject); - procedure EKLoverforselClick(Sender: TObject); + procedure BtnEKLoverforselClick(Sender: TObject); procedure Uploadlogfil1Click(Sender: TObject); procedure Manual1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); @@ -332,7 +329,7 @@ PanelValg7.Font.Color := clWindowText; end; - OpdaterListenButton01.Enabled := false; + BtnOpdaterListen.Enabled := false; if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then begin @@ -606,7 +603,7 @@ try SkrivScanningLogFil(logTekst); Uploadlogfil1.Enabled := true; - UploadButton01.Enabled := true; + BtnUploadLogfil.Enabled := true; logTekst := 'Programmet er installeret som: '+ParamStr(0); SkrivScanningLogFil(logTekst); // Oprydning i gamle logfiler @@ -1978,7 +1975,7 @@ begin; // NS Testprinter1.Visible := true; BtnDownloadKontrolfil.Enabled := true; - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; BladhusKontrolfil_server := 'franordjyske/RuteKontrol.txt'; @@ -1994,7 +1991,7 @@ radioStorPakke.Enabled := true; radioLillePakke.Enabled := true; BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; IndlesManglendeScanninger(); @@ -2004,14 +2001,14 @@ Testprinter1.Visible := true; if (getProddag() = 'lørdag') then begin - DownloadButton03.Visible := false; + BtnDownloadRuteskiftFil.Visible := false; end else begin - DownloadButton03.Visible := false; + BtnDownloadRuteskiftFil.Visible := false; end; BtnDownloadKontrolfil.Enabled := true; - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; BladhusRuteskiftfil_server := 'frafd/RuteSkift.txt'; @@ -2032,7 +2029,7 @@ radioStorPakke.Enabled := true; radioLillePakke.Enabled := true; BtnDownloadKontrolfil.Enabled := false; // kontrolfil bruges ikke her - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; end; @@ -2291,7 +2288,7 @@ SkrivScanningLogFil(logTekst); end; -procedure TMainForm.UploadButton01Click(Sender: TObject); +procedure TMainForm.BtnUploadLogfilClick(Sender: TObject); begin UploadLogfilTilDAO(); UploadInifilTilDAO(); @@ -2655,7 +2652,7 @@ // Tjekker UrlNormal if PanelValg1.Enabled = true then begin - if CheckUrl(UrlNormal) then + if TUtils.CheckUrl(UrlNormal) then begin logTekst := 'UrlNormal accepteret: ' + UrlNormal; SkrivScanningLogFil(logTekst); @@ -2684,7 +2681,7 @@ // Tjekker UrlReturDAO if PanelValg2.Enabled = true then begin - if CheckUrl(UrlReturDAO) then + if TUtils.CheckUrl(UrlReturDAO) then begin logTekst := 'UrlReturDAO accepteret: ' + UrlReturDAO; SkrivScanningLogFil(logTekst); @@ -2712,7 +2709,7 @@ // Tjekker UrlReturBoghandler if PanelValg3.Enabled = true then begin - if CheckUrl(UrlReturBoghandler) then + if TUtils.CheckUrl(UrlReturBoghandler) then begin logTekst := 'UrlReturBoghandler accepteret: ' + UrlReturBoghandler; SkrivScanningLogFil(logTekst); @@ -2740,7 +2737,7 @@ // Tjekker UrlBudlevering if PanelValg4.Enabled = true then begin - if CheckUrl(UrlBudlevering) then + if TUtils.CheckUrl(UrlBudlevering) then begin logTekst := 'UrlBudlevering accepteret: ' + UrlBudlevering; SkrivScanningLogFil(logTekst); @@ -2768,7 +2765,7 @@ // Tjekker UrlPakkeshoplevering if PanelValg5.Enabled = true then begin - if CheckUrl(UrlPakkeshoplevering) then + if TUtils.CheckUrl(UrlPakkeshoplevering) then begin logTekst := 'UrlPakkeshoplevering accepteret: ' + UrlPakkeshoplevering; SkrivScanningLogFil(logTekst); @@ -2796,7 +2793,7 @@ // Tjekker UrlReturPakkeshop if PanelValg6.Enabled = true then begin - if CheckUrl(UrlReturPakkeshop) then + if TUtils.CheckUrl(UrlReturPakkeshop) then begin logTekst := 'UrlReturPakkeshop accepteret: ' + UrlReturPakkeshop; SkrivScanningLogFil(logTekst); @@ -2825,7 +2822,7 @@ if (PanelValg1.Enabled = true) or (PanelValg4.Enabled = true) then begin - if CheckUrl(UrlManglendeScanninger) then + if TUtils.CheckUrl(UrlManglendeScanninger) then begin logTekst := 'UrlManglendeScanninger accepteret: ' + UrlManglendeScanninger; SkrivScanningLogFil(logTekst); @@ -2853,7 +2850,7 @@ // Tjekker UrlPakkeshopManglendeScanninger if PanelValg5.Enabled = true then begin - if CheckUrl(UrlPakkeshopManglendeScanninger) then + if TUtils.CheckUrl(UrlPakkeshopManglendeScanninger) then begin logTekst := 'UrlPakkeshopManglendeScanninger accepteret: ' + UrlPakkeshopManglendeScanninger; SkrivScanningLogFil(logTekst); @@ -2881,7 +2878,7 @@ // Tjekker UrlPakkeshopManglendeReturScanninger if PanelValg6.Enabled = true then begin - if CheckUrl(UrlPakkeshopManglendeReturScanninger) then + if TUtils.CheckUrl(UrlPakkeshopManglendeReturScanninger) then begin logTekst := 'UrlPakkeshopManglendeReturScanninger accepteret: ' + UrlPakkeshopManglendeReturScanninger; SkrivScanningLogFil(logTekst); @@ -2909,7 +2906,7 @@ // Tjekker UrlIndleveringsPakke og UrlIndleveringsPakkeManglendeScanninger if PanelValg7.Enabled = true then begin - if CheckUrl(UrlIndleveringsPakke) then + if TUtils.CheckUrl(UrlIndleveringsPakke) then begin logTekst := 'UrlIndleveringsPakke accepteret: ' + UrlIndleveringsPakke; SkrivScanningLogFil(logTekst); @@ -2933,7 +2930,7 @@ end; end; - if CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then + if TUtils.CheckUrl(UrlIndleveringsPakkeManglendeScanninger) then begin logTekst := 'UrlIndleveringsPakkeManglendeScanninger accepteret: ' + UrlIndleveringsPakkeManglendeScanninger; SkrivScanningLogFil(logTekst); @@ -2961,7 +2958,7 @@ // Tjekker UrlEKLoverforsel if PanelValg1.Enabled = true then begin - if CheckUrl(UrlEKLoverforsel) then + if TUtils.CheckUrl(UrlEKLoverforsel) then begin logTekst := 'UrlEKLoverforsel accepteret: ' + UrlEKLoverforsel; SkrivScanningLogFil(logTekst); @@ -2990,7 +2987,7 @@ // Tjekker UrlEKLoverforselPakkeshop if PanelValg5.Enabled = true then begin - if CheckUrl(UrlEKLoverforselPakkeshop) then + if TUtils.CheckUrl(UrlEKLoverforselPakkeshop) then begin logTekst := 'UrlEKLoverforselPakkeshop accepteret: ' + UrlEKLoverforselPakkeshop; SkrivScanningLogFil(logTekst); @@ -3017,7 +3014,7 @@ // Tjekker UrlFindPakketype - if CheckUrl(UrlFindPakketype) then + if TUtils.CheckUrl(UrlFindPakketype) then begin logTekst := 'UrlFindPakketype accepteret: ' + UrlFindPakketype; SkrivScanningLogFil(logTekst); @@ -3042,7 +3039,7 @@ end; // Tjekker UrlSendPrograminfo - if CheckUrl(UrlSendPrograminfo) then + if TUtils.CheckUrl(UrlSendPrograminfo) then begin logTekst := 'UrlSendPrograminfo accepteret: ' + UrlSendPrograminfo; SkrivScanningLogFil(logTekst); @@ -3079,16 +3076,6 @@ end; -function TMainForm.FileTime2DateTime(FileTime: TFileTime): TDateTime; -var - LocalFileTime: TFileTime; - SystemTime: TSystemTime; -begin - FileTimeToLocalFileTime(FileTime, LocalFileTime) ; - FileTimeToSystemTime(LocalFileTime, SystemTime) ; - Result := SystemTimeToDateTime(SystemTime) ; -end; - procedure TMainForm.SletLogfiler(Path: string; FileList: TStrings); var SR: TSearchRec; @@ -3108,7 +3095,7 @@ dt := fileDateToDateTime(SR.Time); // finder filens timestamp for seneste ændring CreationTime := SR.FindData.ftCreationTime; // finder filens timestamp for oprettelse - dtCreation := FileTime2DateTime(CreationTime); // finder filens timestamp for oprettelse + dtCreation := TUtils.FileTime2DateTime(CreationTime); // finder filens timestamp for oprettelse // Selvom creation date godt kan være forskellig fra modified date, // skal vi alligevel altid tjekke filens alder ud fra modified date // (ændring den kan ligge både før og efter oprettelse, hvis filerne er flyttet eller ændret manuelt) @@ -3489,7 +3476,7 @@ end else begin - ShowMessage('Acrobat Reader er ikke installeret!'); + ShowMessage('Adobe Reader er ikke installeret!'); end; end else @@ -3555,8 +3542,8 @@ radioStorPakke.Enabled := false; radioLillePakke.Enabled := false; ListBox1.Visible := true; - OpdaterListenButton01.Enabled := true; - EKLoverforsel.Enabled := true; + BtnOpdaterListen.Enabled := true; + BtnEKLoverforsel.Enabled := true; InitLillePakke(); ListBox1.Items.Clear; if BladhusSted = 0 then @@ -3589,7 +3576,7 @@ ListBox1.Visible := true; ListBox1.Items.Clear; ListBox2.Items.Clear; - EKLoverforsel.Enabled := false; + BtnEKLoverforsel.Enabled := false; InitLillePakke(); end; @@ -3615,7 +3602,7 @@ ListBox1.Visible := true; ListBox1.Items.Clear; ListBox2.Items.Clear; - EKLoverforsel.Enabled := false; + BtnEKLoverforsel.Enabled := false; InitLillePakke(); end; @@ -3642,9 +3629,9 @@ ListBox1.Visible := true; ListBox1.Items.Clear; BtnDownloadKontrolfil.Enabled := false; - OpdaterListenButton01.Enabled := true; - DownloadButton03.Visible := false; - EKLoverforsel.Enabled := false; + BtnOpdaterListen.Enabled := true; + BtnDownloadRuteskiftFil.Visible := false; + BtnEKLoverforsel.Enabled := false; IdFTP1.Passive := true; IdFTP1.PassiveUseControlHost := true; if (BladhusSted = 0) or (BladhusSted = 2) or (BladhusSted = 3) then @@ -3678,9 +3665,9 @@ ListBox1.Visible := true; ListBox1.Items.Clear; BtnDownloadKontrolfil.Enabled := false; - OpdaterListenButton01.Enabled := true; + BtnOpdaterListen.Enabled := true; - EKLoverforsel.Enabled := true; + BtnEKLoverforsel.Enabled := true; InitLillePakke(); IndlesScanningLogFil(); @@ -3715,8 +3702,8 @@ ListBox1.Visible := true; ListBox1.Items.Clear; BtnDownloadKontrolfil.Enabled := false; - OpdaterListenButton01.Enabled := true; - EKLoverforsel.Enabled := false; + BtnOpdaterListen.Enabled := true; + BtnEKLoverforsel.Enabled := false; InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -3762,8 +3749,8 @@ ListBox1.Items.Clear(); BtnDownloadKontrolfil.Enabled := false; - OpdaterListenButton01.Enabled := true; - EKLoverforsel.Enabled := false; + BtnOpdaterListen.Enabled := true; + BtnEKLoverforsel.Enabled := false; InitLillePakke(); IndlesScanningLogFil(); if BladhusSted = 0 then @@ -3872,7 +3859,7 @@ CheckCode(); end; -procedure TMainForm.EKLoverforselClick(Sender: TObject); +procedure TMainForm.BtnEKLoverforselClick(Sender: TObject); var WebSvar : String; URLStr : String; @@ -3882,7 +3869,7 @@ status, kommentar : String; begin - EKLoverforsel.Enabled := false; + BtnEKLoverforsel.Enabled := false; ListBox1.Items.Insert(0,TimeToStr(now) + ': ' + 'Overfører de scannede pakker til EKL'); logTekst := 'Overfører de scannede pakker til EKL'; @@ -3945,7 +3932,7 @@ end; end; - EKLoverforsel.Enabled := true; + BtnEKLoverforsel.Enabled := true; ListBox1.SetFocus; // for at flytte fokus væk fra knappen så denne ikke aktiveres ved scanning / indtastning af stregkode @@ -4477,7 +4464,7 @@ ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode end; -procedure TMainForm.OpdaterListenButton01Click(Sender: TObject); +procedure TMainForm.BtnOpdaterListenClick(Sender: TObject); const crlf = Chr(13) + Chr(10) ; // Carriage return & Linefeed @@ -4486,7 +4473,7 @@ ListBox1.SetFocus; // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode end; -procedure TMainForm.DownloadButton03Click(Sender: TObject); +procedure TMainForm.BtnDownloadRuteskiftFilClick(Sender: TObject); begin if (getProddag() = 'lørdag') then begin @@ -5355,44 +5342,7 @@ -function TMainForm.CheckUrl(url:string):boolean; -var - hSession, hfile: hInternet; - dwindex,dwcodelen :dword; - dwcode:array[1..20] of char; - res : pchar; -begin - if pos('http://',lowercase(url))=0 then - url := 'http://'+url; - Result := false; - hSession := InternetOpen('InetURL:/1.0', - INTERNET_OPEN_TYPE_PRECONFIG, - nil, - nil, - 0); - if assigned(hsession) then - begin - hfile := InternetOpenUrl(hsession, - pchar(url), - nil, - 0, - INTERNET_FLAG_RELOAD, - 0); - dwIndex := 0; - dwCodeLen := 10; - HttpQueryInfo(hfile, - HTTP_QUERY_STATUS_CODE, - @dwcode, - dwcodeLen, - dwIndex); - res := pchar(@dwcode); - result:= (res ='200') or (res ='302'); - if assigned(hfile) then - InternetCloseHandle(hfile); - InternetCloseHandle(hsession); - end; -end; procedure TMainForm.CheckPrintQue(tjektype : string);