/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2689 by torben, Thu Sep 3 13:43:10 2015 UTC revision 2693 by torben, Thu Sep 3 14:27:21 2015 UTC
# Line 52  type Line 52  type
52      Testlyd1: TMenuItem;      Testlyd1: TMenuItem;
53      ListBox1: TListBox;      ListBox1: TListBox;
54      Budlevering1: TMenuItem;      Budlevering1: TMenuItem;
55      DownloadButton01: TButton;      BtnDownloadKontrolfil: TButton;
56      IdFTP1: TIdFTP;      IdFTP1: TIdFTP;
57      Image1: TImage;      Image1: TImage;
58      ListBox2: TListBox;      ListBox2: TListBox;
# Line 93  type Line 93  type
93      PanelManglendePakker6: TPanel;      PanelManglendePakker6: TPanel;
94      menuIndlevering: TMenuItem;      menuIndlevering: TMenuItem;
95    
   
   function Sto_GetFmtFileVersion(const FileName: String = ''): String;  
   
96    function getProddato() : TDate;    function getProddato() : TDate;
97    function getProddag() : String;    function getProddag() : String;
98    function retRutenummer(rutenummer : String) : String;    function retRutenummer(rutenummer : String) : String;
# Line 134  type Line 131  type
131    procedure Button1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);
132    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
133    procedure Budlevering1Click(Sender: TObject);    procedure Budlevering1Click(Sender: TObject);
134    procedure DownloadButton01Click(Sender: TObject);    procedure BtnDownloadKontrolfilClick(Sender: TObject);
135    procedure OpdaterListenButton01Click(Sender: TObject);    procedure OpdaterListenButton01Click(Sender: TObject);
136    procedure DownloadBladhusRuteskiftfil();    procedure DownloadBladhusRuteskiftfil();
137    procedure DownloadBladhusKontrolfil();    procedure DownloadBladhusKontrolfil();
# Line 605  begin Line 602  begin
602    
603      if (SkrivLog = '1') then      if (SkrivLog = '1') then
604      begin      begin
605        logTekst := 'Program start (Version: ' + Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);        logTekst := 'Program start (Version: ' + TUtils.Sto_GetFmtFileVersion('') + ') Dato: ' + FormatDateTime('yyyy-mm-dd hh:nn:ss',now);
606        try        try
607          SkrivScanningLogFil(logTekst);          SkrivScanningLogFil(logTekst);
608          Uploadlogfil1.Enabled := true;          Uploadlogfil1.Enabled := true;
# Line 1131  begin Line 1128  begin
1128      Scanningtype := gemScanningtype;      Scanningtype := gemScanningtype;
1129    
1130      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');      SendInfoTilServer(Sted, Scanningtype, 'Begin', '');
1131      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', Sto_GetFmtFileVersion(''));      SendInfoTilServer(Sted, Scanningtype, 'ProgramVersion', TUtils.Sto_GetFmtFileVersion(''));
1132    
1133  end;  end;
1134    
# Line 1980  begin Line 1977  begin
1977      01 :      01 :
1978            begin;      // NS            begin;      // NS
1979              Testprinter1.Visible := true;              Testprinter1.Visible := true;
1980              DownloadButton01.Enabled := true;              BtnDownloadKontrolfil.Enabled := true;
1981              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
1982              IdFTP1.Passive := true;              IdFTP1.Passive := true;
1983              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 1996  begin Line 1993  begin
1993              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
1994              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
1995              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
1996              DownloadButton01.Enabled := false;     // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;     // kontrolfil bruges ikke her
1997              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
1998              IdFTP1.Passive := true;              IdFTP1.Passive := true;
1999              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2013  begin Line 2010  begin
2010              begin              begin
2011                DownloadButton03.Visible := false;                DownloadButton03.Visible := false;
2012              end;              end;
2013              DownloadButton01.Enabled := true;              BtnDownloadKontrolfil.Enabled := true;
2014              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2015              IdFTP1.Passive := true;              IdFTP1.Passive := true;
2016              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 2034  begin Line 2031  begin
2031              Storepakker1.Enabled := true;              Storepakker1.Enabled := true;
2032              radioStorPakke.Enabled := true;              radioStorPakke.Enabled := true;
2033              radioLillePakke.Enabled := true;              radioLillePakke.Enabled := true;
2034              DownloadButton01.Enabled := false;    // kontrolfil bruges ikke her              BtnDownloadKontrolfil.Enabled := false;    // kontrolfil bruges ikke her
2035              OpdaterListenButton01.Enabled := true;              OpdaterListenButton01.Enabled := true;
2036              IdFTP1.Passive := true;              IdFTP1.Passive := true;
2037              IdFTP1.PassiveUseControlHost := true;              IdFTP1.PassiveUseControlHost := true;
# Line 3244  end; Line 3241  end;
3241    
3242  procedure TMainForm.PanelValgAClick(Sender: TObject);  procedure TMainForm.PanelValgAClick(Sender: TObject);
3243  begin  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;  
 *)  
