Delphi文件管理（二）

【 tulaoshi.com - 编程语言 】

　　6.4 文件管理综合举例：文件管理器的实现　

　　在本章的最后，我们利用Delphi提供的文件控件和文件管理函数开发一个简单的文件管理器。虽然这一文件管理器还无法和Windows提供的文件管理器相比拟，但它也为一般的文件操作提供了足够多的功能，而且如果读者感兴趣，还可以对它做进一步的扩充。在后边的拖放操作一章中，我们就为它提供了拖放支持，使它看起来更象一个文件管理器。

　　6.4.1 设计基本思路　

　　6.4.1.1 窗口设计　

　　文件管理器的主窗口是一个多文档界面(MDI)。有关文件、目录的显示和文件管理功能的实现都放在子窗口中。在程序执行过程中将根据需要弹出一些完成不同操作的对话框。这些对话框都是在需要时动态生成的。表6.7给出了本程序所设计窗体的清单。　

　　表6.7 FileManger窗体清单

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　窗体类 功能 用于创建该类窗体的菜单项

　　──────────────────────────────────────

　　TFileManager 主窗口

　　TFMForm 子窗口 Windows|New Window

　　TFileAttrForm 显示文件属性 File|Properties;Function|Search

　　TChangeForm 文件移动、拷贝、改名、改变 File|Move.Cope.Rename 当前目录等操作的输入对话框 Directory|change Directory

　　TSearchForm 输入待查找文件的名称和路径 Function|Search

　　TDiskViewForm 显示磁盘信息 Function|Disk View

　　TViewDir 输入待创建的子目录 Directory|CreateDirectory

　　TAboutBox 显示版权信息 Help|About

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　

　　6.4.1.2 界面设计　

　　主窗口界面主要是主菜单和用于表示当前目录、当前文件的状态条。　

　　表6.8 主窗口界面设计

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　部件 属性 功能

　　─────────────────────────────

　　FileManager Style=fsMDI 主窗口

　　WindowMenu=Windows

　　Position=poDefault

　　MainMenu1 主菜单

　　FilePanel Align=alBottom 显示当前选中文件

　　BevelInner=bvLowered

　　BevelWidth=2

　　DirectoryPanel Align=alBottom 显示当前选中目录

　　Alignment=taLeftJustify

　　BevelInner=bvLowered

　　BevelWidth=2

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　主窗口主菜单包括File、WIndows、Help三项。File菜单项在子窗口生成时被子窗口同名菜单项所取代。设置Windows、Help的GroupIndex = 9，可以使子窗口生成时这两个菜单项仍存在。

　　子窗口界面包括主菜单、目录树(DirectoryOutline)、文件列表框、 用于显示驱动器的标签集(TabSet)以及三个用于显示驱动器类型的TImage部件。　

　　表6.9 子窗口界面设计

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　部件 属性 功能

　　───────────────────────────────────────

　　FMForm ActiveControl=DirectoryOutline 子窗口

　　Position=poDefault

　　Style=fsMDIChild

　　MainMenu1 主菜单

　　DriveTabSet Align=alTop 显示驱动器

　　style=tsOwnerDraw

　　DirectoryOutline Align=alLeft 显示当前驱动器的目录树

　　options=[ooDrawTreeRoot,

　　ooDrawFocusRect,ooStretchBitmaps]

　　FileList Align=alClient 显示当前目录中的文件

　　FileType=[ftReadOnly,

　　ftHidden,ftSystem,ftArchive,ftNormal]

　　ShowGlyphs=True

　　Network(Image) Picture(Network.bmp) 标志网络驱动器

　　Vsible=False

　　Floppy(Image) Picture(Floppy.bmp) 标志软驱

　　Visible=False

　　Fixed(Image) Picture(Fixed.bmp) 标志硬驱

　　Visible=False

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　子窗口主菜单包括File、Function、Directory三个菜单项， 分别用于完成文件的基本管理功能、其它管理功能和目录管理功能。

