SOAP_ProxyMethods

S A M P L E S

VB.NET code examples for Proxy Methods

This page contains VB.NET code examples for ArcGIS Server SOAP proxy class methods and the value objects used for input and output types. The samples apply to both desktop and Web applications. By default, the name for the SOAP proxy class is the name of the service used to generate it plus the service type. For example, if a SOAP proxy class is generated dynamically using a map service named "NorthAmerica", the proxy class name will be "NorthAmerica_MapServer".For the purposes of the example code, the proxy class names will be ServiceName_<service type>.

Methods

Catalog

GetFolders

Dim catalog As Catalog = New Catalog()

catalog.Url = "http://localhost/arcgis/services"

Dim folders() As String = catalog.GetFolders()

Dim index As Integer

For index = 0 To folders.Length- 1

Dim foldername As String = folders(index)

GetMessageFormats

Dim catalog As Catalog = New Catalog()

catalog.Url = "http://localhost/arcgis/services"

Dim messageformat As esriServiceCatalogMessageFormat = catalog.GetMessageFormats()

GetMessageVersion

Dim catalog As Catalog = New Catalog()

catalog.Url = "http://localhost/arcgis/services"

Dim arcgisversion As esriArcGISVersion = catalog.GetMessageVersion()

GetServiceDescriptions

Dim catalog As Catalog = New Catalog()

catalog.Url = "http://localhost/arcgis/services"

Dim servicedescriptions() As ServiceDescription = catalog.GetServiceDescriptions()

Dim servicedesc As ServiceDescription

For Each servicedesc In servicedescriptions

Dim name As String = servicedesc.Name

Dim type As String = servicedesc.Type

Dim parenttype As String = servicedesc.ParentType

Dim capabilities As String = servicedesc.Capabilities

Dim url As String = servicedesc.Url

GetServiceDescriptionsEx

Dim catalog As Catalog = New Catalog()

catalog.Url = "http://localhost/arcgis/services"

Dim servicedescriptions() As ServiceDescription = catalog.GetServiceDescriptionsEx("SecureDirectory")

Dim servicedesc As ServiceDescription

For Each servicedesc In servicedescriptions

Dim name As String = servicedesc.Name

Dim type As String = servicedesc.Type

Dim parenttype As String = servicedesc.ParentType

Dim capabilities As String = servicedesc.Capabilities

Dim url As String = servicedesc.Url

GetTokenServiceURL

Dim url As String = "http://localhost/arcgis/services"

Dim catalog As Catalog = New Catalog(url)

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim tokenurl As String = catalog.GetTokenServiceURL()

Dim tokenrequesturl As String = tokenurl + "?request=getToken&username=myuser&password=secret"

Dim request As System.Net.WebRequest = System.Net.WebRequest.Create(tokenrequesturl)

Dim response As System.Net.WebResponse = request.GetResponse()

Dim responseStream As System.IO.Stream = response.GetResponseStream()

Dim readStream As System.IO.StreamReader = New System.IO.StreamReader(responseStream)

Dim myToken As String = readStream.ReadToEnd()

mapservice.Url = mapservice.Url + "token=" + myToken

Dim mapname As String = mapservice.GetDefaultMapName()

RequiresTokens

Dim catalog As Catalog = New Catalog()

catalog.Url = "http://localhost/arcgis/services"

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

If catalog.RequiresTokens() Then

Dim tokenurl As String = catalog.GetTokenServiceURL()

Dim tokenrequesturl As String = tokenurl + "?request=getToken&username=myuser&password=secret"

Dim request As System.Net.WebRequest = System.Net.WebRequest.Create(tokenrequesturl)

Dim response As System.Net.WebResponse = request.GetResponse()

Dim responseStream As System.IO.Stream = response.GetResponseStream()

Dim readStream As System.IO.StreamReader = New System.IO.StreamReader(responseStream)

Dim myToken As String = readStream.ReadToEnd()

mapservice.Url = mapservice.Url + "?token=" + myToken

End If

Dim mapname As String = mapservice.GetDefaultMapName()

MapServer

ComputeDistance

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim pnt0 As wsmap.PointN = New PointN()

pnt0.X = -120.0

pnt0.Y = 30.0

Dim pnt1 As wsmap.PointN = New PointN()

pnt1.X = -110.0

pnt1.Y = 35.0

Dim distance As Double = mapservice.ComputeDistance(mapname, pnt0, pnt1, esriUnits.esriMiles)

ComputeScale

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapservice.GetDefaultMapName())

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim imgdisp As ImageDisplay = New ImageDisplay()

imgdisp.ImageHeight = 500 'pixels

imgdisp.ImageWidth = 500 'pixels

imgdisp.ImageDPI = 96

Dim scale As Double = mapservice.ComputeScale(mapdesc, imgdisp)

ExportMapImage

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapservice.GetDefaultMapName())

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim imgtype As ImageType = New ImageType()

imgtype.ImageFormat = esriImageFormat.esriImagePNG

imgtype.ImageReturnType = esriImageReturnType.esriImageReturnURL

Dim imgdisp As ImageDisplay = New ImageDisplay()

imgdisp.ImageHeight = 500 'pixels

imgdisp.ImageWidth = 500 'pixels

imgdisp.ImageDPI = 96

Dim imgdesc As ImageDescription = New ImageDescription()

imgdesc.ImageDisplay = imgdisp

imgdesc.ImageType = imgtype

Dim mapimg As MapImage = mapservice.ExportMapImage(mapdesc, imgdesc)

ExportScaleBar

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

' Define scale bar properties

Dim scalebar As AlternatingScaleBar = New AlternatingScaleBar()

' Define Unit label

scalebar.Units = esriUnits.esriMiles

scalebar.UnitsSpecified = True

Dim unittextsymbol As TextSymbol = New TextSymbol()

unittextsymbol.Size = 20

unittextsymbol.FontName = "Arial"

scalebar.UnitLabelSymbol = unittextsymbol

scalebar.UnitLabelPosition = esriScaleBarPos.esriScaleBarAfterBar

scalebar.UnitLabelPositionSpecified = True

scalebar.UnitLabelGap = 10

scalebar.UnitLabelGapSpecified = True

' Define bar display

scalebar.BarHeight = 8

scalebar.BarHeightSpecified = True

scalebar.Divisions = 4

scalebar.DivisionsSpecified = True

scalebar.DivisionMarkHeight = 18

scalebar.DivisionMarkHeightSpecified = True

scalebar.Subdivisions = 10

scalebar.SubdivisionsSpecified = True

scalebar.MarkPosition = esriVertPosEnum.esriBottom

scalebar.MarkPositionSpecified = True

Dim fillsymbol As SimpleFillSymbol = New SimpleFillSymbol()

Dim fillcolor As wsmap.RgbColor = New wsmap.RgbColor()

fillcolor.Red = 255

fillcolor.Green = 0

fillcolor.Blue = 0

fillsymbol.Color = fillcolor

scalebar.FillSymbol1 = fillsymbol

' Define division labels

Dim textsymbol As TextSymbol = New TextSymbol()

textsymbol.Size = 20

textsymbol.FontName = "Arial"

textsymbol.TextDirection = esriTextDirection.esriTDAngle

textsymbol.Angle = 45

scalebar.LabelSymbol = textsymbol

scalebar.LabelPosition = esriVertPosEnum.esriAbove

scalebar.LabelPositionSpecified = True

scalebar.LabelFrequency = esriScaleBarFrequency.esriScaleBarDivisions

scalebar.LabelFrequencySpecified = True

' Define map properties (MapDescription and ImageDisplay)

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapservice.GetDefaultMapName())

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim imgdispmap As ImageDisplay = New ImageDisplay()

imgdispmap.ImageWidth = 500

imgdispmap.ImageHeight = 500

imgdispmap.ImageDPI = 96

' Define scale bar image properties (ImageDescription)

Dim imgtype As ImageType = New ImageType()

imgtype.ImageFormat = esriImageFormat.esriImagePNG

imgtype.ImageReturnType = esriImageReturnType.esriImageReturnURL

Dim imgdispscalebar As ImageDisplay = New ImageDisplay()

imgdispscalebar.ImageHeight = 75 'pixels

imgdispscalebar.ImageWidth = 400 'pixels

Dim imgdescscalebar As ImageDescription = New ImageDescription()

imgdescscalebar.ImageDisplay = imgdispscalebar

imgdescscalebar.ImageType = imgtype

' Define background color

Dim backcolor As wsmap.RgbColor = New wsmap.RgbColor()

backcolor.Red = 255

backcolor.Green = 255

backcolor.Blue = 255

' Create scale bar image

Dim imgresult As ImageResult = mapservice.ExportScaleBar(scalebar, mapdesc, imgdispmap, backcolor, imgdescscalebar)

Find

Dim mapservice As MapService_MapServer = New MapService_MapServer(

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapservice.GetDefaultMapName())

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim imgdisp As ImageDisplay = New ImageDisplay()

