UtilSOE_VBNet

UtilSOE_VBNet.cs

UtilSOE_VBNet.vb

Imports Microsoft.VisualBasic
Imports System.EnterpriseServices
Imports System.Runtime.InteropServices
Imports ESRI.ArcGIS.Geometry
Imports ESRI.ArcGIS.Server
Imports SimpleSOEInterfaces_VBNet

Namespace SimpleSOE_VBNet

    <AutomationProxy(True), ClassInterface(ClassInterfaceType.None), GuidAttribute("AB50B9D9-E7DF-4282-B9C1-140CE37AE4A9")> _
    Public Class UtilSOE_VBNet
        Inherits ServicedComponent
        Implements IUtilSOE_VBNet, IServerObjectExtension

        Private m_SOH As IServerObjectHelper

        Public Function ReturnCircle(ByRef inpoint As ESRI.ArcGIS.Geometry.IPoint, ByRef radius As Double) As ESRI.ArcGIS.Geometry.IGeometry Implements SimpleSOEInterfaces_VBNet.IUtilSOE_VBNet.ReturnCircle
            Dim topop As ESRI.ArcGIS.Geometry.ITopologicalOperator = CType(inpoint, ESRI.ArcGIS.Geometry.ITopologicalOperator)
            Dim circle As ESRI.ArcGIS.Geometry.IGeometry = topop.Buffer(radius)
            Return circle
        End Function

#Region "IServerObjectExtension"

        Public Sub Init(ByVal pSOH As IServerObjectHelper) Implements IServerObjectExtension.Init
            m_SOH = pSOH
        End Sub

        Public Sub Shutdown() Implements IServerObjectExtension.Shutdown
            m_SOH = Nothing
        End Sub

#End Region


    End Class
End Namespace