YouTube | Facebook | Twitter  Feed

GIS サーバのプロパティを取得・設定

2016/9/1 (木)

ArcGIS Server 10 以前を対象

Public Sub GetGISServerConnection()
    Dim pGISServerConnection As IGISServerConnection
    Set pGISServerConnection = New GISServerConnection
    pGISServerConnection.Connect "zeke"
     
    Dim pServerObjectAdmin As IServerObjectAdmin
    Set pServerObjectAdmin = pGISServerConnection.ServerObjectAdmin
     
    ' create the new configuration
    Dim pConfiguration As IServerObjectConfiguration2
    Set pConfiguration = pServerObjectAdmin.GetConfiguration("test", "MapServer")   '既存のサービスを取得する場合
'    Set pConfiguration = pServerObjectAdmin.CreateConfiguration                     '接続情報を新規に作成する場合
     
'    pConfiguration.Name = "California"
'    pConfiguration.TypeName = "MapServer"
     
    Dim pPropertySet As IPropertySet
    Set pPropertySet = pConfiguration.Properties
'    Set pPropertySet = pConfiguration.RecycleProperties
'    Set pPropertySet = pConfiguration.Info
'    Set pPropertySet = pConfiguration.ExtensionInfo
'    Set pPropertySet = pConfiguration.ExtensionProperties("MapServer")
     
    'PropertySetを表示
    Dim varNames As Variant, varValues As Variant
    pPropertySet.GetAllProperties varNames, varValues
    Dim i As Long
    For i = 0 To pPropertySet.Count - 1
        Debug.Print varNames(i), varValues(i)
    Next i
 
'    'プロパティを新規に設定する場合
'    pPropertySet.SetProperty "LocatorWorkspacePath", "\\melange\Geocoding\California"
'    pPropertySet.SetProperty "Locator", "California"
'    pPropertySet.SetProperty "SuggestedBatchSize", "500"
'
'    pConfiguration.IsPooled = True
'    pConfiguration.MinInstances = 1
'    pConfiguration.MaxInstances = 1
'    pConfiguration.WaitTimeout = 10
'    pConfiguration.UsageTimeout = 120
'
    '作成した設定を追加
'    pServerObjectAdmin.AddConfiguration pConfiguration
 
End Sub
'参考:IServerObjectConfiguration2::Properties Property > Example

関連記事

  • この記事を書いた人

羽田 康祐

Esri認定インストラクター、GIS上級技術者、測量士補、潜水士。GISy / GISc とその関連分野である地理学・地図学について日々の出来事で学んだ記憶を記録するためにブログを書いています。行動原理は伊達と酔狂。好きな地形は圏谷。好きな地図投影法はパースクインカンシャル図法。呉市生まれ広島市出身。GIS を使った自己紹介はこちら

-プログラミング, ArcGIS
-,

© 2020 WINGFIELD since1981