imgdisp.ImageHeight = 500 'pixels

imgdisp.ImageWidth = 500 'pixels

imgdisp.ImageDPI = 96

Dim searchstring As String = "Washington"

Dim contains_searchstring As Boolean = True

Dim fieldname As String = String.Empty ' all fields

Dim findoption As esriFindOption = esriFindOption.esriFindAllLayers

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

Dim layerids(layerdescriptions.Length-1) As Integer

Dim i As Integer = 0

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescriptions

layerids.SetValue(layerdesc.LayerID, i)

i = i + 1

Dim findresults As MapServerFindResult() = mapservice.Find(mapdesc, imgdisp, searchstring, contains_searchstring, fieldname, findoption, layerids)

FromMapPoints

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapservice.GetDefaultMapName())

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim imgdisp As ImageDisplay = New ImageDisplay()

imgdisp.ImageHeight = 500 'pixels

imgdisp.ImageWidth = 500 'pixels

imgdisp.ImageDPI = 96

Dim multipoint As MultipointN = New MultipointN()

Dim points() As PointN = New PointN(1) {}

Dim pnt0 As wsmap.PointN = New PointN()

pnt0.X = -120.0

pnt0.Y = 35.0

points(0) = pnt0

multipoint.PointArray = points

Dim screeny() As Integer = Nothing

Dim screenx() As Integer = mapservice.FromMapPoints(mapdesc, imgdisp, multipoint, screeny)

GetCacheName

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescriptions

If mapservice.HasLayerCache(mapname, layerdesc.LayerID) Then

Dim layercachename As String = mapservice.GetCacheName(mapname, layerdesc.LayerID)

End If

GetCacheControlInfo

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapFusedCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim cachecontrolinfo As CacheControlInfo = mapservice.GetCacheControlInfo(mapname)

GetCacheDescriptionInfo

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim cachedescinfo As CacheDescriptionInfo = mapservice.GetCacheDescriptionInfo(mapname)

Dim cachecontrolinfo As CacheControlInfo = cachedescinfo.CacheControlInfo

Dim tilecacheinfo As TileCacheInfo = cachedescinfo.TileCacheInfo

Dim tileimginfo As TileImageInfo = cachedescinfo.TileImageInfo

Dim cachetype As esriCachedMapServiceType = cachedescinfo.ServiceType

GetDefaultMapName

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapLayerCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

GetDocumentInfo

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapLayerCache/MapServer"

Dim documentproperties As PropertySet = mapservice.GetDocumentInfo()

Dim propertyarray() As PropertySetProperty = documentproperties.PropertyArray

Dim documentprop As PropertySetProperty

Dim key As String

Dim value As String

For Each documentprop In propertyarray

key = documentprop.Key.ToString()

value = documentprop.Value.ToString()

GetLayerTile

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapLayerCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

' Pixel height and width of map display on the client. In this case, a Windows Form

' PictureBox control.

Dim picturewidth As Integer = pictureBox1.Width

Dim pictureheight As Integer = pictureBox1.Height

Dim mapextent As EnvelopeN = CType(mapdesc.MapArea.Extent, EnvelopeN)

' Use map scale resolution (map units per pixel) to determine tile level

Dim mapresolution As Double = Math.Abs(mapextent.XMax - mapextent.XMin) / picturewidth

Dim imgbitmap As System.Drawing.Bitmap = New System.Drawing.Bitmap(picturewidth, pictureheight)

Dim imggraphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(imgbitmap)

imggraphics.FillRectangle(New System.Drawing.SolidBrush(System.Drawing.Color.LightGray), 0, 0, _

picturewidth, pictureheight)

Dim layerdesc_maxindex As Integer = layerdescriptions.Length - 1

' Iterate through layers bottom up. Polygons on bottom, then lines, then points.

Dim d As Integer

For d = layerdesc_maxindex To 0 Step d - 1

Dim layerdesc As LayerDescription = layerdescriptions(d)

If mapservice.HasLayerCache(mapname, layerdesc.LayerID) Then

Dim tci As TileCacheInfo = mapservice.GetTileCacheInfo(mapservice.GetDefaultMapName())

Dim tcis() As LODInfo = tci.LODInfos

' Map units per pixel

Dim tileresolution As Double = 0

' Scale level

Dim tilelevel As Integer = 0

Dim ldi As LODInfo

For Each ldi In tcis

Dim ldi_resolution As Double = ldi.Resolution

tileresolution = ldi_resolution

tilelevel = ldi.LevelID

If mapresolution >= ldi_resolution Then

Exit For

End If

' Measured from the origin

Dim minx As Double = mapextent.XMin

Dim miny As Double = mapextent.YMin

Dim maxx As Double = mapextent.XMax

Dim maxy As Double = mapextent.YMax

' Origin of the cache (upper left corner)

Dim xorigin As Double = (CType(tci.TileOrigin, PointN)).X

Dim yorigin As Double = (CType(tci.TileOrigin, PointN)).Y

' Get minimum tile column

Dim minxtile As Double = (minx - xorigin) / (tci.TileCols * tileresolution)

' Get minimum tile row

' From the origin, maxy is minimum y

Dim minytile As Double = (yorigin - maxy) / (tci.TileRows * tileresolution)

' Get maximum tile column

Dim maxxtile As Double = (maxx - xorigin) / (tci.TileCols * tileresolution)

' Get maximum tile row

' From the origin, miny is maximum y

Dim maxytile As Double = (yorigin - miny) / (tci.TileRows * tileresolution)

' Return integer value for min and max, row and column

Dim mintilecolumn As Integer = CType(Math.Floor(minxtile), Integer)

Dim mintilerow As Integer = CType(Math.Floor(minytile), Integer)

Dim maxtilecolumn As Integer = CType(Math.Floor(maxxtile), Integer)

Dim maxtilerow As Integer = CType(Math.Floor(maxytile), Integer)

' Origin of the min tile

Dim xmintileorigin As Double = xorigin + (mintilecolumn * (tci.TileCols * tileresolution))

Dim ymintileorigin As Double = yorigin - (mintilerow * (tci.TileRows * tileresolution))

' Since the origin of the extent and origin of the min tile are different

' get the difference and use to place consolidated image graphic in correct location

Dim xadjust As Double = Math.Abs(minx - xmintileorigin)

Dim yadjust As Double = Math.Abs(maxy - ymintileorigin)

Dim xpixadjust As Integer = CType((xadjust / tileresolution), Integer)

Dim ypixadjust As Integer = CType((yadjust / tileresolution), Integer)

Dim tii As TileImageInfo = mapservice.GetTileImageInfo(mapservice.GetDefaultMapName())

Dim rowindex As Integer = 0

' for each row in the map extent

Dim row As Integer

For row = mintilerow To maxtilerow Step row + 1

Dim colindex As Integer = 0

' for each column in the row, in the map extent

Dim col As Integer

For col = mintilecolumn To maxtilecolumn Step col + 1

Dim myByteArray() As Byte = Nothing

Try

' Return the byte array of the tile image

myByteArray = mapservice.GetLayerTile(mapservice.GetDefaultMapName(), _ layerdesc.LayerID, tilelevel, row, col, tii.CacheTileFormat)

Catch

' Tile may not be available because no data was present when creating the cache

End Try

' If Tile was found, add it to the consolidated image graphic

If Not myByteArray Is Nothing Then

Dim NewImage As System.Drawing.Image

Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(myByteArray, 0, _ myByteArray.Length)

Try

ms.Write(myByteArray, 0, myByteArray.Length)

NewImage = Image.FromStream(ms, True)

imggraphics.DrawImage(NewImage, (tci.TileCols * colindex) - xpixadjust, _ (tci.TileRows * rowindex) - ypixadjust, tci.TileCols, tci.TileRows)

Finally

ms.Dispose()

End Try

End If

colindex = colindex + 1

rowindex = rowindex + 1

End If

' Post-processing, if necessary... otherwise just use imgbitmap with PictureBox

Dim picturebitmap As System.Drawing.Bitmap = New System.Drawing.Bitmap(picturewidth, pictureheight)

Dim graphicsimage As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(picturebitmap)

graphicsimage.FillRectangle(New System.Drawing.SolidBrush(System.Drawing.Color.LightGray), _

0, 0, picturewidth, pictureheight)

graphicsimage.DrawImage(imgbitmap, 0, 0, picturewidth, pictureheight)

pictureBox1.Image = picturebitmap

GetLegendInfo

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim imgtype As ImageType = New ImageType()

imgtype.ImageFormat = esriImageFormat.esriImagePNG

imgtype.ImageReturnType = esriImageReturnType.esriImageReturnURL

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

Dim layerids(layerdescriptions.Length-1) As Integer

Dim i As Integer = 0

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescriptions

layerids.SetValue(layerdesc.LayerID, i)

i = i + 1

Dim legendpatch As MapServerLegendPatch = New MapServerLegendPatch()

legendpatch.ImageDPI = 96

legendpatch.Height = 24

legendpatch.Width = 24

