Кастинг от х509 до х5092

Question

Я не знаю, где он думает, что я кастую.

Вот моя собственность

''' <summary>
        ''' Gets the GetX509Certificate from a file.
        ''' </summary>
        Private ReadOnly Property GetX509Certificate() As X509Certificate2
            Get
                If m_X509Certificate Is Nothing Then
                    'Should be able to use any of the "Create" methods in the namespace.
                    Dim path As String = "C:\Development\Workspaces\Productivity Framework\V07\Akcelerant.Connector.RouteOne.Web\Test.cer"
                    m_X509Certificate = X509Certificate2.CreateFromCertFile(path)
                End If
                If m_X509Certificate Is Nothing Then
                    Throw New ApplicationException("Certificate not found")
                End If
                Return m_X509Certificate
            End Get
        End Property

и вот где написано, что я делаю нелегальный актерский состав:

Dim cert As System.Security.Cryptography.X509Certificates.X509Certificate2 = Me.GetX509Certificate

Почему это говорит? Все определено в правильном типе, но он все еще думает, что я кастую.

Answer 1

CreateFromCertFile создает старый тип объекта.Используйте этот метод, но затем используйте конструктор X509Certificate2 для приведения.

Answer 2

Код vb.net:

dim certificatePath as String = "c:\cert.cer"

Dim cert As X509Certificate2 = New X509Certificate2(X509Certificate.CreateFromCertFile(certificatePath))