SourceGear Support

Code: Select all

Public Function IsDifferent(ByVal thanFN As String) As Boolean
            Dim testm1 As Boolean
            Dim testm3 As Boolean
            Dim testrm As Boolean
            Dim ReliableMD5 As Boolean
            If ActiveVersion = LatestVersion Then
'notesay: pretty much everything returns TRUE: Return SCFolder.IsModified(_vaultClientFile [,true,true])
                testm1 = SCFolder.IsModified(_vaultClientFile)
                testm3 = SCFolder.IsModified(_vaultClientFile, True, True)
                testrm = SCFolder.IsReallyModified(_vaultClientFile)
            End If
            If _WorkPath Is Nothing OrElse _WorkPath.Length = 0 Then _WorkPath = System.IO.Path.GetTempPath
            Dim tempfn As String = UtilityToolkit.Strings.AddBS(_WorkPath) & "tempfile.vss"
            Dim scHash As String
            Dim lfHash As String
            Try
                GetTempCopy(tempfn) ' gets a local, non-working copy of the "ActiveVersion" of this file 
                scHash = UtilityToolkit.IO.HashForFile(tempfn)
                lfHash = UtilityToolkit.IO.HashForFile(thanFN)
                If ActiveVersion = LatestVersion Then Debug.WriteLine(String.Format("Vault {0} Modified Check {1}, CRC {2}, RM {3}; MD5 {4}", Name, testm1, testm3, testrm, ReliableMD5))
                Return (scHash <> lfHash)
            Finally
                If System.IO.File.Exists(tempfn) Then System.IO.File.Delete(tempfn)
            End Try
            Return True
End Function

Public Function IsDifferent() As Boolean
            Return IsDifferent(LocalSpec)
End Function


Public Function GetTempCopy(ByVal toLocalFn As String) As Boolean
            Dim options As New VaultClientIntegrationLib.GetOptions
            If System.IO.File.Exists(toLocalFn) Then System.IO.File.Delete(toLocalFn)
            options.MakeWritable = MakeWritableType.MakeAllFilesWritable
            options.Recursive = False
            options.SetFileTime = SetFileTimeType.Modification
            options.Merge = MergeType.OverwriteWorkingCopy
            options.PerformDeletions = PerformDeletionsType.DoNotRemoveWorkingCopy
            Dim toLocation As String = System.IO.Path.GetDirectoryName(toLocalFn)
            toLocalFn = System.IO.Path.GetFileName(toLocalFn)
            If System.IO.File.Exists(toLocation & "\" & vssItem.Name) Then System.IO.File.Delete(toLocation & "\" & vssItem.Name)

            Dim scFN As String = me.SCFileSpec
            Dim getVersion As Integer = CInt(me.ActiveVersion)
            Try
                vssItem = Nothing
                GetOperations.ProcessCommandGetVersionToLocationOutsideWorkingFolder(scFN, getVersion, options, toLocation)
                Me.SelectItem(scFN) ' the need to select after the get is a surprize -- without this the vcf object is corrupt
                System.IO.File.Move(toLocation & "\" & vssItem.Name, toLocation & "\" & toLocalFn)
            Catch gv As VaultClientOperationsLib.GetLatestVersionFailedException
                Debug.WriteLine(gv.Message)
                Throw New ApplicationException(String.Format("GetLatestVersionFailedException attempting to Get {0} v{1} to {2}", _
                                                             scFN, getVersion, toLocation))
            Catch ex As Exception
                Debug.WriteLine(ex.Message)
                Throw New ApplicationException(String.Format("GetTempCopy caused {3} attempting to Get {0} v{1} to {2}", _
                                                             scFN, getVersion, toLocation, ex.ToString))

            End Try
            Return True
End Function

Public Shared Function HashForStream(ByVal inStream As System.IO.Stream) As String
        Dim hashedBytes As [Byte]() = CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(inStream)
        Dim hashedText As String = BitConverter.ToString(hashedBytes)
        Return hashedText
End Function