AoInitailize 权限

转载 2007年09月25日 15:56:00
[Visual Basic 6.0]
Option Explicit
Private m_pAoInitialize As IAoInitialize

Private Sub Form_Load()
  'This sample is designed to perform license initialization on a system
  'that may have access to a floating license. It requires GDB editing
  'capability and A spatial Analyst extension
  
  'This sample will check the required licenses and keep them checked out
  Dim licenseStatus As esriLicenseStatus
  'First try copy protection EngineGeoDB
  licenseStatus = CheckOutLicenses(esriLicenseProductCodeEngineGeoDB)
  If (licenseStatus = esriLicenseNotLicensed) Then
    'Next try Desktop ArcEngine
    licenseStatus = CheckOutLicenses(esriLicenseProductCodeArcEditor)
    'For Desktop licenses we also need to consider them being unavailable
    If ((licenseStatus = esriLicenseNotLicensed) Or (licenseStatus = esriLicenseUnavailable)) Then
      'Last try Desktop ArcInfo
      licenseStatus = CheckOutLicenses(esriLicenseProductCodeArcInfo)
    End If
  End If
  
  'Take a look at the licenseStatus to see if it failed
  'Not licensed
  If (licenseStatus = esriLicenseNotLicensed) Then
    MsgBox "You are not licensed to run this product"
    Unload Form1
  'The licenses needed are currently in use
  ElseIf (licenseStatus = esriLicenseUnavailable) Then
    MsgBox "There are insufient licenses to run"
    Unload Form1
  'The licenses unexpected license failure
  ElseIf (licenseStatus = esriLicenseFailure) Then
    MsgBox "Unexpected license failure please contact you administrator'"
    Unload Form1
  'Already initialized (Initialization can only occur once)
  ElseIf (licenseStatus = esriLicenseAlreadyInitialized) Then
    MsgBox "You license has already been initialized please check you implementation"
    Unload Form1
  'Everything was checkedout successfully
  ElseIf (licenseStatus = esriLicenseCheckedOut) Then
    MsgBox "Licenses checked out successfully"
  End If
  
End Sub

Private Sub Form_Unload(Cancel As Integer)

  'Checkin the extension
  m_pAoInitialize.CheckInExtension (esriLicenseExtensionCodeSpatialAnalyst)
  'Shutdown
  m_pAoInitialize.Shutdown

End Sub

Private Function CheckOutLicenses(productCode As esriLicenseProductCode) As esriLicenseStatus
  
  Dim licenseStatus As esriLicenseStatus
  Set m_pAoInitialize = New AoInitialize
  CheckOutLicenses = esriLicenseUnavailable
    
  'Check the productCode
  licenseStatus = m_pAoInitialize.IsProductCodeAvailable(productCode)
  If (licenseStatus = esriLicenseAvailable) Then
    'Check the extensionCode
    licenseStatus = m_pAoInitialize.IsExtensionCodeAvailable(productCode, esriLicenseExtensionCodeSpatialAnalyst)
    If (licenseStatus = esriLicenseAvailable) Then
      'Initialize the license
      licenseStatus = m_pAoInitialize.Initialize(productCode)
      If (licenseStatus = esriLicenseCheckedOut) Then
          'Checkout the extension
        licenseStatus = m_pAoInitialize.CheckOutExtension(esriLicenseExtensionCodeSpatialAnalyst)
      End If
    End If
  End If
  
  CheckOutLicenses = licenseStatus
  
End Function
 

共享权限和NTFS权限有什么区别

NTFS是 WindowsNT 环境的文件系统。新技术文件系统是Windows NT家族(如,Windows 2000、Windows XP、Windows Vista、Windows 7和 wind...
  • forererer
  • forererer
  • 2016年04月27日 13:46
  • 3432

“与”和“或”运算实现权限管理

游戏中,常常有这样的提示“需要完成某主线任务才开放此模块”,这样的功能如何实现。 比如,玩家需要完成代号为501220的主线任务时,才会开启战斗模块,需要完成代号为501221的主线任务,才开启贸易模...
  • a23456789zxcvbnm
  • a23456789zxcvbnm
  • 2014年01月02日 16:03
  • 1333

github:给其他人开启自己版本库的权限

a
  • u011796274
  • u011796274
  • 2014年08月19日 17:48
  • 8984

Android的所有权限

原文链接:在这里Android.permission.ACCESS_CHECKIN_PROPERTIES允许读写访问"properties"表在checkin数据库中,改值可以修改上传( Allows...
  • qq_16559905
  • qq_16559905
  • 2016年10月24日 20:32
  • 1386

iOS 10-需要添加的权限配置

iOS 10以后,苹果增强了对用户隐私的保护,访问照相机、相册、麦克风、定位、通讯录等,都需要在info.plist 文件中添加权限,而且少一个都不行。根据需要添加,项目中使用了什么,就添加对应的权限...
  • Arnly
  • Arnly
  • 2016年10月23日 21:20
  • 8051

数据权限的设计与实现

最近手上的web项目需要做权限控制,努力了解下,做如下笔记 1.权限分为菜单权限,操作权限,数据权限, 菜单权限即不同用户能够看到的菜单按钮不同,如系统管理员能看到系统管理,用户管理等菜单,而普通...
  • hchaoyangming
  • hchaoyangming
  • 2015年12月08日 19:25
  • 1602

使用shiro进行权限管理

首先什么是shiro? shiro是apache下面的一个开源项目,
  • yangnianbing110
  • yangnianbing110
  • 2014年03月16日 22:18
  • 55869

用户·角色·权限·表

一.引言        因为做过的一些系统的权限管理的功能虽然在逐步完善,但总有些不尽人意的地方,总想抽个时间来更好的思考一下权限系统的设计。        权限系统一直以来是我们应用系统不可缺...
  • angel20082008
  • angel20082008
  • 2014年06月14日 15:25
  • 48638

android中的各类权限

作为一只android菜鸟,在学习过程中,越是学到后面,就涉及到权限问题,但总是记不住各类权限,有的是忘了怎么写,有的是弄晕了,所以这里就把我遇到的权限慢慢总结归纳吧,方便查阅。(这注定是一篇不断更新...
  • sinat_33587403
  • sinat_33587403
  • 2016年05月23日 23:37
  • 663

MediaWiki的权限管理

一.分配权限给用户,手动修改用户组 自1.5版本以后,用户可以通过页面Special:Userrights管理分配用户权限.即通过审请加入组的方式来赋给用户权限.如果要让组具有比sysop更高的权限...
  • wzq9706
  • wzq9706
  • 2013年02月07日 16:18
  • 1608
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:AoInitailize 权限
举报原因:
原因补充:

(最多只允许输入30个字)