　　由于对话框界面设计很简单，这里不再进行赘述。 读者可直接参考后面将给出的对话框界面图(图6.8---6.13)进行设计。

　　6.4.2 子窗口的创建、布置和关闭

　　子窗口的创建、布置由父窗口的Windows菜单控制，其菜单项如下：

　　● New Windows : 创建新的子窗口

　　● Tile : 平铺

　　● Cascade : 层叠

　　● ArrangeIcon : 排列图标

　　● Minimized All : 极小化所有子窗口

　　子窗口的创建只需要简单调用窗体的Create方法：

　　FileMan := TFMForm.Create(Application);

　　子窗口的标准排列方式直接调用MDI窗口的标准方法Tile、Cascade和ArrangeIcons。

　　极小化所有子窗口的实现利用MDI窗口的两个属性：MDIChildCount和MDIChildren：

　　for i := 0 to MDICount - 1 do

　　MDIChildren[i].Windowstate := wsMinimized;

　　子窗口关闭时释放内存空间，为此在子窗口TFMForm的OnClose事件中令

　　Action := OnFree；

　　为了保持和Windows的File Manager的一致性，我们也禁止关闭最后一个子窗口，这需要在子窗口的OnCloseQuery事件处理过程中实现：

　　If FileManager.MDIChildCount = 1 then

　　CanClose := False;

　　CanClose是OnCloseQuery事件过程返回的一个参数，用于判定窗口是否可以关闭。

　　由于这一过程归子窗口所有，因而MDIChildCount前必须加上其对象名FileManager。

　　但不幸的是：这样一来我们的程序无法终止了！原来MDI窗口关闭前首先关闭其所有的子窗口。如果子窗口不能关闭，MDI窗口也不能关闭。

　　为此我们需要判断发出关闭消息的是子窗口的系统菜单还是菜单的Exit项。

　　定义一个全局变量

　　var

　　ExitClick: Boolean;

　　在子窗口的Exit1Click事件处理过程中：

　　ExitClick := True;

　　FileManager.Exit1Click(Sender);

　　子窗口关闭前可以利用这一全局变量检测是否应关闭：

　　If (FileManager.MDIChildCount = 1) and (Not ExitClick) then

　　CanClose := False;

　　6.4.3 文件控件的联系

　　在本例中我们使用了一组新的控件：TabSet、DirectoryOutline、FileListBox，用于显示和选择驱动器、目录和文件。与(6.3)中所用方法相比，使用这一组控件需要少量的代码支持。

　　TabSet与DirectoryOutline的联系在TabSet的Click事件处理过程中建立：

With DriveTabSet doDirectoryOutline.Drive := Tabs[TabIndex][1];DirectoryOutline与FileListBox的联系在DirectoryOutline的Change事件处理过程中建立：FileList.Directory := DirectoryOutline.Directory;FileList.Update;

　　6.4.4 DriveTabSet的自画风格显示　

　　Dephi为一些控件提供了自画风格的显示，如ListBox、ComboBox、TabSet等。 在缺省情况下，这些控件自动显示文本。而在自画风格下，拥有控件的窗体在运行时间内自己画出控件的每一项目。

　　自画风格显示通常的应用是为项目除文本外再添加图形显示。能以自画风格显示的控件有一个共同特点：都拥有一个TStrings类型的项目链。由于TStrings类的特点(参第三章)，它们都可以加入一个和对应文本相联系的对象。 而这正是自画风格显示的关键。

　　通常情况下产生一个自画风格需要三个步骤：

　　1.设置自画风格；

　　2.向字符串链表添加图形对象；

　　3.画出自画项目。　

　　6.4.4.1 设置自画风格　

　　控件属性Style 用于设置自画风格。对于DriveTabSet，我们把Style 属性设置为tsOwnerDraw。

　　对于ListBox、ComboBox等控件的设置与TabSet略有差异，读者可参阅联机帮助文档。　

　　6.4.4.2 向字符串链表添加图形对象　