Dim legendinfo As MapServerLegendInfo() = mapservice.GetLegendInfo(mapname, layerids, legendpatch, imgtype)

GetMapCount

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapcount As Integer = mapservice.GetMapCount()

GetMapName

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapcount As Integer = mapservice.GetMapCount()

Dim i As Integer

For i = 0 To mapcount - 1 Step i + 1

Dim mapname As String = mapservice.GetMapName(i)

GetMapTile

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapFusedCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

' Pixel height and width of map display on the client. In this case, a Windows Form

' PictureBox control.

Dim picturewidth As Integer = pictureBox1.Width

Dim pictureheight As Integer = pictureBox1.Height

Dim mapextent As EnvelopeN = CType(mapdesc.MapArea.Extent, EnvelopeN)

' Use map scale resolution (map units per pixel) to determine tile level

Dim mapresolution As Double = Math.Abs(mapextent.XMax - mapextent.XMin) / picturewidth

Dim imgbitmap As System.Drawing.Bitmap = New System.Drawing.Bitmap(picturewidth, pictureheight)

Dim imggraphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(imgbitmap)

imggraphics.FillRectangle(New System.Drawing.SolidBrush(System.Drawing.Color.LightGray), _

0, 0, picturewidth, pictureheight)

If mapservice.HasSingleFusedMapCache(mapname) Then

Dim tci As TileCacheInfo = mapservice.GetTileCacheInfo(mapname)

Dim tcis() As LODInfo = tci.LODInfos

' Map units per pixel

Dim tileresolution As Double = 0

' Scale level

Dim tilelevel As Integer = 0

Dim ldi As LODInfo

For Each ldi In tcis

Dim ldi_resolution As Double = ldi.Resolution

tileresolution = ldi_resolution

tilelevel = ldi.LevelID

If mapresolution >= ldi_resolution Then

Exit For

End If

' Measured from the origin

Dim minx As Double = mapextent.XMin

Dim miny As Double = mapextent.YMin

Dim maxx As Double = mapextent.XMax

Dim maxy As Double = mapextent.YMax

' Origin of the cache (upper left corner)

Dim xorigin As Double = (CType(tci.TileOrigin, PointN)).X

Dim yorigin As Double = (CType(tci.TileOrigin, PointN)).Y

' Get minimum tile column

Dim minxtile As Double = (minx - xorigin) / (tci.TileCols * tileresolution)

' Get minimum tile row

' From the origin, maxy is minimum y

Dim minytile As Double = (yorigin - maxy) / (tci.TileRows * tileresolution)

' Get maximum tile column

Dim maxxtile As Double = (maxx - xorigin) / (tci.TileCols * tileresolution)

' Get maximum tile row

' From the origin, miny is maximum y

Dim maxytile As Double = (yorigin - miny) / (tci.TileRows * tileresolution)

' Return integer value for min and max, row and column

Dim mintilecolumn As Integer = CType(Math.Floor(minxtile), Integer)

Dim mintilerow As Integer = CType(Math.Floor(minytile), Integer)

Dim maxtilecolumn As Integer = CType(Math.Floor(maxxtile), Integer)

Dim maxtilerow As Integer = CType(Math.Floor(maxytile), Integer)

' Origin of the min tile

Dim xmintileorigin As Double = xorigin + (mintilecolumn * (tci.TileCols * tileresolution))

Dim ymintileorigin As Double = yorigin - (mintilerow * (tci.TileRows * tileresolution))

' Since the origin of the extent and origin of the min tile are different

' get the difference and use to place consolidated image graphic in correct location

Dim xadjust As Double = Math.Abs(minx - xmintileorigin)

Dim yadjust As Double = Math.Abs(maxy - ymintileorigin)

Dim xpixadjust As Integer = CType((xadjust / tileresolution), Integer)

Dim ypixadjust As Integer = CType((yadjust / tileresolution), Integer)

Dim tii As TileImageInfo = mapservice.GetTileImageInfo(mapservice.GetDefaultMapName())

Dim rowindex As Integer = 0

' for each row in the map extent

Dim row As Integer

For row = mintilerow To maxtilerow Step row + 1

Dim colindex As Integer = 0

' for each column in the row, in the map extent

Dim col As Integer

For col = mintilecolumn To maxtilecolumn Step col + 1

Dim myByteArray() As Byte = Nothing

Dim cacheUrl As String = Nothing

Try

' Return the byte array of the tile image

myByteArray = mapservice.GetMapTile(mapname, tilelevel, row, col, tii.CacheTileFormat)

' -or-

' Construct url manually

cacheUrl = virtualCacheDirectory + "/L" + tilelevel.ToString().PadLeft(2, "0"c) + "/R" + row.ToString("x").PadLeft(8, "0"c) + "/C"+ col.ToString("x").PadLeft(8, "0"c) + imgType

Dim webreq As HttpWebRequest = CType(WebRequest.Create(cacheUrl), HttpWebRequest)

Dim webresp As HttpWebResponse = CType(webreq.GetResponse(), HttpWebResponse)

' Can also use: System.Drawing.Image.FromStream(webresp.GetResponseStream()) to

' read http response with image data

Dim theStream As System.IO.Stream = webresp.GetResponseStream()

Dim byte1 As Integer

Dim tempStream As System.IO.MemoryStream = New System.IO.MemoryStream()

While (byte1 = theStream.ReadByte()) <> -1

tempStream.WriteByte((CType(byte1, Byte)))

End While

myByteArray = tempStream.ToArray()

Catch

' Tile may not be available because no data was present when creating the cache

End Try

' If Tile was found, add it to the consolidated image graphic

If Not myByteArray Is Nothing Then

Dim NewImage As System.Drawing.Image

Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(myByteArray, 0, myByteArray.Length)

Try

ms.Write(myByteArray, 0, myByteArray.Length)

NewImage = Image.FromStream(ms, True)

imggraphics.DrawImage(NewImage, (tci.TileCols * colindex) - xpixadjust, _

(tci.TileRows * rowindex) - ypixadjust, tci.TileCols, tci.TileRows)

Finally

ms.Dispose()

End Try

End If

colindex = colindex + 1

rowindex = rowindex + 1

End If

' Post-processing, if necessary... otherwise just use imgbitmap with PictureBox

Dim picturebitmap As System.Drawing.Bitmap = New System.Drawing.Bitmap(picturewidth, pictureheight)

Dim graphicsimage As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(picturebitmap)

graphicsimage.FillRectangle(New System.Drawing.SolidBrush(System.Drawing.Color.LightGray), _

0, 0, picturewidth, pictureheight)

graphicsimage.DrawImage(imgbitmap, 0, 0, picturewidth, pictureheight)

pictureBox1.Image = picturebitmap

GetServerInfo

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapFusedCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

GetServiceConfigurationInfo

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim serviceproperties As PropertySet = mapservice.GetServiceConfigurationInfo()

Dim propertyarray() As PropertySetProperty = serviceproperties.PropertyArray

Dim serviceprop As PropertySetProperty

For Each serviceprop In propertyarray

Dim key As String = serviceprop.Key.ToString()

Dim value As String = serviceprop.Value.ToString()

GetSQLSyntaxInfo

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescriptions

Dim sqlsyntaxinfo As SQLSyntaxInfo = mapservice.GetSQLSyntaxInfo(mapname, layerdesc.LayerID)

GetSupportedImageReturnTypes

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

' Mime or Url

Dim imgReturntype As esriImageReturnType = mapservice.GetSupportedImageReturnTypes()

GetTileCacheInfo

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapFusedCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

If mapservice.HasSingleFusedMapCache(mapname) Then

Dim tilecacheinfo As TileCacheInfo = mapservice.GetTileCacheInfo(mapname)

End If

GetTileImageInfo

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapFusedCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

If mapservice.HasSingleFusedMapCache(mapname) Then

Dim tileimageinfo As TileImageInfo = mapservice.GetTileImageInfo(mapname)

End If

GetVirtualCacheDirectory

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapFusedCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

' Use -1 for fused caches

Dim virtualcachedirectory As String = mapservice.GetVirtualCacheDirectory(mapname, -1)

HasLayerCache

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapLayerCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescrifption

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

Dim layerids(layerdescriptions.Length-1) As Integer

Dim i As Integer = 0

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescriptions

If mapservice.HasLayerCache(mapname, layerdesc.LayerID) Then

Dim layercachename As String = mapservice.GetCacheName(mapname, layerdesc.LayerID)

End If

HasSingleFusedMapCache

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapFusedCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

If mapservice.HasSingleFusedMapCache(mapname) Then

Dim fusedcachename As String = mapservice.GetCacheName(mapname, -1)

End If

Identify

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapservice.GetDefaultMapName())

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim imgdisp As ImageDisplay = New ImageDisplay()

imgdisp.ImageHeight = 500 'pixels

imgdisp.ImageWidth = 500 'pixels

imgdisp.ImageDPI = 96

Dim inputpoint As PointN = New PointN()

inputpoint.X = -110.0

