Lily.Core.FileDataProvider文件管理使用范例。

此组件主要支持进行文件管理，当前版本(1.0.0.2)支持局域网和FTP模式，可以自主扩展访问方式；

主要功能：

创建目录，删除目录，上传文件，下载文件，删除文件，返回远程路径。主要是这五个功能。

文件或目录在物理磁盘上的名称，默认都是以ID为名称的，所以不存在目录或文件的更改。

此组件不能单独使用，必须结合lily.Core实体结合使用。设计的目的是让一个实体可以对应一个或多个文件。把文件当作实体的字段。

表结构设计注意：

目录必须按ID,ParentID的结果。

文件使用目录ID进行关联。

对象层次：

目录或文件对象都继承于：Lily.Core.FileDataProvider.EntityFileBase

目录或文件对象操作类都继承于：Lily.Core.FileDataProvider.FileEntityHandler

下面列出一个代码示例：

Private f_目录 As Lily.Core.FileDataProvider.DirectoryField

<Browsable(False)> _
Public Overridable ReadOnly Property _目录() As Lily.Core.FileDataProvider.DirectoryField
Get
If f_目录 Is Nothing Then

'这是默认实体字段对象的获取方式
' f_目录 = Lily.Core.Util.OQLHelper.GetEntityField(Me, "目录", "目录", False, False, DbType.String, 50)

'这是文件对象字段实体获取方式，这里是目录。

'其实DirectoryField也是继承于EntityField对象的。
Me.f_目录 = Me.FileConnection.GetDirectoryField(Me, "目录", "目录", False, False, DbType.String, 50)
End If
Return f_目录
End Get
End Property

如果是文件则是：

Private f_文件 As Core.FileDataProvider.FileField
<Browsable(False)> _
Public Overridable ReadOnly Property _文件() As Core.FileDataProvider.FileField
Get
If f_文件 Is Nothing Then
'f_文件名称 = Lily.Core.Util.OQLHelper.GetEntityField(Me, "文件名称", "文件名称", False, False, DbType.String, 100)
Me.f_文件 = Me.FileConnection.GetFileField(Me, "文件", "文件", False, False, DbType.String, 1000, False, False, Me)
End If
Return f_文件
End Get
End Property

可以看出没有太大的区别。其中FileField与DirectoryField都是继承于实体字段EntityField。FileConnection见下面介绍

文件和目录都需要重新基类一个方法和一个属性

返回一个连接对象，组件设计之初就考虑了可以支持不同访问方式如：局域网或FTP，或其它的。所以都应该重写基类的FileConnection属性，返回一个可用可配置的连接对象。 这里有一个ConfigurationInfo.GetConnection是通过配置文件反射获取文件连接对象。对于局域网路径或FTP用户名密码等都在配置文件中。

Public Overrides Property FileConnection() As FileDataProvider.IFileConnection
Get
If MyBase.FileConnection Is Nothing Then
Return ConfigurationInfo.GetConnection()
End If
Return MyBase.FileConnection
End Get
Set(ByVal Value As FileDataProvider.IFileConnection)
MyBase.FileConnection = Value
End Set
End Property

获取对象的父路径,Lily.Core.FileDataProvider.Util.GetParentPath调用了一个存储过程，把ID,ParentID转换路径字符串。返回父目录路径或文件的目录路径部份。注意红色部份是文件实体里的代码，蓝色是目录实体里的代码。要区分一下，主要是传入的ID不一样。

Public Overrides Function GetParentPath() As String
Static path As String = String.Empty

If Me.FileConnection Is Nothing Then
Throw New Lily.Core.FileDataProvider.FileDataException("连接对象为空，不能进行文件管理。")
End If

If path Is Nothing OrElse path.Length = 0 Then
Dim t As New tb_目录管理

下面是文件的
path = Lily.Core.FileDataProvider.Util.GetParentPath(Me.FileConnection, t._ID.AttributeName, t._ParentID.AttributeName, t, Me.目录ID)

下面是目录的

path = Lily.Core.FileDataProvider.Util.GetParentPath(Me.FileConnection, t._ID.AttributeName, t._ParentID.AttributeName, t, Me.ParentID)
End If

If Not path Is Nothing OrElse path.Length > 0 Then
Return path
Else
Return String.Empty
End If
End Function

文件实体对象就创建好了。由于类的继承是单一的，这样实体就不具备权限方面的属性。可以通过以下这段代码来解决这个问题。

获取权利管理对象

ReadOnly Property Permission() As Lily.ComponentFramework.IPermission
Get
Return Lily.ComponentFramework.ComponentManager.Permission
End Get
End Property

如增加一个删除文件判断的方法。

Public Overridable Function HasDeleteFile() As Boolean
Return Me.Permission.Has(Me, "删除文件")
End Function

对于控件，还需要重写基类的GetPurviewObjectList方法。

Public Overrides Function GetPurviewObjectList() As System.Collections.ArrayList
Static ary As ArrayList
If ary Is Nothing Then
ary = New ArrayList
Else
Return ary
End If
ary.Add(New Common.tb_文件管理)

Return ary
End Function

基础了，我们来看看。文件对象的添加，删除，下载，查看。

上传文件：

dim item as new tb_文件管理

dim o as new tb_文件管理_Operate

item._文件.LocalFile="c:\1.txt"

o.Accept(Me.item)

删除文件：

Dim o As New Common.tb_文件管理_Operate
o.Delete(item)

其实删除与删除实体是一样，文件对象就是一个实体，只是在删除实体记录时，删除相应的文件记录。这中间启用了事务，保证了记录与物理文件的对应关系。但是删除最好不要嵌套，这样就不能保证关系的一致性了。因为文件删除后，不能回滚。

下载文件：

item._文件.DownFile(s.FileName)

其实s.Filename下载存放的路径。

远程路径：

Dim file As String = Me.ActiveFile.FileConnection.GetFullPath(Me.ActiveFile._文件)
FileViewerNav.Viewer(file)

这里为什么调用FileConnection对象的GetFullPath方法获取全路径呢，为什么不使用me.ActiveFile._文件.RemoteFullFileName属性。因为了RemoteFullFileName返回的路径可能是一个相对的。局域网上一个绝对的，FTP是相对的。而FileConnection的getfullPath方法返回就是一个绝对的远程路径。对于局域网就是\\xxx.xxxx.xxxx.xxx\user 这样的路径方式；FTP类似于ftp://user:pwd@xxx.xxx.xxx.xxx:21/3/4/1.txt 这样的路径。

目录操作与文件操作类似。