　　1.在应用程序中添加图片部件

　　在本程序中我们设置了三个图片部件NetWork、Floppy、Fixed，并分别与三个位图文件NetWork.bmp、Floppy.bmp、Fixed.bmp相关联。

　　2.把图片添加到字符串链表中

　　根据字符串链表的性质，我们可以把对象与已存在的字符串建立联系，也可以同时添加字符串和对象。这里我们采用后一种方法。

　　在子窗口的OnCreate事件处理过程中，我们利用一个循环依次检测从a到z的驱动器是否存在以及驱动器的类型。这利用了Windwos API函数GetDrivetype, 如果驱动器不存在则返回0，否则返回驱动器的类型(DRIVE_REMOVABLE、DRIVE_FIXED、DRIVE_REMOTE)。根据驱动器类型我们可以判断与文本(驱动器名)同时添加到Tabs中的不同图形对象。在添加过程中，DriveTabSet的TabIndex被设置为当前驱动器。

　　程序清单如下：　

procedure TFMForm.FormCreate(Sender: TObject);varDrive, AddedIndex: Integer;DriveLetter: Char;beginfor Drive := 0 to 25 dobeginDriveLetter := Chr(Drive + ord('a'));case GetDrivetype(Drive) ofDRIVE_REMOVABLE:AddedIndex := DriveTabSet.Tabs.AddObject(DriveLetter, Floppy.Picture.Graphic);DRIVE_FIXED:AddedIndex := DriveTabSet.Tabs.AddObject(DriveLetter, Fixed.Picture.Graphic);DRIVE_REMOTE:AddedIndex := DriveTabSet.Tabs.AddObject(DriveLetter, Network.Picture.Graphic);end;if UpCase(DriveLetter) = UpCase(FileList.Drive) thenDriveTabSet.TAbIndex := AddedIndex;end;end;

　　6.4.4.3 画出自画项目　

　　当把一个控件的风格设置为自画时，Windows不再负责往屏幕上画出控件的项目，而是为每个可见项目产生自画事件。应用程序可以通过处理自画事件画出控件的项目。　

　　1.确定自画项目的大小　

　　对于TabSet而言，这在OnMeasureTab事件处理过程中完成。我们需要把DriveTabSet每个标签的宽度增大到足以同时放下文本和位图。　

procedure TFMForm.DriveTabSetMeasureTab(Sender: TObject; Index: Integer;var TabWidth: Integer);varBitmapWidth: Integer;beginBitmapWidth := TBitmap(DriveTabSet.Tabs.Objects[Index]).Width;Inc(TabWidth, 2 + BitmapWidth);end;

　　由于TStrings的Objects属性中存放的对象都是TObject类型，并没有Width属性，因而需要再把它转化为TBitmap类型的对象：　

　　BitmapWidth := TBitmap(DriveTabSet.Tabs.Objects[Index]).Width;

　　2.画出每个自画项目　

　　这在TabSet的OnDrawTab事件处理过程中完成。这一事件处理过程的参数中包含了待画项目索引、画板、待画区域、是否被选中等。这里我们只利用了前三个参数。事实上利用最后一个参数，我们可以对被选中的标签进行一些特殊的视觉效果处理。这一工作就留给读者自己去完成。　

procedure TFMForm.DriveTabSetDrawTab(Sender: TObject; TabCanvas: TCanvas;R: TRect; Index: Integer; Selected: Boolean);varBitmap: TBitmap;beginBitmap := TBitmap(DriveTabSet.Tabs.Objects[Index]);with TabCanvas dobeginDraw(R.Left, R.Top + 4, Bitmap);TextOut(R.Left + 2 + Bitmap.Width, R.Top + 2, DriveTabSet.Tabs[Index]);end;end;

　　6.4.5 文件管理基本功能的实现　

　　在子窗口的File菜单中，定义了文件管理的基本功能，它们是：

　　● Open ：打开或运行一个文件(从文件列表框双击该文件可实现同样效果)

