First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,177 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.IO
+Imports DevExpress.Xpo
+Imports System.ComponentModel
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+'Dennis: the FileDataEx class allows you to store files in file system instead of the database. You can set the required path in the DefaultDirectory constant.
+<Persistent(), DefaultProperty("FileName")> _
+    Public Class FileDataEx
+    Inherits BaseObject
+    Implements IFileData, IEmptyCheckable
+    Public Const DefaultDirectory As String = "D:\Store\"
+    Private Const ReadBytesSize As Integer = &H1000
+    Private tempStream As Stream = Nothing
+    Private tempFileName As String = String.Empty
+
+    <Persistent("Size")> _
+    Private _Size As Integer
+    <PersistentAlias("_Size")> _
+    Public ReadOnly Property Size() As Integer Implements IFileData.Size
+        Get
+            Return _Size
+        End Get
+    End Property
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Function ToString() As String
+        Return FileName
+    End Function
+    Private _Content() As Byte
+    <Browsable(False), MemberDesignTimeVisibility(False), EditorBrowsable(EditorBrowsableState.Never)> _
+    Public Property Content() As Byte()
+        Get
+            Return _Content
+        End Get
+        Set(ByVal value As Byte())
+            SetPropertyValue("Content", _Content, value)
+        End Set
+    End Property
+    <NonPersistent(), MemberDesignTimeVisibility(False)> _
+    Public ReadOnly Property IsEmpty() As Boolean Implements IEmptyCheckable.IsEmpty
+        Get
+            Return String.IsNullOrEmpty(_FileName) AndAlso Not Exists
+        End Get
+    End Property
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        If (Not Directory.Exists(DefaultDirectory)) Then
+            Directory.CreateDirectory(DefaultDirectory)
+        End If
+    End Sub
+    Private _FileName As String = String.Empty
+    <Size(260)> _
+    Public Property FileName() As String Implements IFileData.FileName
+        Get
+            Return _FileName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("FileName", _FileName, value)
+        End Set
+    End Property
+    Public ReadOnly Property RealFileName() As String
+        Get
+
+            If _FileName <> String.Empty Then
+                Return Path.Combine(DefaultDirectory, GetUniqueFileName(_FileName))
+            Else
+                Return String.Empty
+            End If
+        End Get
+    End Property
+    Protected Overridable Function GetUniqueFileName(ByVal shortFileName As String) As String
+        Return String.Format("{0}-{1}", Oid, shortFileName)
+    End Function
+    Protected Overridable Function GetShortFileName(ByVal uniqueFileName As String) As String
+        Return uniqueFileName.Replace(String.Format("{0}-", Oid), String.Empty).Replace(DefaultDirectory, String.Empty)
+    End Function
+    Public ReadOnly Property Exists() As Boolean
+        Get
+            Return File.Exists(RealFileName)
+        End Get
+    End Property
+    'Dennis: fires when assigning a file.
+    Public Sub LoadFromStream(ByVal fileName As String, ByVal source As Stream) Implements IFileData.LoadFromStream
+        tempStream = source
+        'Dennis: when assigning a new file we need to save the name of the old file to remove it from the store in the future.
+        If String.IsNullOrEmpty(tempFileName) Then
+            tempFileName = RealFileName
+        End If
+        Me.FileName = fileName
+    End Sub
+    'Dennis: fires when saving or opening a file.
+    Public Sub SaveToStream(ByVal destination As Stream) Implements IFileData.SaveToStream
+        Try
+            Using source As Stream = File.OpenRead(RealFileName)
+                Dim buffer(ReadBytesSize - 1) As Byte
+                Dim read As Integer = 0
+                read = source.Read(buffer, 0, buffer.Length)
+                Do While read > 0
+                    destination.Write(buffer, 0, read)
+                    read = source.Read(buffer, 0, buffer.Length)
+                Loop
+            End Using
+        Catch exc As DirectoryNotFoundException
+            Throw New Exception(String.Format("Cannot access the '{0}' store because it is not available.", DefaultDirectory), exc)
+        Catch exc As FileNotFoundException
+            Throw New Exception(String.Format("Cannot access the '{0}' file because it is not found in the store.", FileName), exc)
+        End Try
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If tempStream IsNot Nothing AndAlso (Not String.IsNullOrEmpty(RealFileName)) Then
+            Dim source As Stream = Nothing
+            'Dennis: for Windows Forms applications.
+            If TypeOf tempStream Is FileStream Then
+                Try
+                    source = File.OpenRead((CType(tempStream, FileStream)).Name)
+                Catch exc As FileNotFoundException
+                    Throw New Exception(String.Format("Cannot read the '{0}' file from a temporary store.", FileName), exc)
+                End Try
+            Else
+                'Dennis: for Web Forms applications.
+                source = tempStream
+            End If
+            Try
+                Using destination As Stream = File.OpenWrite(RealFileName)
+                    Dim buffer(ReadBytesSize - 1) As Byte
+                    Dim read As Integer = 0
+                    read = source.Read(buffer, 0, buffer.Length)
+                    Do While read > 0
+                        destination.Write(buffer, 0, read)
+                        read = source.Read(buffer, 0, buffer.Length)
+                    Loop
+                    UpdateSize(destination)
+                End Using
+            Catch exc As DirectoryNotFoundException
+                Throw New Exception(String.Format("Cannot access the '{0}' store because it is not available.", DefaultDirectory), exc)
+            Finally
+                source.Close()
+                source = Nothing
+            End Try
+        End If
+        'Dennis: removing the old file from the store when saving the current object.
+        If (Not String.IsNullOrEmpty(tempFileName)) Then
+            Try
+                File.Delete(tempFileName)
+                tempFileName = String.Empty
+            Catch exc As DirectoryNotFoundException
+                Throw New Exception(String.Format("Cannot access the '{0}' store because it is not available.", DefaultDirectory), exc)
+            End Try
+        End If
+    End Sub
+    Protected Overrides Sub OnDeleting()
+        'Dennis: first we need to remove the old file from the store.
+        Clear()
+        MyBase.OnDeleting()
+    End Sub
+    Private Sub UpdateSize(ByVal stream As Stream)
+        If stream Is Nothing Then
+            _Size = 0
+        Else
+            _Size = CInt(Fix(stream.Length))
+        End If
+    End Sub
+    Public Sub Clear() Implements IFileData.Clear
+        'Dennis: when clearing the file name property we need to save the name of the old file to remove it from the store in the future.
+        If String.IsNullOrEmpty(tempFileName) Then
+            tempFileName = RealFileName
+        End If
+        FileName = String.Empty
+        UpdateSize(Nothing)
+    End Sub
+End Class