本文整理匯總了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()