　　● Move ：文件在不同目录间的移动

　　● Copy ：文件拷贝

　　● Delete ：文件删除

　　● Rename ：文件更名

　　● Properties ：显示文件属性　

　　6.4.5.1 文件打开　

　　文件打开功能可以运行一个可执行文件，或把文件在与之相关联的应用程序中打开。文件总是与创建它的应用程序相关联，这种关联可以在Windows的文件管理器中修改。要注意的是：文件的关联是以后缀名为标志的，因而对一个文件关联方式的修改将影响所有相同后缀名的文件。

　　文件打开功能实现的关键是利用了Windows API函数ShellExecute 。由于Windows API函数的参数要求字符串类型是PChar，而Delphi中一般用的是有结束标志的String类型，因此为调用方便我们把这一函数进行了重新定义如下。　

function ExecuteFile(const FileName, Params, DefaultDir: String;ShowCmd: Integer): THandle;varzFileName, zParams, zDir: array[0..79] of Char;beginResult := ShellExecute(Application.MainForm.Handle, nil,StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),StrPCopy(zDir, DefaultDir), ShowCmd);end;

　　以上函数在fmxutils单元中定义。fmxutils是一个自定义代码单元。

　　有关ShellExecute中各参数的具体含义读者可查阅联机Help文件。

　　StrPCopy把一个Pascal类型的字符串拷贝到一个无结束符的PChar类型字符串中。

　　在子窗口的Open1Click事件处理过程中：　

procedure TFMForm.Open1Click(Sender: TObject);beginwith FileList doExecuteFile(FileName, '', Directory, SW_SHOW) ;end;

　　如果FileList允许显示目录的话(即FileType属性再增加一项ftDirectory)，那么对于一个目录而言，打开的含义应该是显示它下边的子目录和文件。程序修改如下。　

procefure TFMForm.Open1Click(Sender: Tobject);beginWith FileList dobeginif HasAttr(FileName,faDirectory) thenDirectoryOutline.Directory := FileNameelseExecuteFile(FileName,' ' ,Directory,SW_SHOW);end;end;

　　其中HasAttr是一个fmxutils单元中的自定义函数，用于检测指定文件是否具有某种属性。　

function HasAttr(const FileName: String; Attr: Word): Boolean;beginResult := (FileGetAttr(FileName) and Attr) = Attr;end;

　　6.4.5.2 文件拷贝、移动、删除、更名　

　　文件拷贝的关键是使用了以文件句柄为操作对象的文件管理函数，因而提供了一种底层的I/O通道。在Object Pascal中这一点是利用无类型文件实现的。

　　在文件拷贝中首先检查目标文件名是否是一个目录。如是则把原文件的文件名添加到目标路径后，生成目标文件全路径名。而后提取源文件的时间戳，以备拷贝完成后设置目标文件。拷贝过程中使用了返回文件句柄或以文件句柄为参数的文件管理函数FileOpen、FileCreate、FileRead、FileWrite、FileClose。为保证文件的正常关闭和内存的释放，在拷贝过程中进行异常保护。

　　过程CopyFile实现上述功能，它定义在fmxutils单元中。　

procedure CopyFile(const FileName, DestName: TFileName);varCopyBuffer: Pointer; TimeStamp, BytesCopied: Longint;Source, Dest: Integer; Destination: TFileName; constChunkSize: Longint = 8192; beginDestination := ExpandFileName(DestName); if HasAttr(Destination, faDirectory) then Destination := Destination + '' + ExtractFileName(FileName); TimeStamp := FileAge(FileName); GetMem(CopyBuffer, ChunkSize); trySource := FileOpen(FileName, fmShareDenyWrite);if Source  0 then raise EFOpenError.Create(FmtLoadStr(SFOpenError, [FileName]));tryDest := FileCreate(Destination); if Dest  0 then raise EFCreateError.Create(FmtLoadStr(SFCreateError,[Destination]));tryrepeatBytesCopied := FileRead(Source, CopyBuffer^, ChunkSize); if BytesCopied  0 then FileWrite(Dest, CopyBuffer^, BytesCopied); until BytesCopied  ChunkSize; finallyFileSetDate(Dest,TimeStamp);FileClose(Dest); end;finallyFileClose(Source); end;finallyFreeMem(CopyBuffer, ChunkSize);end;end;