inputpoint.Y = 35.0

' Value in pixels. Converted to map units using image (pixels) and map (map units)extent.

Dim tolerance As Integer = 3

Dim dentifyoption As esriIdentifyOption = esriIdentifyOption.esriIdentifyAllLayers

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

Dim layerids(layerdescriptions.Length-1) As Integer

Dim i As Integer = 0

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescriptions

layerids.SetValue(layerdesc.LayerID, i)

i = i + 1

Dim identifyresults As MapServerIdentifyResult() = mapservice.Identify(mapdesc, imgdisp, inputpoint, _

tolerance, identifyoption, layerids)

IsFixedScaleMap

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapLayerCache/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

If mapservice.IsFixedScaleMap(mapname) Then

Dim tilecacheinfo As TileCacheInfo = mapservice.GetTileCacheInfo(mapname)

End If

QueryFeatureCount

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim maplayerinfos() As MapLayerInfo = mapinfo.MapLayerInfos

Dim layerid As Integer = 0

Dim geomeTryfieldname As String = String.Empty

Dim layerinfo As MapLayerInfo

For Each layerinfo In maplayerinfos

If layerinfo.Name = "countries" Then

layerid = layerinfo.LayerID

Dim fields() As Field = layerinfo.Fields.FieldArray

Dim field As Field

For Each field In fields

If field.Type = esriFieldType.esriFieldTypeGeometry Then

geomeTryfieldname = field.Name

Exit For

End If

Dim envelope As EnvelopeN = New EnvelopeN()

envelope.XMin = 0.0

envelope.YMin = 0.0

envelope.XMax = 180.0

envelope.YMax = 90.0

Dim spatialfilter As SpatialFilter = New SpatialFilter()

spatialfilter.FilterGeometry = envelope

spatialfilter.GeometryFieldName = geomeTryfieldname

spatialfilter.SpatialRel = esriSpatialRelEnum.esriSpatialRelIntersects

spatialfilter.WhereClause = "POP_CNTRY > 50000000"

Dim featurecount As Integer = mapservice.QueryFeatureCount(mapname, layerid, spatialfilter)

QueryFeatureCount2

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim maplayerinfos() As MapLayerInfo = mapinfo.MapLayerInfos

Dim layerid As Integer = 0

Dim geomeTryfieldname As String = String.Empty

Dim layerinfo As MapLayerInfo

For Each layerinfo In maplayerinfos

If layerinfo.Name = "countries" Then

layerid = layerinfo.LayerID

Dim fields() As Field = layerinfo.Fields.FieldArray

Dim field As Field

For Each field In fields

If field.Type = esriFieldType.esriFieldTypeGeometry Then

geomeTryfieldname = field.Name

Exit For

End If

Dim layerdescs() As LayerDescription = mapdesc.LayerDescriptions

Dim activelayerdesc As LayerDescription = Nothing

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescs

If layerdesc.LayerID = layerid Then

activelayerdesc = layerdesc

Exit For

End If

activelayerdesc.DefinitionExpression = "POP_CNTRY > 50000000"

Dim envelope As EnvelopeN = New EnvelopeN()

envelope.XMin = 0.0

envelope.YMin = 0.0

envelope.XMax = 180.0

envelope.YMax = 90.0

Dim spatialfilter As SpatialFilter = New SpatialFilter()

spatialfilter.FilterGeometry = envelope

spatialfilter.GeometryFieldName = geomeTryfieldname

spatialfilter.SpatialRel = esriSpatialRelEnum.esriSpatialRelIntersects

Dim featurecount As Integer = mapservice.QueryFeatureCount2(mapname, activelayerdesc, spatialfilter)

QueryFeatureData

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim maplayerinfos() As MapLayerInfo = mapinfo.MapLayerInfos

Dim layerid As Integer = 0

Dim geomeTryfieldname As String = String.Empty

Dim layerinfo As MapLayerInfo

For Each layerinfo In maplayerinfos

If layerinfo.Name = "countries" Then

layerid = layerinfo.LayerID

Dim fields() As Field = layerinfo.Fields.FieldArray

Dim field As Field

For Each field In fields

If field.Type = esriFieldType.esriFieldTypeGeometry Then

geomeTryfieldname = field.Name

Exit For

End If

Dim queryfilter As QueryFilter = New QueryFilter()

queryfilter.WhereClause = "CNTRY_NAME LIKE '%United%'"

Dim recordset As RecordSet = Nothing

Try

recordset = mapservice.QueryFeatureData(mapname, layerid, queryfilter)

Catch ex As Exception

' Improper format of where clause will cause exception

End Try

If Not recordset Is Nothing Then

Dim fieldsoutput As String = String.Empty

Dim field As Field

For Each field In recordset.Fields.FieldArray

fieldsoutput += field.Name + vbTab

Dim record As Record

For Each record In recordset.Records

Dim valuesoutput As String = String.Empty

Dim values() As Object = record.Values

Dim v As Integer = 0

Dim field2 As Field

For Each field2 In recordset.Fields.FieldArray

valuesoutput += values(v).ToString() + vbTab

v = v + 1

End If

QueryFeatureData2

class=codesample>Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim maplayerinfos() As MapLayerInfo = mapinfo.MapLayerInfos

Dim layerid As Integer = 0

Dim geomeTryfieldname As String = String.Empty

Dim layerinfo As MapLayerInfo

For Each layerinfo In maplayerinfos

If layerinfo.Name = "countries" Then

layerid = layerinfo.LayerID

Dim fields() As Field = layerinfo.Fields.FieldArray

Dim field As Field

For Each field In fields

If field.Type = esriFieldType.esriFieldTypeGeometry Then

geomeTryfieldname = field.Name

Exit For

End If

Dim layerdescs() As LayerDescription = mapdesc.LayerDescriptions

Dim activelayerdesc As LayerDescription = Nothing

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescs

If layerdesc.LayerID = layerid Then

activelayerdesc = layerdesc

Exit For

End If

' Probably defined by a call to QueryFeatureIDs

activelayerdesc.DefinitionExpression = "FID IN (214, 228, 235, 245)"

Dim queryfilter As QueryFilter = New QueryFilter()

queryfilter.WhereClause = "CNTRY_NAME LIKE '%United%'"

Dim queryresultoptions As QueryResultOptions = New QueryResultOptions()

queryresultoptions.Format = esriQueryResultFormat.esriQueryResultRecordSetAsObject

Dim queryresult As QueryResult = Nothing

Try

queryresult = mapservice.QueryFeatureData2(mapname, activelayerdesc, queryfilter,queryresultoptions)

Catch ex As Exception

' Improper format of where clause will cause exception

End Try

Dim recordset As RecordSet = CType(queryresult.Object, RecordSet)

queryresultoptions.Format = esriQueryResultFormat.esriQueryResultKMLAsURL

Try

queryresult = mapservice.QueryFeatureData2(mapname, activelayerdesc, queryfilter, queryresultoptions)

Catch ex As Exception

' Improper format of where clause will cause exception

End Try

Dim kmlurl As String = queryresult.URL

QueryFeatureIDs

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim maplayerinfos() As MapLayerInfo = mapinfo.MapLayerInfos

Dim layerid As Integer = 0

Dim geomeTryfieldname As String = String.Empty

Dim layerinfo As MapLayerInfo

For Each layerinfo In maplayerinfos

If layerinfo.Name = "countries" Then

layerid = layerinfo.LayerID

Dim fields() As Field = layerinfo.Fields.FieldArray

Dim field As Field

For Each field In fields

If field.Type = esriFieldType.esriFieldTypeGeometry Then

geomeTryfieldname = field.Name

Exit For

End If

Dim queryfilter As QueryFilter = New QueryFilter()

queryfilter.WhereClause = "CNTRY_NAME LIKE '%United%'"

Dim fidset As FIDSet = Nothing

Try

fidset = mapservice.QueryFeatureIDs(mapname, layerid, queryfilter)

Catch ex As Exception

' Improper format of where clause will cause exception

End Try

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescriptions

If layerdesc.LayerID = layerid Then

layerdesc.SelectionFeatures = fidset.FIDArray

End If

QueryFeatureIDs2

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapname)

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim maplayerinfos() As MapLayerInfo = mapinfo.MapLayerInfos

Dim layerid As Integer = 0

Dim geomeTryfieldname As String = String.Empty

Dim layerinfo As MapLayerInfo

For Each layerinfo In maplayerinfos

If layerinfo.Name = "countries" Then

layerid = layerinfo.LayerID

Dim fields() As Field = layerinfo.Fields.FieldArray

Dim field As Field

For Each field In fields

If field.Type = esriFieldType.esriFieldTypeGeometry Then

geomeTryfieldname = field.Name

Exit For

End If

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

Dim activelayerdesc As LayerDescription = Nothing

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescriptions

If layerdesc.LayerID = layerid Then

activelayerdesc = layerdesc

Exit For

End If

activelayerdesc.DefinitionExpression = "POP_CNTRY > 50000000"

