picenter.~pas

采用Delphi7+Oracle. 该软件是由交警人员对各个路口闯红灯违法照片进行有效保存

unit PicEnter;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, TFlatButtonUnit,inifiles;

type
  TfrmPicEnter = class(TForm)
    Label1: TLabel;
    btnBegin: TBitBtn;
    btnEnd: TBitBtn;
    Label2: TLabel;
    edtFilePath: TEdit;
    btnBrowse: TFlatButton;
    cobFilePath: TComboBox;
    labInfo: TLabel;
    procedure btnBrowseClick(Sender: TObject);
    procedure btnBeginClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cobFilePathChange(Sender: TObject);
    procedure btnEndClick(Sender: TObject);
  private
    { Private declarations }
  public

  procedure ShowCobFilePath(path:String);
    { Public declarations }
  end;

var
  frmPicEnter: TfrmPicEnter;


implementation

uses CommUnit, dbConn, MyThread;
var
  picEnterThd:TMyThread;

{$R *.dfm}

procedure TfrmPicEnter.btnBrowseClick(Sender: TObject);
var
      NewDir:   string;
      IniFile:TInifile;
      FSearchRec: TSearchRec;
begin
      NewDir   :=   edtFilePath.Text;
      if   CommUnit.SelectDirectory('选择一个文件路径',   '',   NewDir,   Handle)   then
          edtFilePath.Text   :=   NewDir;
      //保存文件路径到配置文件中
      try
        CurDir:=ExtractFilePath(Application.ExeName);
        IniFile:=TInifile.Create(CurDir+'config.ini');
        IniFile.WriteString('图片导入路径','EnterDir',NewDir);  //图片保存路径
        IniFile.Free ;
      except
        IniFile.Free ;
      end;
      //在combox中显示路口名称
      ShowCobFilePath(NewDir);
      cobFilePath.ItemIndex := 0;
      self.cobFilePathChange(Sender); 
end;

procedure TfrmPicEnter.ShowCobFilePath(path:String);
var
    FSearchRec: TSearchRec;
begin
  cobFilePath.items.clear;
  if (FindFirst(path+'\*',faAnyfile,FSearchRec)=0) then
  begin
    Repeat
    begin
      if (FsearchRec.Name <> '.') and (FsearchRec.Name <> '..') then
        cobFilePath.Items.add(FSearchRec.name);
    end
    until FindNext(FSearchRec) <> 0
  end;
  FindClose(FSearchRec);
end;

procedure TfrmPicEnter.btnBeginClick(Sender: TObject);
begin
    picEnterThd:=TMyThread.Create(edtFilePath.Text+'\'+cobFilePath.Text);
    picEnterThd.Resume ;
//    TMyThread.Create(edtFilePath.Text+'\'+cobFilePath.Text);
    btnBegin.Enabled := false;
    btnEnd.Enabled := true;
end;

procedure TfrmPicEnter.FormShow(Sender: TObject);
var
 IniFile:TInifile;
begin
      try
        CurDir:=ExtractFilePath(Application.ExeName);
        IniFile:=TInifile.Create(CurDir+'config.ini');
        edtFilePath.Text :=IniFile.ReadString ('图片导入路径','EnterDir','');  //图片保存路径
        IniFile.Free ;
      except
        IniFile.Free ;
      end;
      ShowCobFilePath(edtFilePath.Text );
      self.cobFilePathChange(Sender);
end;

procedure TfrmPicEnter.cobFilePathChange(Sender: TObject);
var
    findfile: TSearchRec;
begin
    if findfirst(edtFilePath.Text+'\'+cobFilePath.Text+'\*.jpg',faAnyFile,findfile)<> 0 then  //没有图片
    begin
        labInfo.Caption :=edtFilePath.Text+'\'+cobFilePath.Text+' -->>该路径下暂无图片!请查看';
        btnBegin.Enabled := false;
        btnEnd.Enabled := false;
    end
    else
    begin
        labInfo.Caption :=' ';
        btnBegin.Enabled := true;
        btnEnd.Enabled := false;
    end;

end;

procedure TfrmPicEnter.btnEndClick(Sender: TObject);
begin
    picEnterThd.Terminate ;
    btnEnd.Enabled := false;
    self.cobFilePathChange(Sender); 
end;

end.