　　如果我们不使用FileSetDate过程，Windows自动把当前时间作为时间戳写入文件。

　　文件移动事实上是文件拷贝与文件删除的结合。fmxutils单元中的MoveFile过程实现了这一功能。　

procedure MoveFile(const FileName, DestName: TFileName);varDestination: TFileName;beginDestination := ExpandFileName(DestName); if not RenameFile(FileName, Destination) then beginif HasAttr(FileName, faReadOnly) then raise EFCantMove.Create(Format(SFCantMove, [FileName])); CopyFile(FileName, Destination); DeleteFile(FileName); end;end;　EFCanMove是一个自定义异常类：　typeEFCanMove := Class(EStreamError);

　　有关自定义异常类请参阅第十二章。

　　文件删除、文件更名直接调用Delphi文件管理过程DeleteFile、RenameFile。它们都以文件名为参数。操作执行前应弹出一个对话框进行确认，执行完毕后应调用Update方法更新FileList的显示。　

　　6.4.5.3 一致的界面　

　　文件拷贝、文件移动、 文件更名以及后边的改变当前目录在形式上都表现为从一个源文件到一个目标文件。因而可以采用统一的用户界面，即ChangeForm对话框

　　这四个菜单项共用一个Click事件处理过程，通过对Sender参数的检测，决定将要打开对话框的标题和显示内容。当用户按OK键关闭且目标文件(目录)非空时，程序弹出一个消息对话框要求用户进一步确认，而后执行相应的动作。

　　共用的事件处理过程FileChange的程序清单如下：　

procedure TFMForm.FileChange(Sender: TObject);varChangeForm: TChangeForm;IsFile: Boolean;beginChangeForm := TchangeForm.Create(Self);IsFile := True;with ChangeForm dobeginif Sender = Move1 then Caption := 'Move'else if Sender = Copy1 then Caption := 'Copy'else if Sender = Rename1 then Caption := 'Rename'else if Sender = ChangeDirectory1 thenbeginCaption:='Change Directory';IsFile:=False;endelse Exit;if IsFile thenbeginCurrentDir.Caption := FileList.Directory;FromFileName.Text := FileList.FileName;ToFileName.Text := '';endelsebeginCurrentDir.Caption := DriveTabSet.Tabs[DriveTabSet.TabIndex];FromFileName.Text := DirectoryOutline.Directory;ToFileName.Text := '';end;if (ShowModal  idCancel) and (ToFileName.Text  '') thenConfirmChange(Caption, FromFileName.Text, ToFileName.Text);end;end;

　　其中用到的自定义私有过程ConfirmChange用于执行相应的动作：　

procedure TFMForm.ConfirmChange(const ACaption, FromFile, ToFile: String);beginif MessageDlg(Format('%s %s to %s', [ACaption, FromFile, ToFile]),mtConfirmation, [mbYes, mbNo], 0) = idYes thenbeginif ACaption = 'Move' thenMoveFile(FromFile, ToFile)else if ACaption = 'Copy' thenCopyFile(FromFile, ToFile)else if ACaption = 'Rename' thenRenameFile(FromFile, ToFile)else if ACaption = 'Change Directory' thenchangeDirectory(ToFile);FileList.Update;end;end;

　　6.4.5.4 显示文件属性　

　　当程序执行Properties 菜单项的Click 事件处理过程时，首先弹出一个TFileAttrForm类型的对话框，显示文件的属性

　　当用户修改并确认后程序重新设置文件属性。

　　Properties菜单项的Click事件处理过程如下：　