Dim pnt1 As PointN = New PointN()

pnt1.X = -120

pnt1.Y = 35

Dim pnt2 As PointN = New PointN()

pnt2.X = -60

pnt2.Y = 20

Dim pnt3 As PointN = New PointN()

pnt3.X = 80

pnt3.Y = 35

Dim pnts(2) As PointN

pnts(0) = pnt1

pnts(1) = pnt2

pnts(2) = pnt3

Dim rings(0) As Ring

Dim ring As Ring = New Ring()

ring.PointArray = pnts

rings(0) = ring

Dim polygon As PolygonN = New PolygonN()

polygon.RingArray = rings

Dim spatialfilter As SpatialFilter = New SpatialFilter()

spatialfilter.FilterGeometry = polygon

spatialfilter.GeometryFieldName = geomeTryfieldname

spatialfilter.SpatialRel = esriSpatialRelEnum.esriSpatialRelContains

Dim fidset As FIDSet = Nothing

Try

fidset = mapservice.QueryFeatureIDs2(mapname, activelayerdesc, spatialfilter)

Catch ex As Exception

' Improper format of where clause will cause exception

End Try

activelayerdesc.SelectionFeatures = fidset.FIDArray

QueryHyperlinks

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapname As String = mapservice.GetDefaultMapName()

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapservice.GetDefaultMapName())

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim imgdisp As ImageDisplay = New ImageDisplay()

imgdisp.ImageHeight = 500 'pixels

imgdisp.ImageWidth = 500 'pixels

imgdisp.ImageDPI = 96

Dim layerdescriptions() As LayerDescription = mapdesc.LayerDescriptions

Dim layerids(layerdescriptions.Length - 1) As Integer

Dim i As Integer = 0

Dim layerdesc As LayerDescription

For Each layerdesc In layerdescriptions

layerids.SetValue(layerdesc.LayerID, i)

i = i + 1

Dim hyperlinkresults as MapServerHyperlink() = mapservice.QueryHyperlinks(mapdesc, imgdisp,layerids)

QueryRelatedRecords

//Layer A (Layer ID = 1) is related to Table B (StandaloneTable ID = 2) and you want to find all rows in

//Table B related to a feature in Layer A whose ObjectID is 3. In this case, you need to do the followings:

//Step 1: create a RelateDescription and populate information

Dim pRD As RelateDescription = New RelateDescription()

pRD.RelationshipID = 2

pRD.RelatedTableFields = "*" 'or you can a pass a subset of fields

pRD.ResultFormat = esriRelateResultFormat.esriRelateResultRelatedRecordSetAsObject

'Step 2: create a FIDSet

Dim intOIDs() As Integer = New Integer() {3}

Dim pSrcFIDSet As FIDSet = New FIDSet()

pSrcFIDSet.FIDArray = intOIDs

'Step 3: execute the function

Dim pQR As QueryResult = mapservice.QueryRelatedRecords("mapName", 1, pSrcFIDSet, pRD)

'Step 4: get result

Dim pRelRecordSet As RelatedRecordSet = pQR.Object

'number of elements in RelatedRecordGroups matches with number of ObjectID passed

'in as SourceFIDSet

Dim pRelRecGroup As RelatedRecordGroup = pRelRecordSet.RelatedRecordGroups(0)

Console.WriteLine("Feature with ObjectID = " + pRelRecGroup.SourceRowID.ToString())

Console.WriteLine("has " + pRelRecGroup.Records.Length.ToString() + " related rows")

ToMapPoints

Dim mea As MouseEventArgs = CType(e, MouseEventArgs)

Dim screenx(0) As Integer

Dim screeny(0) As Integer

screenx(0) = mea.X

screeny(0) = mea.Y

Dim mapservice As MapService_MapServer = New MapService_MapServer()

mapservice.Url = "http://localhost/arcgis/services/MapService/MapServer"

Dim mapinfo As MapServerInfo = mapservice.GetServerInfo(mapservice.GetDefaultMapName())

Dim mapdesc As MapDescription = mapinfo.DefaultMapDescription

Dim imgdisp As ImageDisplay = New ImageDisplay()

imgdisp.ImageHeight = 500 'pixels

imgdisp.ImageWidth = 500 'pixels

imgdisp.ImageDPI = 96

Dim multipoint As MultipointN = CType(mapservice.ToMapPoints(mapdesc, imgdisp, screenx, screeny), MultipointN)

GeocodeServer

FindAddressCandidates

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

Dim fields As Fields = geocodeservice.GetAddressFields()

Dim address As PropertySet = New PropertySet()

Dim inputfields(fields.FieldArray.Length - 1) As PropertySetProperty

Dim index As Integer

For index = 0 To fields.FieldArray.Length - 1 Step index + 1

Dim field As Field = fields.FieldArray(index)

Dim property1 As PropertySetProperty = New PropertySetProperty()

property1.Key = field.Name

Select Case field.Name.ToUpper()

Case "STREET"

property1.Value = "5000 Magnolia Ave."

Case "ZONE"

property1.Value = "92506"

End Select

inputfields.SetValue(property1, index)

address.PropertyArray = inputfields

Dim propertymods As PropertySet = geocodeservice.GetLocatorProperties()

Dim locatorArray() As PropertySetProperty = propertymods.PropertyArray

' Change locator property value

Dim index2 As Integer

For index2 = 0 To locatorArray.Length - 1 Step index2 + 1

Dim property2 As PropertySetProperty = locatorArray(index2)

Select Case property2.Key

Case "MinimumCandidateScore"

property2.Value = "80"

End Select

Dim candidates As RecordSet = geocodeservice.FindAddressCandidates(address, Nothing)

If Not candidates Is Nothing Then

Dim fieldsoutput As String = String.Empty

Dim field As Field

For Each field In candidates.Fields.FieldArray

fieldsoutput += field.Name

Dim record As Record

For Each record In candidates.Records

Dim valuesoutput As String = String.Empty

Dim values() As Object = record.Values

Dim v As Integer = 0

Dim field2 As Field

For Each field2 In candidates.Fields.FieldArray

valuesoutput += values(v).ToString()

v = v + 1

End If

GeocodeAddress

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

' Define address inputs

Dim geocodePropSet As PropertySet = New PropertySet()

Dim propArray(1) As PropertySetProperty

Dim geocodeProp As PropertySetProperty = New PropertySetProperty()

geocodeProp.Key = "Street"

' Intersection

'geocodeProp.Value = "Magnolia & Central";

' Address

geocodeProp.Value = "5950 Magnolia Avenue"

propArray(0) = geocodeProp

Dim geocodeProp1 As PropertySetProperty = New PropertySetProperty()

geocodeProp1.Key = "Zone"

geocodeProp1.Value = "92506"

propArray(1) = geocodeProp1

geocodePropSet.PropertyArray = propArray

'Geocode address

Dim results As PropertySet = geocodeservice.GeocodeAddress(geocodePropSet, Nothing)

Dim resultsArray() As PropertySetProperty = results.PropertyArray

Dim geocodePoint As PointN = Nothing

Dim result As PropertySetProperty

For Each result In resultsArray

Dim val As String = result.Key.ToString()

If result.Key = "Shape" Then

geocodePoint = CType(result.Value, PointN)

Dim x As Double = geocodePoint.X

Dim y As Double = geocodePoint.Y

End If

GeocodeAddresses

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

' Create property set to map locator address fields (key) to fields in the input

' address table (value). In this example they are the same.

Dim geocodePropSet As PropertySet = New PropertySet()

Dim propArray(1) As PropertySetProperty

Dim geocodeProp As PropertySetProperty = New PropertySetProperty()

geocodeProp.Key = "Street"

geocodeProp.Value = "Street"

propArray(0) = geocodeProp

Dim geocodeProp1 As PropertySetProperty = New PropertySetProperty()

geocodeProp1.Key = "Zone"

geocodeProp1.Value = "Zone"

propArray(1) = geocodeProp1

geocodePropSet.PropertyArray = propArray

' Create a new recordset to store input addresses to be batch geocoded

Dim addressTable As RecordSet = New RecordSet()

' Create fields for input address table

Dim fieldarray(2) As Field

' Following field properties are required for batch geocode to work:

' Length, Name, Type. There also needs to be a field of type OID.

Dim field0 As Field = New Field()

field0.Name = "OID"

field0.Type = esriFieldType.esriFieldTypeOID

field0.Length = 50

fieldarray(0) = field0

Dim field1 As Field = New Field()

field1.Name = "Street"

field1.Type = esriFieldType.esriFieldTypeString

field1.Length = 50

fieldarray(1) = field1

Dim field2 As Field = New Field()

field2.Name = "Zone"

field2.Type = esriFieldType.esriFieldTypeString

field2.Length = 50

fieldarray(2) = field2

Dim fields As Fields = New Fields()

fields.FieldArray = fieldarray

addressTable.Fields = fields

' Add records to input address table

Dim records(1) As Record

Dim record1 As Record = New Record()

