saveunit.pas

用Delphi写的车牌字符各种特征提取实验系统

unit SaveUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, Grids, Outline, DirOutln, ComCtrls,
  ShellCtrls;

type
  TSaveForm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Edit3: TEdit;
    CheckBox4: TCheckBox;
    Edit4: TEdit;
    FileListEdit: TEdit;
    Label3: TLabel;
    CheckBox5: TCheckBox;
    Edit5: TEdit;
    ShellTreeView1: TShellTreeView;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    CheckBox6: TCheckBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure ShellTreeView1Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SaveForm: TSaveForm;

implementation

uses PictureViewUnit, DataUnit;

{$R *.dfm}

procedure TSaveForm.SpeedButton1Click(Sender: TObject);
begin
SaveForm.Width:=454;
end;

procedure TSaveForm.ShellTreeView1Click(Sender: TObject);
var
  i,std:integer;
begin
  for i:=0 to ShellTreeView1.Items.Count do
  begin
    if ShellTreeView1.Items[i].Selected then
    begin
     std:=i;break;
    end;
  end;
  FileListEdit.Text:=ShellTreeView1.Path;//+ShellTreeView1.Items[i].Text;
end;

procedure TSaveForm.Label4Click(Sender: TObject);
begin
CheckBox1.Checked:=True;
CheckBox2.Checked:=True;
CheckBox3.Checked:=True;
CheckBox4.Checked:=True;
CheckBox5.Checked:=True;
end;

procedure TSaveForm.Label5Click(Sender: TObject);
begin
CheckBox1.Checked:=False;
CheckBox2.Checked:=False;
CheckBox3.Checked:=False;
CheckBox4.Checked:=False;
CheckBox5.Checked:=False;
end;

procedure TSaveForm.BitBtn1Click(Sender: TObject);
var
  FilePas:string;
begin
  FilePas:=FileListEdit.Text;
  Try
   if CheckBox1.Checked=True then
   begin
     ImageViewForm.ViewImage.Picture.SaveToFile(FilePas+'\'+Edit1.Text);
   end;
   if CheckBox2.Checked=True then
   begin
     ImageViewForm.SXImage.Picture.SaveToFile(FilePas+'\'+Edit2.Text);
   end;
   if CheckBox3.Checked=True then
   begin
     ImageViewForm.BoneImage.Picture.SaveToFile(FilePas+'\'+Edit3.Text);
   end;
   if CheckBox4.Checked=True then
   begin
     ImageViewForm.XHImage.Picture.SaveToFile(FilePas+'\'+Edit4.Text);
   end;
   if CheckBox5.Checked=True then
   begin
     ImageViewForm.ZTImage.Picture.SaveToFile(FilePas+'\'+Edit5.Text);
   end;
   SaveForm.Hide;
  except
    ShowMessage('找不到指定路径，请重新设定！！');
  end;
end;

procedure TSaveForm.BitBtn2Click(Sender: TObject);
begin
SaveForm.Hide;
end;

procedure TSaveForm.FormCreate(Sender: TObject);
var
  FilePas:String;
begin
FilePas:=ExtractFilePath(Application.ExeName);
//SaveForm.ShellTreeView1.Path:=FilePas;
SaveForm.FileListEdit.Text:=FilePas;
end;

procedure TSaveForm.FormShow(Sender: TObject);
begin
  if CHeckBox5.Checked=True then
  begin
    Edit1.Text:=OpenPictureName;
    Edit2.Text:=OpenPictureName;
    Edit3.Text:=OpenPictureName;
    Edit4.Text:=OpenPictureName;
    Edit5.Text:=OpenPictureName;
  end;
end;

end.