procedure TFMForm.Properties1Click(Sender: TObject);varAttributes, NewAttributes: Word;FileAttrForm: TFileAttrForm;beginFileAttrForm := TFileAttrForm.Create(self);ShowFileAttr(FileAttrForm,FileList.FileName,FileList.Directory);end;

　　其中过程ShowFileAttr的实现如下：　

procedure TFMForm.ShowFileAttr(FileAttrForm:TFileAttrForm;AFileName,Directory:String);varAttributes,NewAttributes: Word;beginwith FileAttrForm dobeginFileName.Caption := AFileName;FilePath.Caption := Directory;ChangeDate.Caption := DateTimeToStr(FileDateTime(AFileName));Attributes := FileGetAttr(AFileName);ReadOnly.Checked := (Attributes and faReadOnly) = faReadOnly;Archive.Checked := (Attributes and faArchive) = faArchive;System.Checked := (Attributes and faSysFile) = faSysFile;Hidden.Checked := (Attributes and faHidden) = faHidden;if ShowModal  idCancel thenbeginNewAttributes := Attributes;if ReadOnly.Checked then NewAttributes := NewAttributes or faReadOnlyelse NewAttributes := NewAttributes and not faReadOnly;if Archive.Checked then NewAttributes := NewAttributes or faArchiveelse NewAttributes := NewAttributes and not faArchive;if System.Checked then NewAttributes := NewAttributes or faSysFileelse NewAttributes := NewAttributes and not faSysFile;if Hidden.Checked then NewAttributes := NewAttributes or faHiddenelse NewAttributes := NewAttributes and not faHidden;if NewAttributes  Attributes thenFileSetAttr(AFileName, NewAttributes);end;end;end;

　　以上过程中用到的函数FileDataTime在fmxutils单元中定义，返回一个TDatatime类型的变量。　

function FileDateTime(const FileName: String): System.TDateTime;beginResult := FileDateToDateTime(FileAge(FileName));end;

　　6.4.6 其它文件管理功能的实现　

　　在子窗口的Function菜单中，定义了一些其它的文件管理功能：

　　● Search ：查找一个给定名字的文件，若存在则显示该文件属性

　　● Disk View ：显示当前驱动器的大小和剩余空间

　　● View type ：确定显示文件的类型　

　　6.4.6.1 文件查找　

　　当用户单击Search菜单项时，程序弹出一个对话框(如图6.10)，要求输入待查找的文件名和查找路径。文件名可以是通配符。当用户确认后程序显示第一个匹配文件的属性(如图6.9)。查找不到匹配文件则给出相应的信息。

　　在实现这一功能的最初设计中，我试图使用FileSearch函数，这个函数允许在多个不同路径中查找。但可惜的是：也许由于系统设计者的失误，这个函数并没有返回它应该返回的东西(第一个匹配文件的全路径名)，而是仍把输入的匹配符返回。

　　没有办法我只能再次使用FindFirst，这个函数的特性在6.3节中已进行了介绍。下面是这一功能的实现代码。　

procedure TFMForm.search1Click(Sender: TObject);varSearchForm: TSearchForm;FileAttrForm: TFileAttrForm;FindIt,path: String;SearchRec: TSearchRec;Return: Integer;beginSearchForm := TSearchForm.Create(self);with SearchForm dobeginSearchFile.text := '';SearchPath.text := DirectoryOutline.Directory;if (ShowModal  idCancel) and(SearchFile.Text  '') and (SearchPath.text  '') thenbeginFindIt := SearchPath.text+''+SearchFile.text;Return := FindFirst(FindIt,faAnyFile,SearchRec);if Return  0 thenFindIt := ''elseFindIt := ExpandFileName(SearchRec.Name);end;if FindIt = '' thenMessageDlg('Cannot find the file in current directory.',mtWarning, [mbOk], 0)elsebeginPath := ExtractFilePath(FindIt);FindIt := ExtractFileName(FindIt);FileAttrForm := TFileAttrForm.Create(self);ShowFileAttr(FileAttrForm,FindIt,Path);end;end;end;