record1.Values = New Object(2){0, "5950 Magnolia Ave.", "92506" }

records(0) = record1

Dim record2 As Record = New Record()

record2.Values = New Object(2) {1, "5962 Magnolia Ave.", "92506"}

records(1) = record2

addressTable.Records = records

' Generate results table

Dim results as RecordSet = geocodeservice.GeocodeAddresses(addressTable, geocodePropSet,Nothing)

If Not results Is Nothing Then

Dim fieldsoutput As String = String.Empty

Dim fieldResult As Field

For Each fieldResult In results.Fields.FieldArray

fieldsoutput += fieldResult.Name + vbTab

Dim record As Record

For Each record In results.Records

Dim valuesoutput As String = String.Empty

Dim values() As Object = record.Values

Dim v As Integer = 0

Dim fieldresult2 As Field

For Each fieldresult2 In results.Fields.FieldArray

valuesoutput += values(v).ToString() + vbTab

v = v + 1

End If

GetAddressFields

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

Dim addressfields As Fields = geocodeservice.GetAddressFields()

Dim addressfield As Field

For Each addressfield In addressfields.FieldArray

' Input field name

System.Diagnostics.Debug.WriteLine("Name: " + addressfield.Name)

' Descriptive name

System.Diagnostics.Debug.WriteLine("Alias Name: " + addressfield.AliasName)

' Is required?

System.Diagnostics.Debug.WriteLine("Required: " + addressfield.Required.ToString())

' Data type

System.Diagnostics.Debug.WriteLine("Type: " + addressfield.Type.ToString())

GetCandidateFields

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

Dim propertymods As PropertySet = geocodeservice.GetLocatorProperties()

Dim candidatefields As Fields = geocodeservice.GetCandidateFields(propertymods)

Dim candidatefield As Field

For Each candidatefield In candidatefields.FieldArray

' Descriptive name

System.Diagnostics.Debug.WriteLine("Alias Name: " + candidatefield.AliasName)

' Input field name

System.Diagnostics.Debug.WriteLine("Name: " + candidatefield.Name)

' Is required?

System.Diagnostics.Debug.WriteLine("Required: " + candidatefield.Required.ToString())

' Data type

System.Diagnostics.Debug.WriteLine("Type: " + candidatefield.Type.ToString())

GetDefaultInputFieldMapping

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

Dim fieldmapproperties As PropertySet = geocodeservice.GetDefaultInputFieldMapping()

Dim fieldmaparray() As PropertySetProperty = fieldmapproperties.PropertyArray

Dim fieldmapproperty As PropertySetProperty

For Each fieldmapproperty In fieldmaparray

System.Diagnostics.Debug.WriteLine(fieldmapproperty.Key.ToString())

System.Diagnostics.Debug.WriteLine(fieldmapproperty.Value.ToString())

GetIntersectionCandidateFields

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

Dim propertymods As PropertySet = geocodeservice.GetLocatorProperties()

Dim candidatefields As Fields = geocodeservice.GetIntersectionCandidateFields(propertymods)

Dim candidatefield As Field

For Each candidatefield In candidatefields.FieldArray

' Descriptive name

System.Diagnostics.Debug.WriteLine("Alias Name: " + candidatefield.AliasName)

' Input field name

System.Diagnostics.Debug.WriteLine("Name: " + candidatefield.Name)

' Is required?

System.Diagnostics.Debug.WriteLine("Required: " + candidatefield.Required.ToString())

' Data type

System.Diagnostics.Debug.WriteLine("Type: " + candidatefield.Type.ToString())

GetLocatorProperties

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

Dim locatorProperties As PropertySet = geocodeservice.GetLocatorProperties()

Dim locatorArray() As PropertySetProperty = locatorProperties.PropertyArray

' Display locator properties and default values

Dim locatorProperty As PropertySetProperty

For Each locatorProperty In locatorArray

System.Diagnostics.Debug.WriteLine(locatorProperty.Key.ToString())

System.Diagnostics.Debug.WriteLine(locatorProperty.Value.ToString())

' Change locator property value

Dim index As Integer

For index = 0 To locatorArray.Length - 1 Step index + 1

Dim property1 As PropertySetProperty = locatorArray(index)

Select Case property1.Key

Case "MinimumMatchScore"

property1.Value = "50"

Case "MinimumCandidateScore"

property1.Value = "50"

End Select

GetResultFields

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

Dim propertymods As PropertySet = geocodeservice.GetLocatorProperties()

Dim candidatefields As Fields = geocodeservice.GetResultFields(propertymods)

Dim candidatefield As Field

For Each candidatefield In candidatefields.FieldArray

' Descriptive name

System.Diagnostics.Debug.WriteLine("Alias Name: " + candidatefield.AliasName)

' Input field name

System.Diagnostics.Debug.WriteLine("Name: " + candidatefield.Name)

' Is required?

System.Diagnostics.Debug.WriteLine("Required: " + candidatefield.Required.ToString())

' Data type

System.Diagnostics.Debug.WriteLine("Type: " + candidatefield.Type.ToString())

GetStandardizedFields

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

Dim standardizedfields As Fields = geocodeservice.GetStandardizedFields()

Dim standardfield As Field

For Each standardfield In standardizedfields.FieldArray

' Descriptive name

System.Diagnostics.Debug.WriteLine("Alias Name: " + standardfield.AliasName)

' Input field name

System.Diagnostics.Debug.WriteLine("Name: " + standardfield.Name)

' Is required?

System.Diagnostics.Debug.WriteLine("Required: " + standardfield.Required.ToString())

' Data type

System.Diagnostics.Debug.WriteLine("Type: " + standardfield.Type.ToString())

' Define address inputs

Dim stnGeocodePropSet As PropertySet = New PropertySet()

Dim stnPropArray(4) As PropertySetProperty

Dim stngeocodeProp As PropertySetProperty = New PropertySetProperty()

stngeocodeProp.Key = "AHN"

stngeocodeProp.Value = "5950"

stnPropArray(0) = stngeocodeProp

Dim stngeocodeProp1 As PropertySetProperty = New PropertySetProperty()

stngeocodeProp1.Key = "ASN"

stngeocodeProp1.Value = "Magnolia"

stnPropArray(1) = stngeocodeProp1

Dim stngeocodeProp2 As PropertySetProperty = New PropertySetProperty()

stngeocodeProp2.Key = "AST"

stngeocodeProp2.Value = "AVE"

stnPropArray(2) = stngeocodeProp2

Dim stngeocodeProp3 As PropertySetProperty = New PropertySetProperty()

stngeocodeProp3.Key = "AZN"

stngeocodeProp3.Value = "92506"

stnPropArray(3) = stngeocodeProp3

Dim stngeocodeProp4 As PropertySetProperty = New PropertySetProperty()

stngeocodeProp4.Key = "Addr_type"

stngeocodeProp4.Value = "A"

stnPropArray(4) = stngeocodeProp4

stnGeocodePropSet.PropertyArray = stnPropArray

Dim stnpropertyset As PropertySet = geocodeservice.GeocodeAddress(stnGeocodePropSet, Nothing)

GetStandardizedIntersectionFields

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

Dim standardizedfields As Fields = geocodeservice.GetStandardizedIntersectionFields()

Dim standardfield As Field

For Each standardfield In standardizedfields.FieldArray

' Descriptive name

System.Diagnostics.Debug.WriteLine("Alias Name: " + standardfield.AliasName)

' Input field name

System.Diagnostics.Debug.WriteLine("Name: " + standardfield.Name)

' Is required?

System.Diagnostics.Debug.WriteLine("Required: " + standardfield.Required.ToString())

' Data type

System.Diagnostics.Debug.WriteLine("Type: " + standardfield.Type.ToString())

ReverseGeocode

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

' Set reverse geocode search parameters

Dim revGeocodeProp As PropertySetProperty = New PropertySetProperty()

revGeocodeProp.Key = "ReverseDistanceUnits"

revGeocodeProp.Value = "Meters"

Dim revGeocodeProp1 As PropertySetProperty = New PropertySetProperty()

revGeocodeProp1.Key = "ReverseDistance"

revGeocodeProp1.Value = "100"

' Optionally define output spatial reference for reverse geocoded point

Dim projectedCoordinateSystem As ProjectedCoordinateSystem = New ProjectedCoordinateSystem()

projectedCoordinateSystem.WKID = 54004

projectedCoordinateSystem.WKIDSpecified = True

Dim revGeocodeProp2 As PropertySetProperty = New PropertySetProperty()

revGeocodeProp2.Key = "OutputSpatialReference"

revGeocodeProp2.Value = projectedCoordinateSystem

Dim propArray As PropertySetProperty() = New PropertySetProperty()

{revGeocodeProp, revGeocodeProp1, revGeocodeProp2 }

Dim revGeocodePropSet As PropertySet = New PropertySet()

revGeocodePropSet.PropertyArray = propArray

' Create point to reverse geocode, define input spatial reference