3244  // Skal ikke toggle men bare sætte funktionen on  // Skal ikke toggle men bare sætte funktionen on
3245  // Fravælges ved at vælge en scanningstype  // Fravælges ved at vælge en scanningstype
3246       AutomatiskValg1.Checked := true;    AutomatiskValg1.Checked := true;
3247       PanelValgA.Color := clGreen;    PanelValgA.Color := clGreen;
3248       PanelValgA.Font.Color := clWhite;    PanelValgA.Font.Color := clWhite;
3249  // 20150311: slut  
3250    
3251    
3252  end;  end;
3253    
3254  procedure TMainForm.Pakkernormal1Click(Sender: TObject);  procedure TMainForm.Pakkernormal1Click(Sender: TObject);
# Line 3379  var Line 3363  var
3363   tekst, filversion : String;   tekst, filversion : String;
3364  begin  begin
3365    
3366    filversion := Sto_GetFmtFileVersion('');    filversion := TUtils.Sto_GetFmtFileVersion('');
3367    tekst := 'Program til indscanning af pakker'+crlf+'Version '+filversion+crlf+crlf+'Udviklet af it afdelingen, DAO';    tekst := 'Program til indscanning af pakker'+crlf+'Version '+filversion+crlf+crlf+'Udviklet af it afdelingen, DAO';
3368    
3369    tekst := tekst+crlf+crlf;    tekst := tekst+crlf+crlf;
# Line 3657  begin Line 3641  begin
3641        radioLillePakke.Enabled := true;        radioLillePakke.Enabled := true;
3642        ListBox1.Visible := true;        ListBox1.Visible := true;
3643        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3644        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3645        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3646        DownloadButton03.Visible := false;        DownloadButton03.Visible := false;
3647        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
# Line 3693  begin Line 3677  begin
3677        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3678        ListBox1.Visible := true;        ListBox1.Visible := true;
3679        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3680        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3681        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3682    
3683        EKLoverforsel.Enabled := true;        EKLoverforsel.Enabled := true;
# Line 3730  begin Line 3714  begin
3714        radioLillePakke.Enabled := false;        radioLillePakke.Enabled := false;
3715        ListBox1.Visible := true;        ListBox1.Visible := true;
3716        ListBox1.Items.Clear;        ListBox1.Items.Clear;
3717        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3718        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3719        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3720        InitLillePakke();        InitLillePakke();
# Line 3777  begin Line 3761  begin
3761        ListBox1.Visible := true;        ListBox1.Visible := true;
3762        ListBox1.Items.Clear();        ListBox1.Items.Clear();
3763    
3764        DownloadButton01.Enabled := false;        BtnDownloadKontrolfil.Enabled := false;
3765        OpdaterListenButton01.Enabled := true;        OpdaterListenButton01.Enabled := true;
3766        EKLoverforsel.Enabled := false;        EKLoverforsel.Enabled := false;
3767        InitLillePakke();        InitLillePakke();
# Line 3817  begin Line 3801  begin
3801  // 20150310: slut  // 20150310: slut
3802  end;  end;
3803    
 /// <summary>  
 ///   This function reads the file resource of "FileName" and returns  
 ///   the version number as formatted text.</summary>  
 /// <example>  
 ///   Sto_GetFmtFileVersion() = '4.13.128.0'  
 ///   Sto_GetFmtFileVersion('', '%.2d-%.2d-%.2d') = '04-13-128'  
 /// </example>  
 /// <remarks>If "Fmt" is invalid, the function may raise an  
 ///   EConvertError exception.</remarks>  
 /// <param name="FileName">Full path to exe or dll. If an empty  
 ///   string is passed, the function uses the filename of the  
 ///   running exe or dll.</param>  
 /// <param name="Fmt">Format string, you can use at most four integer  
 ///   values.</param>  
 /// <returns>Formatted version number of file, '' if no version  
 ///   resource found.</returns>  
 function TMainForm.Sto_GetFmtFileVersion(const FileName: String = ''): String;  
 var  
   sFileName: String;  
   iBufferSize: DWORD;  
   iDummy: DWORD;  
   pBuffer: Pointer;  
   pFileInfo: Pointer;  
   iVer: array[1..4] of Integer;  
 begin  
   // set default value  
   Result := '';  
   // get filename of exe/dll if no filename is specified  
   sFileName := Trim(FileName);  
   if (sFileName = '') then  
     sFileName := GetModuleName(HInstance);  
   // get size of version info (0 if no version info exists)  
   iBufferSize := GetFileVersionInfoSize(PChar(sFileName), iDummy);  
   if (iBufferSize > 0) then  
   begin  
     GetMem(pBuffer, iBufferSize);  
     try  
     // get fixed file info (language independent)  
     GetFileVersionInfo(PChar(sFileName), 0, iBufferSize, pBuffer);  
     VerQueryValue(pBuffer, '\', pFileInfo, iDummy);  
     // read version blocks  
     iVer[1] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);  
     iVer[2] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionMS);  
     iVer[3] := HiWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);  
     iVer[4] := LoWord(PVSFixedFileInfo(pFileInfo)^.dwFileVersionLS);  
     finally  
       FreeMem(pBuffer);  
     end;  
   
     // format result string  
     Result := Format('%d.%d.%d.%d', [iVer[1], iVer[2], iVer[3], iVer[4]]);  
3804    
   end;  
 end;  
3805    
3806  procedure TMainForm.PlaySound(filename : PWideChar);  procedure TMainForm.PlaySound(filename : PWideChar);
3807  begin  begin
# Line 4540  begin Line 4471  begin
4471    ListBox1.SetFocus;  // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode    ListBox1.SetFocus;  // for at flytte fokus væk fra upload knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
4472  end;  end;
4473    
4474  procedure TMainForm.DownloadButton01Click(Sender: TObject);  procedure TMainForm.BtnDownloadKontrolfilClick(Sender: TObject);
4475  begin  begin
4476      DownloadBladhusKontrolfil();      DownloadBladhusKontrolfil();
4477      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode      ListBox1.SetFocus;  // for at flytte fokus væk fra download knappen så denne ikke aktiveres ved scanning / indtastning af stregkode
Legend:
Removed from v.2689  
changed lines
  Added in v.2693
  ViewVC Help
Powered by ViewVC 1.1.20