本文整理汇总了VB.NET中System.IO.Packaging.RightsManagementInformation.CryptoProvider属性的典型用法代码示例。如果您正苦于以下问题：VB.NET RightsManagementInformation.CryptoProvider属性的具体用法？VB.NET RightsManagementInformation.CryptoProvider怎么用？VB.NET RightsManagementInformation.CryptoProvider使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.IO.Packaging.RightsManagementInformation的用法示例。
在下文中一共展示了RightsManagementInformation.CryptoProvider属性的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: GetPackage
ShowStatus(" Binding UseLicense with the SecureEnvironment" & vbLf & " to obtain the CryptoProvider.")
rmi.CryptoProvider = useLicense.Bind(_secureEnv)
ShowStatus(" Obtaining BoundGrants.")
grants = rmi.CryptoProvider.BoundGrants
' You can access the Package via GetPackage() at this point.
rightsBlock.Text = "GRANTS LIST" & vbLf & "-----------" & vbLf
For Each grant As ContentGrant In grants
rightsBlock.Text &= "USER :" & grant.User.Name & " [" & grant.User.AuthenticationType & "]" & vbLf
rightsBlock.Text &= "RIGHT :" & grant.Right.ToString()+vbLf
rightsBlock.Text &= " From: " & grant.ValidFrom & vbLf
rightsBlock.Text &= " Until: " & grant.ValidUntil & vbLf
Next grant示例2: ShowStatus
If rmi.CryptoProvider.CanDecrypt = True Then
ShowStatus(" Decryption granted.")
Else
ShowStatus(" CANNOT DECRYPT!")
End If
ShowStatus(" Getting the Package from" & vbLf & " the EncryptedPackage.")
_xpsPackage = ePackage.GetPackage()
If _xpsPackage Is Nothing Then
MessageBox.Show("Unable to get Package.")
Return False
End If
' Set a PackageStore Uri reference for the encrypted stream.
' ("sdk://packLocation" is a pseudo URI used by
' PackUriHelper.Create to define the parserContext.BaseURI
' that XamlReader uses to access the encrypted data stream.)
Dim packageUri As New Uri("sdk://packLocation", UriKind.Absolute)
' Add the URI package
PackageStore.AddPackage(packageUri, _xpsPackage)
' Determine the starting part for the package.
Dim startingPart As PackagePart = GetPackageStartingPart(_xpsPackage)
' Set the DocViewer.Document property.
ShowStatus(" Opening in DocumentViewer.")
Dim parserContext As New ParserContext()
parserContext.BaseUri = PackUriHelper.Create(packageUri, startingPart.Uri)
parserContext.XamlTypeMapper = XamlTypeMapper.DefaultMapper
DocViewerProperty.Document = TryCast(XamlReader.Load(startingPart.GetStream(), parserContext), IDocumentPaginatorSource)
' Enable document menu controls.
menuFileClose.IsEnabled = True
menuFilePrint.IsEnabled = True
menuViewIncreaseZoom.IsEnabled = True
menuViewDecreaseZoom.IsEnabled = True
' Give the DocumentViewer focus.
DocViewerProperty.Focus()