Dim inputPoint As PointN = New PointN()

inputPoint.X = -117.391

inputPoint.Y = 33.961

Dim geographicCoordinateSystem As GeographicCoordinateSystem = New GeographicCoordinateSystem()

geographicCoordinateSystem.WKID = 4326

geographicCoordinateSystem.WKIDSpecified = True

inputPoint.SpatialReference = geographicCoordinateSystem

' Reverse geocode

Dim results As PropertySet = geocodeservice.ReverseGeocode(inputPoint, False, revGeocodePropSet)

' Iterate through results

Dim resultsArray As PropertySetProperty() = results.PropertyArray

' For each result, print address and matched point

For Each result As PropertySetProperty In resultsArray

System.Diagnostics.Debug.WriteLine(result.Key.ToString())

If TypeOf result.Value Is PointN Then

Dim pn As PointN = CType(result.Value, PointN)

System.Diagnostics.Debug.WriteLine(pn.X & ", " & pn.Y)

Else

System.Diagnostics.Debug.WriteLine(result.Value.ToString())

End If

Next result

StandardizeAddress

Dim geocodeservice As GeocodeService_GeocodeServer = New GeocodeService_GeocodeServer()

geocodeservice.Url = "http://localhost/arcgis/services/GeocodeService/GeocodeServer"

' Define address inputs

Dim geocodePropSet As PropertySet = New PropertySet()

Dim propArray(1) As PropertySetProperty

Dim geocodeProp As PropertySetProperty = New PropertySetProperty()

geocodeProp.Key = "Street"

geocodeProp.Value = "5950 Magnolia Ave."

propArray(0) = geocodeProp

Dim geocodeProp1 As PropertySetProperty = New PropertySetProperty()

geocodeProp1.Key = "Zone"

geocodeProp1.Value = "92506"

propArray(1) = geocodeProp1

geocodePropSet.PropertyArray = propArray

Dim standardizedAddress As PropertySet = geocodeservice.StandardizeAddress(geocodePropSet, Nothing)

Dim standardArray() As PropertySetProperty = standardizedAddress.PropertyArray

Dim result As PropertySetProperty

For Each result In standardArray

System.Diagnostics.Debug.WriteLine(result.Key.ToString())

System.Diagnostics.Debug.WriteLine(result.Value.ToString())

GPServer

GeoDataServer

GetDefaultWorkingVersion

Dim geodataservice As GeodataService_GeoDataServer = New GeodataService_GeoDataServer()

geodataservice.Url = "http://localhost/arcgis/services/GeodataService/GeodataServer"

Dim defaultversionname As String = geodataservice.GetDefaultWorkingVersion()

GetMaxRecordCount

Dim geodataservice As GeodataService_GeoDataServer = New GeodataService_GeoDataServer()

geodataservice.Url = "http://localhost/arcgis/services/GeodataService/GeodataServer"

Dim maxrecordcount As Integer = geodataservice.GetMaxRecordCount()

GetVersions

Dim geodataservice As GeodataService_GeoDataServer = New GeodataService_GeoDataServer()

geodataservice.Url = "http://localhost/arcgis/services/GeodataService/GeodataServer"

Try

Dim gpversioninfos() As GPVersionInfo = geodataservice.GetVersions()

Dim gpvi As GPVersionInfo

For Each gpvi In gpversioninfos

Dim versionname As String = gpvi.VersionName

Dim access As esriVersionAccess = gpvi.Access

' If not an ArcSDE geodatabase, "Error processing server request" will be returned.

Catch soapex As System.Web.Services.Protocols.SoapException

Dim message As String = soapex.Message

Finally

geodataservice.Dispose()

End Try

GetWrappedWorkspaceType

Dim geodataservice As GeodataService_GeoDataServer = New GeodataService_GeoDataServer()

geodataservice.Url = "http://localhost/arcgis/services/GeodataServiceLocal/GeodataServer"

Dim workspacetype As esriWorkspaceType = geodataservice.GetWrappedWorkspaceType()

GeometryServer

Buffer

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

Dim inputSpatialReference As SpatialReference = New GeographicCoordinateSystem()

inputSpatialReference.WKT="GEOGCS[""GCS_WGS_1984"",DATUM[""D_WGS_1984"",SPHEROID[""WGS_1984"",6378137.0,298.257223563]],PRIMEM[""Greenwich"",0.0],UNIT[""Degree"",0.0174532925199433]]"

Dim bufferSpatialReference As SpatialReference = New ProjectedCoordinateSystem()

' USA_Contiguous_Lambert_Conformal_Conic

bufferSpatialReference.WKID = 102004

bufferSpatialReference.WKIDSpecified = True

Dim outputSpatialReference As SpatialReference = inputSpatialReference

Dim inputPoint1 As PointN = New PointN()

inputPoint1.X = -120

inputPoint1.Y = 45

Dim inputPoint2 As PointN = New PointN()

inputPoint2.X = -110

inputPoint2.Y = 40

Dim inputGeomeTry() As Geometry = New Geometry() {inputPoint1, inputPoint2}

Dim distances() As Double = New Double() {200, 400}

Dim linearUnit As LinearUnit = New LinearUnit()

' US survey mile

linearUnit.WKID = 9035

linearUnit.WKIDSpecified = True

Dim unionResults As Boolean = False

Dim outputGeomeTry As Geometry() = geomeTryService.Buffer(inputSpatialReference, bufferSpatialReference, _

outputSpatialReference, distances, linearUnit, unionResults, inputGeomeTry)

Densify

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

Dim inputSpatialReference As SpatialReference = New wsgeomeTry.ProjectedCoordinateSystem()

' World Mercator

inputSpatialReference.WKID = 54004

inputSpatialReference.WKIDSpecified = True

Dim pnt1 As PointN = New PointN()

pnt1.X = 500000

pnt1.Y = 500000

Dim pnt2 As PointN = New PointN()

pnt2.X = 600000

pnt2.Y = 500000

Dim pnt3 As PointN = New PointN()

pnt3.X = 700000

pnt3.Y = 500000

Dim pntarray1() As PointN = New PointN() {pnt1, pnt2, pnt3}

Dim inputPath As Path = New Path()

inputPath.PointArray = pntarray1

Dim paths() As Path = New Path() {inputPath}

Dim inputPolyline As PolylineN = New PolylineN()

inputPolyline.PathArray = paths

Dim inputGeomeTry() As Geometry = New Geometry() {inputPolyline}

Dim maxSegmentLength As Double = 10000

Dim useDeviationDensification As Boolean = False

Dim densificationParam As Double = 0

Dim outputGeomeTry As Geometry() = geomeTryService.Densify(inputSpatialReference, _

inputGeomeTry, maxSegmentLength, useDeviationDensification, densificationParam)

FindSRByWKID

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

' Geographic WGS84

Dim outputSpatialReference as SpatialReference = geomeTryService.FindSRByWKID("EPSG", 4326,-1, True, True)

Dim isHighPrecision As Boolean = outputSpatialReference.HighPrecision

FindSRByWKT

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

' Geographic WGS84

Dim outputSpatialReference As SpatialReference = geomeTryService.FindSRByWKT("GEOGCS[""GCS_WGS_1984"",DATUM[""D_WGS_1984"",SPHEROID[""WGS_1984"",6378137.0,298.257223563]],PRIMEM[""Greenwich"",0.0],UNIT[""Degree"",0.0174532925199433]]", "", True, True)

Dim predefinedWKID As Integer = outputSpatialReference.WKID

FindUnitsByWKID

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

' International Meter

Dim linearUnit As LinearUnit = CType(geomeTryService.FindUnitsByWKID("EPSG", 9001), LinearUnit)

FindUnitsByWKT

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

' International Meter

Dim linearUnit As LinearUnit = CType(geomeTryService.FindUnitsByWKT("UNIT[""Meter"",1.0,AUTHORITY[""EPSG"",9001]]"), LinearUnit)

GetAreasAndLengths

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

Dim inputSpatialReference As SpatialReference = geomeTryService.FindSRByWKID("EPSG", 54004, -1, True, True)

' New PointN array

Dim pnt1 As PointN = New PointN()

pnt1.X = 100000

pnt1.Y = 300000

Dim pnt2 As PointN = New PointN()

pnt2.X = 100000

pnt2.Y = 350000

Dim pnt3 As PointN = New PointN()

pnt3.X = 900000

pnt3.Y = 350000

Dim pnts1() As PointN = New PointN() {pnt1, pnt2, pnt3}

' New PolylineN

Dim path1 As Path = New Path()

path1.PointArray = pnts1

Dim paths() As Path = New Path() {path1}

Dim polylinen As PolylineN = New PolylineN()

polylinen.PathArray = paths

' New PolygonN

Dim ring1 As Ring = New Ring()

ring1.PointArray = pnts1

Dim rings() As Ring = New Ring() {ring1}

Dim polygonn As PolygonN = New PolygonN()

polygonn.RingArray = rings

Dim polygonArray() As PolygonN = New PolygonN() {polygonn}

