YouTube | Facebook | X(Twitter) | RSS

ArcGIS Server にアクセスする方法

2016/9/1 (木)

バージョン10 までの操作方法

Dim strUser As String = "ユーザ名"
Dim strPassword As String = "パスワード"
Dim strServer As String = "サーバ名"
 
 
Dim pID As ESRI.ArcGIS.ADF.Identity
pID = New ESRI.ArcGIS.ADF.Identity(strUser, strPassword, strServer)
 
Dim pAgsConn As ESRI.ArcGIS.ADF.Connection.AGS.AGSServerConnection
pAgsConn = New ESRI.ArcGIS.ADF.Connection.AGS.AGSServerConnection(strServer, pID)
pAgsConn.Connect()
 
Dim pSOM As ESRI.ArcGIS.Server.IServerObjectManager
pSOM = pAgsConn.ServerObjectManager
 
Dim pSC As ESRI.ArcGIS.Server.IServerContext
pSC = pSOM.CreateServerContext("", "")
 
Dim pPropSet As ESRI.ArcGIS.esriSystem.IPropertySet
pPropSet = pSC.CreateObject("esriSystem.PropertySet")
pPropSet.SetProperty("SERVER", "pc-aaa")
pPropSet.SetProperty("INSTANCE", "5151")
pPropSet.SetProperty("USER", "test")
pPropSet.SetProperty("PASSWORD", "test001")
pPropSet.SetProperty("VERSION", "sde.DEFAULT")
 
'ArcSDEに接続
Dim pSdeWsFactory As ESRI.ArcGIS.Geodatabase.IWorkspaceFactory
pSdeWsFactory = pSC.CreateObject("esriDataSourcesGDB.SdeWorkspaceFactory")
 
Dim pFeatWs As ESRI.ArcGIS.Geodatabase.IFeatureWorkspace
pFeatWs = pSdeWsFactory.Open(pPropSet, 0)
 
 
 
'編集開始
Dim pWsEdit As ESRI.ArcGIS.Geodatabase.IWorkspaceEdit
pWsEdit = pFeatWs
pWsEdit.StartEditing(False)
pWsEdit.StartEditOperation()
 
 
 
 
Dim pFClass As IFeatureClass = pFeatWs.OpenFeatureClass("TEST.輸送管")
 
Dim pFeature As IFeature = pFClass.GetFeature(7)
pFeature.Value(1) = "#AAAAA!"
pFeature.Store()
 
 
'編集終了
pWsEdit.StopEditOperation()
pWsEdit.StopEditing(True)
 
pSC.ReleaseContext()
  • この記事を書いた人

羽田 康祐

伊達と酔狂のGISエンジニア。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、PADIダイブマスター、四アマ。WordPress は 2.1 からのユーザーで歴だけは長い。 代表著書『"地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、元青山学院大学非常勤講師を兼務。日本地図学会第31期常任委員。発言は個人の見解です。

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