Dim lengths() As Double = Nothing

Dim areas As Double() = geomeTryService.GetAreasAndLengths(inputSpatialReference, polygonArray, lengths)

GetLabelPoints

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

' GCS-NAD83

Dim inputSpatialReference as SpatialReference = geomeTryService.FindSRByWKID("EPSG", 4269,-1, True, True)

Dim pnt1 As PointN = New PointN()

pnt1.X = 10.0

pnt1.Y = 30.0

Dim pnt2 As PointN = New PointN()

pnt2.X = 10.0

pnt2.Y = 40.0

Dim pnt3 As PointN = New PointN()

pnt3.X = 20.0

pnt3.Y = 40.0

Dim pnt4 As PointN = New PointN()

pnt4.X = 20.0

pnt4.Y = 30.0

Dim pnt5 As PointN = New PointN()

pnt5.X = 10.0

pnt5.Y = 30.0

Dim pnts1() As PointN = New PointN() {pnt1, pnt2, pnt3, pnt4, pnt5}

Dim ring1 As Ring = New Ring()

ring1.PointArray = pnts1

Dim rings() As Ring = New Ring() {ring1}

Dim polygonn As PolygonN = New PolygonN()

polygonn.RingArray = rings

Dim polygonArray() As PolygonN = New PolygonN() {polygonn}

Dim labelPoints As Point() = CType(geomeTryService.GetLabelPoints(inputSpatialReference, polygonArray), Point())

GetLengths

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

Dim inputSpatialReference As SpatialReference = geomeTryService.FindSRByWKID("EPSG", 54004, -1, True, True)

' New PointN array

Dim pnt1 As PointN = New PointN()

pnt1.X = 100000

pnt1.Y = 300000

Dim pnt2 As PointN = New PointN()

pnt2.X = 100000

pnt2.Y = 350000

Dim pnt3 As PointN = New PointN()

pnt3.X = 900000

pnt3.Y = 350000

Dim pnts1() As PointN = New PointN() {pnt1, pnt2, pnt3}

' New PolylineN

Dim path1 As Path = New Path()

path1.PointArray = pnts1

Dim paths() As Path = New Path() {path1}

Dim polylinen As PolylineN = New PolylineN()

polylinen.PathArray = paths

Dim polylineArray() As PolylineN = New PolylineN() {polylinen}

Dim lengths() As Double = geomeTryService.GetLengths(inputSpatialReference, polylineArray)

Project

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

Dim inputSpatialReference As SpatialReference = New GeographicCoordinateSystem()

inputSpatialReference.WKID = 4326

inputSpatialReference.WKIDSpecified = True

Dim outputSpatialReference As SpatialReference = New ProjectedCoordinateSystem()

' USA_Contiguous_Lambert_Conformal_Conic

outputSpatialReference.WKID = 102004

outputSpatialReference.WKIDSpecified = True

Dim pnt1 As PointN = New PointN()

pnt1.X = -120

pnt1.Y = 50

Dim pnt2 As PointN = New PointN()

pnt2.X = -110

pnt2.Y = 40

Dim pnt3 As PointN = New PointN()

pnt3.X = -130

pnt3.Y = 40

Dim pnts1() As PointN = New PointN() {pnt1, pnt2, pnt3}

Dim path1 As Path = New Path()

path1.PointArray = pnts1

Dim paths() As Path = New Path() {path1}

Dim polylinen As PolylineN = New PolylineN()

polylinen.PathArray = paths

Dim ring1 As Ring = New Ring()

ring1.PointArray = pnts1

Dim rings() As Ring = New Ring() {ring1}

Dim polygonn As PolygonN = New PolygonN()

polygonn.RingArray = rings

Dim inputGeomeTry() As Geometry = New Geometry() {pnt1, polylinen, polygonn}

Dim transformForward As Boolean = False

Dim transformation As GeoTransformation = New GeoTransformation()

' NAD1983_To_WGS1984_1

transformation.WKID = 1188

transformation.WKIDSpecified = True

Dim extent As EnvelopeN = Nothing

Dim outputGeomeTry as GeomeTry() = geomeTryService.Project(inputSpatialReference, outputSpatialReference,transformForward,transformation, extent, inputGeomeTry)

Relation

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

Dim inputSpatialReference As SpatialReference = New GeographicCoordinateSystem()

inputSpatialReference.WKID = 4326

inputSpatialReference.WKIDSpecified = True

' First input geometry array - 1 polygon

Dim pnt1a As PointN = New PointN()

pnt1a.X = 10.0

pnt1a.Y = 30.0

Dim pnt2a As PointN = New PointN()

pnt2a.X = 10.0

pnt2a.Y = 45.0

Dim pnt3a As PointN = New PointN()

pnt3a.X = 25.0

pnt3a.Y = 45.0

Dim pnt4a As PointN = New PointN()

pnt4a.X = 25.0

pnt4a.Y = 30.0

Dim pnt5a As PointN = New PointN()

pnt5a.X = 10.0

pnt5a.Y = 30.0

Dim pnts1a() As PointN = New PointN() {pnt1a, pnt2a, pnt3a, pnt4a, pnt5a}

Dim ring1 As Ring = New Ring()

ring1.PointArray = pnts1a

Dim rings() As Ring = New Ring() {ring1}

Dim polygon1 As PolygonN = New PolygonN()

polygon1.RingArray = rings

Dim inputGeomeTry1() As Geometry = New Geometry() {polygon1}

' Second input geometry array - 3 points

Dim pnt1b As PointN = New PointN()

pnt1b.X = 20.0

pnt1b.Y = 40.0

Dim pnt2b As PointN = New PointN()

pnt2b.X = 10.0

pnt2b.Y = 30.0

Dim pnt3b As PointN = New PointN()

pnt3b.X = 50.0

pnt3b.Y = 50.0

Dim inputGeomeTry2(2) As Geometry

' Inside polygon

inputGeomeTry2.SetValue(pnt1b, 0)

' Edge of polygon

inputGeomeTry2.SetValue(pnt2b, 1)

' Outside polygon

inputGeomeTry2.SetValue(pnt3b, 2)

' If esriGeometryRelationRelation, define relation parameter

Dim enumRelate As esriGeometryRelationEnum = esriGeometryRelationEnum.esriGeometryRelationRelation

' G1 = first (base) geometry array, G2 = second (comparison) geometry array

Dim relationParameter As String = "G2 INTERSECT G1.BOUNDARY"

Dim relationResults as RelationResult() = geomeTryService.Relation(inputSpatialReference,inputGeomeTry1, inputGeomeTry2,enumRelate, relationParameter)

Simplify

Dim geomeTryService As Geometry_GeometryServer = New Geometry_GeometryServer()

geomeTryService.Url = "http://localhost/arcgis/services/Geometry/GeometryServer"

Dim inputSpatialReference As SpatialReference = geomeTryService.FindSRByWKID("EPSG", 4326, -1, True, True)

' Ring 1

Dim pnt1a As PointN = New PointN()

pnt1a.X = 10.0

pnt1a.Y = 30.0

Dim pnt2a As PointN = New PointN()

pnt2a.X = 10.0

pnt2a.Y = 45.0

Dim pnt3a As PointN = New PointN()

pnt3a.X = 25.0

pnt3a.Y = 45.0

Dim pnt4a As PointN = New PointN()

pnt4a.X = 25.0

pnt4a.Y = 30.0

Dim pnt5a As PointN = New PointN()

pnt5a.X = 10.0

pnt5a.Y = 30.0

Dim pnts1a() As PointN = New PointN() {pnt1a, pnt2a, pnt3a, pnt4a, pnt5a}

Dim ring1 As Ring = New Ring()

ring1.PointArray = pnts1a

' Ring 2

Dim pnt1b As PointN = New PointN()

pnt1b.X = 15.0

pnt1b.Y = 35.0

Dim pnt2b As PointN = New PointN()

pnt2b.X = 15.0

pnt2b.Y = 50.0

Dim pnt3b As PointN = New PointN()

pnt3b.X = 30.0

pnt3b.Y = 50.0

Dim pnt4b As PointN = New PointN()

pnt4b.X = 30.0

pnt4b.Y = 35.0

Dim pnt5b As PointN = New PointN()

pnt5b.X = 15.0

pnt5b.Y = 35.0

Dim pnts1b() As PointN = New PointN() {pnt1b, pnt2b, pnt3b, pnt4b, pnt5b}

Dim ring2 As Ring = New Ring()

ring2.PointArray = pnts1b

' Multipart Polygon (2 overlapping rings)

Dim rings() As Ring = New Ring() {ring1, ring2}

Dim polygon1 As PolygonN = New PolygonN()

polygon1.RingArray = rings

Dim geomeTryArray() As Geometry = New Geometry() {polygon1}

' Overlapping section removed

Dim simplifiedGeomeTry() As Geometry = geomeTryService.Simplify(inputSpatialReference, geomeTryArray)

ImageServer

NAServer