You are here: Using SOAP > v2006 services > Tutorials and samples > VB.NET code examples v2006

S A M P L E S

VB.NET code examples v2006

This page contains VB.NET code examples for ArcWeb service objects and methods. The samples apply to desktop and Web applications. For objects that are both inputs or outputs (for example, MapArea), the examples only show inputs. See ArcWeb services overview for quick links to overviews, method descriptions, and notes for each service. See Object descriptions for detailed descriptions of objects. Code examples are also available in C#.NET, ColdFusion MX, Java, and SOAP.

Methods

Account Info

Content Finder

Place Finder Sample

Utility

Address Finder

Data Manager

Report

Wireless Location

Address Manager

Map Image

Route Finder

 

Authentication

Place Finder

Spatial Query

 

Objects

AccountInfoOptions

DeviceLocationOptions

LayerLegend

RowData

AccountSummary

DeviceStatus

LineDesc

ScaleBarDesc

AccountUsage

DeviceStopInfo

MapArea

SearchOptions

Address

DeviceStopOptions

MapFusionOptions

SegmentDesc

AddressFields

DeviceTripInfo

MapImageInfo

ServiceInfo

AddressFinderInfo

DeviceTripOptions

MapImageOptions

ServiceSummary

AddressFinderOptions

DistanceInfo

MapImageSize

ServiceUsage

AddressInfo

Ellipse

MapLegend

SimplePoint

AdminOptions

Envelope

MarkerDesc

Site

AttributeDesc

Feature

MobileDevice

SpatialBuffer

Circle

FeatureIDInfo

OrderBy

SpatialQueryInfo

CircleDesc

FeatureInfo

PixelCoord

SpatialQueryOptions

CircularArc

FeatureResultSet

PlaceFinderInfo

StandardGeography

ContentFinderRecord

FeatureSearchOptions

PlaceFinderOptions

StringSet

ContentFinderRecordID

FeatureUpdateOptions

Point

ThematicColors

ContentFinderResultSet

FieldDesc

PolygonDesc

ThematicData

ContentFinderSearchOptions

FieldInfo

ReportInfo

ThematicOptions

CoordSys

GeocodeCandidate

ReportOptions

ThematicReportOptions

CustomReportVariables

GeocodeInfo

ResultSet

ThematicVariableInfo

CustomVariableInfo

GeocodeOptions

ResultSetRange

UsageInfo

DataFile

GeographyIDOptions

RouteDisplayOptions

User

DataFileInfo

Geometry

RouteFinderOptions

UserUsage

DataSourceInfo

KeyValue

RouteInfo

 

DataSourceUsage

LabelDesc

RouteOptions

 

DateTimeRange

Layer

RouteStop

 

DeviceLocationInfo

LayerInfo

RouteSummary

 

 

AccountInfoOptions

Dim myAccountInfoOptions As New AccountInfoOptions
myAccountInfoOptions.adminOptions = myAdminOptions
Dim myReturnDataSources() As String = {"ArcWeb:ESRI.Gazetteer.World", "ArcWeb:TA.Address.US"}
myAccountInfoOptions.returnDataSources = myReturnsDataSources
myAccountInfoOptions.returnDetailedInfo = True
Dim myReturnsServices() As String = {"MapImage", "AddressFinder"}
myAccountInfoOptions.returnServices = myReturnServices

 

AccountSummary

Dim myAccountSummary As AccountSummary = myAccountInfo.getUsage(myAccountInfoOptions, myDateTimeRange, token)
myAccountSummary.groupUsage = myAccountUsage
myAccountSummary.usageByUser = myUserUsage
Response.Write("<br>Group's Usage = " + myAccountSummary.groupUsage.ToString)

 

AccountUsage

Dim myAccountUsage As AccountUsage = myUserUsage.accountUsage
Response.Write("<br>Daily Usage = " + myAccountUsage.averageDailyCreditUsage.ToString)
Response.Write("<br>Credits Remaining = " & myAccountUsage.creditsRemaining.ToString)
Response.Write("<br>Credits Used = " & myAccountUsage.creditsUsed.ToString)

 

Address

Dim myAddress As New Address
myAddress.city = "Redlands"
myAddress.country = "US"
myAddress.houseNumber = "380"
myAddress.intersection = " Redlands Blvd."
myAddress.postalCode = "92373"
myAddress.stateProvince = "CA"
myAddress.street = "New York Street"

 

AddressFields

Dim myAddressFields As New AddressFields
myAddressFields.city = "CITY"
myAddressFields.country = "COUNTRY"
myAddressFields.houseNumber = "HOUSE #"
myAddressFields.postalCode = "ZIP"
myAddressFields.stateProvince = "STATE"
myAddressFields.street = "STREET ADDRESS"

 

AddressFinderInfo

Dim myAddressFinderInfoArray() As AddressFinderInfo = myAddressFinder.getInfo(myDataSourcesArray, token)
Dim addressFinderInfo As New AddressFinderInfo
For Each addressFinderInfo In myAddressFinderInfoArray
Response.Write("<br>Data Source = " & addressFinderInfo.dataSource)
Response.Write("<br>Supports extended postal code? = " & addressFinderInfo.extendedPostalCode)
Response.Write("<br>Is this a partial Address ? " & addressFinderInfo.partialAddress)
Next

 

AddressFinderOptions

Dim myAddressFinderOptions As New AddressFinderOptions
myAddressFinderOptions.dataSource = "ArcWeb:TA.Streets.US"
myAddressFinderOptions.extendedPostalCode = False
myAddressFinderOptions.partialAddress = True
myAddressFinderOptions.resultSetRange = myResultSetRange
myAddressFinderOptions.snapType = "house"

 

AddressInfo

Dim myAddressManager As New AddressManager
Dim addressInfo As New AddressInfo
For Each addressInfo In myAddressManager.findAddressesByPoint(myPointArray, myAddressFinderOptions, token)
Response.Write("<br>Address Street = " & addressInfo.address.street)
Response.Write("<br>Address City = " & addressInfo.address.city)
Response.Write("<br>Error Message = " & addressInfo.errorMessage)
Next

 

AdminOptions

Dim myAdminOptions As New AdminOptions
myAdminOptions.returnGroupUsage = True
Dim myReturnUsersList() As String = {[username], [username 2]}
myAdminOptions.returnUsers = myReturnUsersList

 

AttributeDesc

Dim myAttributeDescArray() As AttributeDesc = myContentFinder.getAvailableAttributes("DataFile", token)
Dim attributeDesc As New AttributeDesc
For Each attributeDesc In myAttributeDescArray
Response.Write("<br>Attribute = " & attributeDesc.name)
Response.Write("<br>Short Description =" & attributeDesc.shortDesc)
Next

 

Circle

Dim myCircle As New Circle
myCircle.center = myPoint
myCircle.radius = 2
myCircle.radiusUnits = "miles"
myCircle.trueCircle = False

 

CircleDesc

Dim myCircleDesc As New CircleDesc
myCircleDesc.antialiasing = "true"
myCircleDesc.boundaryColor = "255,0,0"
myCircleDesc.boundaryTransparency = 1.0
myCircleDesc.boundaryType = "dash"
myCircleDesc.circle = myCircle
myCircleDesc.fillColor = "0,200,0"
myCircleDesc.fillTransparency = 0.5
myCircleDesc.overlapLabels = "false"
myCircleDesc.thickness = 2

 

CircularArc

Dim myCircularArc As New CircularArc
myCircularArc.center = myPoint
myCircularArc.endAngle = 90
myCircularArc.innerRadius = 2
myCircularArc.outerRadius = 2.1
myCircularArc.radiusUnits = "km"
myCircularArc.startAngle = 0
myCircularArc.trueCircle = False

 

ContentFinderRecord

Dim myContentFinder As ContentFinder
Dim myContentFinderRecordArray() As ContentFinderRecord = myContentFinder.getDependentContent(myContentFinderRecordID,token)
Dim myContentFinderRecord As ContentFinderRecord
For Each myContentFinderRecord In myContentFinderRecordArray
Dim myDateTime As DateTime = "01/01/1970 00:00:00"
Response.Write("<br>Record name = " & myContentFinderRecord.id.name)
myDateTime = myDateTime.AddSeconds(myContentFinderRecord.contentLastUpdated)
Response.Write("<br>Was last updated = " & myDateTime.ToLocalTime.ToString)
Next

 

ContentFinderRecordID

Dim myContentFinderRecordID As New ContentFinderRecordID
myContentFinderRecordID.contentType = "DataSource"
myContentFinderRecordID.name = "ContentName"
myContentFinderRecordID.service = "PlaceFinder"

 

ContentFinderResultSet

Dim myContentFinderResultSet As ContentFinderResultSet = myContentFinder.searchRecords(myContentFinderSearchOptions, token)
Response.Write("<br> Number of Records = " & myContentFinderResultSet.totalCount)

 

ContentFinderSearchOptions

Dim myContentFinderSearchOptions As New ContentFinderSearchOptions
myContentFinderSearchOptions.contentType = "DataFile"
myContentFinderSearchOptions.dataScale = "20000"
myContentFinderSearchOptions.dataType = 1
myContentFinderSearchOptions.extent = myEnvelope
myContentFinderSearchOptions.orderBy = "title"
myContentFinderSearchOptions.orderDescending = False
myContentFinderSearchOptions.ownerType = "user"
myContentFinderSearchOptions.resultSetRange = myResultSetRange
Dim myAttributeDescArray() As AttributeDesc = myContentFinder.getAvailableAttributes("DataFile", token)
Dim myReturnAttributes() As String
Dim counter As Integer = 0
Dim myAttributeDesc As AttributeDesc
For Each myAttributeDesc In myAttributeDescArray
myReturnAttributes(counter)= myAttributeDesc.name
counter = counter + 1
Next
myContentFinderSearchOptions.returnAttributesList = myReturnAttributes
myContentFinderSearchOptions.returnContentProperties = True
myContentFinderSearchOptions.serviceType = "AddressManager"
myContentFinderSearchOptions.spatialOperator = "overlaps"
myContentFinderSearchOptions.whereClause = "title = 'ESRI'"

 

CoordSys

Dim myCoordSys As New CoordSys
myCoordSys.projection = "4326"

 

CustomReportVariables

Dim myCustomReportVariables As New CustomReportVariables
myCustomReportVariables.variableDataSource = "ArcWeb:ESRI.DemographicAndIncome.US"
Dim myReport As Report = New Report
Dim myCustomVariableInfoArray() As CustomVariableInfo = myReport.getCustomVariables("ArcWeb:ESRI.DemographicAndIncome.US", token)
Dim myVariableNamesArray() As String
Dim customVariableInfo As New CustomVariableInfo
Dim counter As Integer = 0
For Each customVariableInfo In myCustomVariableInfoArray
myVariableNamesArray(counter) = customVariableInfo.fieldDesc.name
counter = counter + 1
Next
myCustomReportVariables.variableNames = myVariableNamesArray

 

CustomVariableInfo

Dim myCustomVariableInfoArray() As CustomVariableInfo = myReport.getCustomVariables("ArcWeb:ESRI.DemographicAndIncome.US", token)
Dim customVariableInfo As New CustomVariableInfo()
For Each customVariableInfo In myCustomVariableInfoArray
Response.Write("<br>Database = " & customVariableInfo.database)
Response.Write("<br>Field Desc = " & customVariableInfo.GetType.ToString)
Next

 

DataFile

Dim myDataFile As New DataFile
myDataFile.addressFields = myAddressFields
myDataFile.attributes = myKeyValueArray
myDataFile.coordSys = myCoordSys
myDataFile.fieldInfo = myFieldinfoArray
myDataFile.geometryType = 3
myDataFile.name = "MyUsername:RealEstate"

 

DataFileInfo

Dim myDataFileInfo As DataFileInfo = myDataManager.getDataFilesInfo(myStringArray, token)
Response.Write("<br> Datafile Name: " & myDataFileInfo.dataFile.name)
Response.Write("<br> Date Created: " & myDataFileInfo.dateCreated)
Response.Write("<br> Feature Count: " & myDataFileInfo.featureCount)
Response.Write("<br> Last Modified: " & myDataFileInfo.lastModified)

 

DataSourceInfo

Dim myDataSourceInfo As DataSourceInfo = myDataSourceInfoArray(0)
Response.Write("<br>Data Source name = " + myDataSourceInfo.name)
Response.Write("<br>Summary = " + myDataSourceInfo.summary)
Response.Write("<br>Supports ArcXML? = " + myDataSourceInfo.supportsArcXML.ToString)
Response.Write("<br>Supports WMS? = " + myDataSourceInfo.supportsWMS.ToString)
Response.Write("<br>Title = " + myDataSourceInfo.title)

 

DataSourceUsage

Dim myDataSourceUsage As DataSourceUsage = myDataSourceUsageArray(0)
myDataSourceUsage.usage = myUsageInfo
Response.Write("<br>Data Source name = " + myDataSourceUsage.name)
Response.Write("<br>Data Source title = " + myDataSourceUsage.title)

 

DateTimeRange

Dim myDateTimeRange As New DateTimeRange
myDateTimeRange.end = 1113912000
myDateTimeRange.start = 1113901200

 

DeviceLocationInfo

Dim myDeviceLocationInfoArray() As DeviceLocationInfo = myWirelessLocation.getDeviceLocation(myMobileDeviceArray, myDeviceLocationOptions, token)
Dim deviceLocationInfo As New DeviceLocationInfo()
For Each deviceLocationInfo In myDeviceLocationInfoArray
Response.Write("<br>Accuracy = " & deviceLocationInfo.accuracy)
Response.Write("<br>Error Message = " & deviceLocationInfo.errorMessage)
Response.Write("<br>X value of Point = " & deviceLocationInfo.point.x)
Response.Write("<br>Y value of Point = " & deviceLocationInfo.point.y)
Response.Write("<br>Radius = " & deviceLocationInfo.radius)
Response.Write("<br>Radius = " & deviceLocationInfo.timeStamp)
Next

 

DeviceLocationOptions

Dim myDeviceLocationOptions As New DeviceLocationOptions
myDeviceLocationOptions.accuracy = "low"
myDeviceLocationOptions.radiusUnits = "meters"

 

DeviceStatus

Dim myDeviceStatusArray() As DeviceStatus = myWirelessLocation.getDeviceStatus(myMobileDeviceArray, token)
Dim deviceStatus As New DeviceStatus
For Each deviceStatus In myDeviceStatusArray
Response.Write("<br>Error Message = " & deviceStatus.errorMessage)
Next

 

DeviceStopInfo

Dim myDeviceStopInfoArray() As DeviceStopInfo = myWirelessLocation.getDeviceStops(myDeviceStopOptions, token)
Dim deviceStopInfo As New DeviceStopInfo
For Each deviceStopInfo In myDeviceStopInfoArray
Response.Write("<br>UNIX time start = " & deviceStopInfo.dateTimeRange.start)
Response.Write("<br>UNIX time send = " & deviceStopInfo.dateTimeRange.end)
Response.Write("<br>Point x value = " & deviceStopInfo.point.x)
Response.Write("<br>Point y value = " & deviceStopInfo.point.y)
Next

 

DeviceStopOptions

Dim myDeviceStopOptions As New DeviceStopOptions
myDeviceStopOptions.dataFileName = "dataFileName"
myDeviceStopOptions.dateTimeRange = myDateTimeRange
myDeviceStopOptions.maxRadius = 2
myDeviceStopOptions.minDuration = 10
myDeviceStopOptions.radiusUnits = "km"

 

DeviceTripInfo

Dim myDeviceTripInfo As DeviceTripInfo = myWirelessLocation.getTripInfo(myDeviceTripOptions, token)Response.Write("<br>Distance = " & myDeviceTripInfo.distance)
Response.Write("<br>Speed = " & myDeviceTripInfo.speed)

 

DeviceTripOptions

Dim myDeviceTripOptions As New DeviceTripOptions
myDeviceTripOptions.dataFileName = "dataFileName"
myDeviceTripOptions.dateTimeRange = myDateTimeRange
myDeviceTripOptions.returnAngle = False
myDeviceTripOptions.returnDistance = False
myDeviceTripOptions.returnPath = False
myDeviceTripOptions.returnSpeed = False
myDeviceTripOptions.units = "miles"

 

DistanceInfo

Dim myDistanceInfo As DistanceInfo = myUtility.getDistance(myPoint1,myPoint2,"km",100,True,token)
Response.Write("<br>Distance = " & myDistanceInfo.distance.ToString)
Response.Write("<br>Geometry = " & myDistanceInfo.geometry.ToString)

 

Ellipse

Dim myEllipse As New Ellipse
myEllipse.axisUnits = "km"
myEllipse.center = myPoint
myEllipse.majorAxis = 100
myEllipse.minorAxis = 50
myEllipse.rotation = 20
myEllipse.trueEllipse = False

 

Envelope

Dim myEnvelope As New Envelope
myEnvelope.maxX = -114
myEnvelope.maxY = 36
myEnvelope.minX = -120
myEnvelope.minY = 32
myEnvelope.coordSys = myCoordSys

 

Feature

Dim myFeature As New Feature
myFeature.fieldValues = myKeyValueArray
myFeature.geometry = myGeometry

 

FeatureIDInfo

Dim myFeatureIDInfoArray() As FeatureIDInfo = myDataManager.addFeatures("MyDataFile", myFeatureArray, False, token)
Dim featureIDInfo As New FeatureIDInfo
For Each featureIDInfo In myFeatureIDInfoArray
Response.Write("<br> Error Message : " & featureIDInfo.errorMessage)
Response.Write("<br> Feature ID : " & featureIDInfo.id)
Next

 

FeatureInfo

Dim myFeatureResultSet As FeatureResultSet = myDataManager.findFeatures("MyDataFile", myFeatureSearchOptions, token)
Dim myFeatureInfoArray() As FeatureInfo = myFeatureResultSet.features
Dim featureInfo As New FeatureInfo
For Each featureInfo In myFeatureInfoArray
Response.Write("<br> Feature ID : " & featureInfo.id)
Response.Write("<br> Geocode Status : " & featureInfo.geocodeStatus)
Response.Write("<br> Geocode Database : " & featureInfo.geocodeDataSource)
Next

 

FeatureResultSet

Dim myFeatureResultSet As FeatureResultSet = myDataManager.findFeatures("MyDataFile", myFeatureSearchOptions, token)
Dim myFeatureInfoArray() As FeatureInfo = myFeatureResultSet.features
Dim featureInfo As New FeatureInfo()
For Each featureInfo In myFeatureInfoArray
Response.Write("<br> Feature ID : " & featureInfo.id)
Next
Response.Write("<br> Total number of features : " & myFeatureResultSet.totalCount)

 

FeatureSearchOptions

Dim myFeatureSearchOptions As New FeatureSearchOptions
myFeatureSearchOptions.intersectGeometry = myGeometry
myFeatureSearchOptions.returnGeometry = True
myFeatureSearchOptions.searchOptions = mySerachOptions
myFeatureSearchOptions.spatialBuffer = mySpatialBuffer

 

FeatureUpdateOptions

Dim myFeatureUpdateOptions As New FeatureUpdateOptions
myFeatureUpdateOptions.fieldValues = myKeyValueArray
myFeatureUpdateOptions.geometry = myGeometry

 

FieldDesc

Dim myFieldDesc As New FieldDesc
For Each myFieldDesc In myResultSet.fields
Response.Write("<br>Field = " & myFieldDesc.name)
Next

 

FieldInfo

Dim myFieldinfo As New FieldInfo
myFieldinfo.isIndexed = True
myFieldinfo.label = "owner"
myFieldinfo.name = "owner_id"
myFieldinfo.type = 3

 

GeocodeCandidate

Dim myGeocodeCandidateArray() As GeocodeCandidate = myGeocodeInfo.candidates
Dim geocodeCandidate As GeocodeCandidate
For Each geocodeCandidate In myGeocodeCandidateArray
Response.Write("<br>City = " & geocodeCandidate.address.city)
Response.Write("<br>Description = " & geocodeCandidate.desc1)
Response.Write("<br>Match Score (1 being best match) = " & geocodeCandidate.score)
Response.Write("<br>Type of Place = " & geocodeCandidate.type)
Next

 

GeocodeInfo

Dim myGeocodeInfo As GeocodeInfo = myPlaceFinder.findPlace("redlands", myPlaceFinderOptions, token)
Dim myGeocodeCandidateArray() As GeocodeCandidate = myGeocodeInfo.candidates
Response.Write("<br>Description of a candidate = " & myGeocodeCandidateArray(0).desc1)
Response.Write("<br>No match error messsage = " & myGeocodeInfo.errorMessage)
Response.Write("<br>Match type = " & myGeocodeInfo.matchType)
Response.Write("<br>Number of results that met the search Criteria = " & myGeocodeInfo.totalCount)

 

GeocodeOptions

Dim myGeocodeOptions As New GeocodeOptions
myGeocodeOptions.dataSource = "ArcWeb:NT.Streets.US"
myGeocodeOptions.extendedPostalCode = False
myGeocodeOptions.formatAddressFields = False
myGeocodeOptions.partialAddress = True

 

GeographyIDOptions

Dim myGeographyIDOptions As New GeographyIDOptions
myGeographyIDOptions.geographyIDFilter = "blockGroup"
myGeographyIDOptions.keyword = "Redlands"
myGeographyIDOptions.outputGeographyLevel = "blockGroup"
myGeographyIDOptions.resultSetRange = myResultSetRange

 

Geometry

Dim myGeometry As New Geometry
Dim mySimplePoint1 As New SimplePoint
Dim mySimplePoint2 As New SimplePoint
Dim mySimplePointArray(0) As SimplePoint
mySimplePoint1.x = -117.199577
mySimplePoint1.y = 34.048364
mySimplePoint2.x = -117.179577
mySimplePoint2.y = 34.018364
Dim i As Integer
For i = 0 To (mySimplePointArray.Length - 1)
mySimplePointArray (i) = New SimplePoint
Next
mySimplePointArray(0) = mySimplePointArray1
mySimplePointArray(1) = mySimplePointArray2
myGeometry.points = mySimplePointArray
Dim myParts(0) As Integer
myParts(0) = 1
myGeometry.parts = myParts
myGeometry.type = 2
myGeometry.coordSys = myCoordSys
myGeometry.coordSys = myCoordSys

 

KeyValue

Dim myKeyValue As New KeyValue
myKeyValue.key = "US"
myKeyValue.value = "United States"

 

LabelDesc

Dim myLabelDesc As New LabelDesc
myLabelDesc.angle = 0
myLabelDesc.antialiasing = "false"
myLabelDesc.blockoutColor = "0,200,0"
myLabelDesc.caps = "true"
myLabelDesc.font = "Arial"
myLabelDesc.fontColor = "255,0,0"
myLabelDesc.fontSize = 10
myLabelDesc.fontStyle = "underline"
myLabelDesc.glowing = True
myLabelDesc.hAlignment = "center"
myLabelDesc.interval = 8
myLabelDesc.outlineColor = "255,0,0"
myLabelDesc.overlapLabels = "true"
myLabelDesc.transparency = 1.0
myLabelDesc.vAlignment = "center"

 

Layer

Dim myLayer As New Layer
myLayer.name = "U.S. States"
myLayer.visibility = "on"

 

LayerInfo

Dim myMapImageInfo As MapImageInfo = myMapImage.getBestMap(myMapImageOptions, 10, token)
Dim myLayerInfoArray() As LayerInfo = myMapImageInfo.layers
Dim layerInfo As LayerInfo
For Each layerInfo In myLayerInfoArray
Response.Write("<br>Layer name :" & layerInfo.name)
Response.Write("<br>)Visibility :" & layerInfo.visibility)
Next

 

LayerLegend

Dim myMapImageInfo As MapImageInfo = myMapImage.getBestMap(myMapImageOptions, 10, token)
Dim myLayerInfoArray() As LayerInfo = myMapImageInfo.layers
Dim layerInfo As New LayerInfo
Dim layerLegend As New LayerLegend
For Each layerInfo In myLayerInfoArray
Dim myLayerLegendArray() As LayerLegend = layerInfo.legends
For Each layerLegend In myLayerLegendArray
Response.Write("<br>Layer Class name :" & layerLegend.layerClassName)
Response.Write("<br>Symbol URL :" & layerLegend.symbolURL)
Next
Next

 

LineDesc

Dim myLineDesc As New LineDesc
myLineDesc.antialiasing = "false"
myLineDesc.color = "255,0,0"
myLineDesc.endType = "round"
myLineDesc.geometry = myGeometry
myLineDesc.jointType = "bevel"
myLineDesc.lineType = "dash"
myLineDesc.overlapLabels = "false"
myLineDesc.thickness = 2
myLineDesc.transparency = 1.0

 

MapArea

Dim myMapArea As New MapArea
myMapArea.center = myPoint
myMapArea.extent = myEnvelope
myMapArea.scale = 10000

 

MapFusionOptions

Dim myMapFusionOptions As New MapFusionOptions
myMapFusionOptions.mapURL = "http://arcweb.esri.com/v2006/images/home/home_map.gif"
myMapFusionOptions.transparency = 0.1

 

MapImageInfo

Dim myMapImageInfo As MapImageInfo = myMapImage.getBestMap(myMapImageOptions, 10, token)
Response.Write("<br> Map URL : " & myMapImageInfo.mapURL)
Response.Write("<br> Legend URL : " & myMapImageInfo.legendURL)

 

MapImageOptions

Dim myMapImageOptions As New MapImageOptions
myMapImageOptions.backgroundColor = "0,0,0"
myMapImageOptions.circles = myCircleDescArray
myMapImageOptions.dataSource = "ArcWeb:TA.Streets.NA"
myMapImageOptions.displayLayers = myLayerArray
myMapImageOptions.lines = myLineDescArray
myMapImageOptions.mapImageFormat = "png"
myMapImageOptions.mapImageSize = myMapImageSize
myMapImageOptions.mapLegend = myMapLegend
myMapImageOptions.markers = myMarkerDescArray
myMapImageOptions.outputCoordSys = myCoordSys
myMapImageOptions.polygons = myPolygonDescArray
myMapImageOptions.returnLayers = True
myMapImageOptions.scaleBars = myScaleBarDescArray
myMapImageOptions.styleSheet = "tangerine"

 

MapImageSize

Dim myMapImageSize As New MapImageSize
myMapImageSize.height = 300
myMapImageSize.width = 500

 

MapLegend

Dim myMapLegend As New MapLegend
myMapLegend.antialiasing = "false"
myMapLegend.autoextend = False
myMapLegend.backgroundColor = "0,0,0"
myMapLegend.columns = 2
myMapLegend.font = "Arial"
myMapLegend.height = 300
myMapLegend.layerFontSize = 11
myMapLegend.splitText = "(cont)"
myMapLegend.swatchHeight = 18
myMapLegend.swatchWidth = 22
myMapLegend.title = "Legend for this map"
myMapLegend.titleFontSize = 10
myMapLegend.valueFontSize = 9
myMapLegend.width = 150

 

MarkerDesc

Dim myMarkerDesc As New MarkerDesc
myMarkerDesc.color = "255,0,0"
myMarkerDesc.iconDataSource = "Arcweb:ESRI.Simple.Icons"
myMarkerDesc.label = "MyStore"
myMarkerDesc.labelDesc = myLabelDesc
myMarkerDesc.location = myPoint
myMarkerDesc.name = "circle"
myMarkerDesc.size = 10

 

MobileDevice

Dim myMobileDevice As New MobileDevice
myMobileDevice.dataSource = "ArcWeb:ESRI.LocationTest.NA"
myMobileDevice.phoneNumber = "9095804684"

 

OrderBy

Dim myOrderBy As New OrderBy()
myOrderBy.descending = True
myOrderBy.field = "NAME"

 

PixelCoord

Dim myPixelCoord As New PixelCoord()
myPixelCoord.x = 100
myPixelCoord.y = 50

 

PlaceFinderInfo

Dim myPlaceFinderInfoArray() As PlaceFinderInfo = myPlaceFinder.getInfo(myDataSourcesArray, token)
Dim placeFinderInfo As New PlaceFinderInfo
For Each placeFinderInfo In myPlaceFinderInfoArray
Dim countryCodesArray() As KeyValue = placeFinderInfo.countryCodes;
Response.Write("<br> Country key= " & countryCodesArray(0).key)
Response.Write("<br> Country value= " & countryCodesArray(0).value)
Response.Write("<br> dataSource = " & placeFinderInfo.dataSource)
Next

 

PlaceFinderOptions

Dim myPlaceFinderOptions As New PlaceFinderOptions
myPlaceFinderOptions.dataSource = "ArcWeb:ESRI.Gazetteer.World"
myPlaceFinderOptions.filterCountry = "US"
myPlaceFinderOptions.filterExtent = myEnvelope
myPlaceFinderOptions.filterType = "A,B,C"
myPlaceFinderOptions.resultSetRange = myResultSetRange
myPlaceFinderOptions.searchType = "exactMatch"

 

Point

Dim myPoint As New Point
myPoint.coordSys = myCoordSys
myPoint.x = -117.194589
myPoint.y = 34.057058

 

PolygonDesc

Dim myPolygonDesc As New PolygonDesc
myPolygonDesc.antialiasing = "false"
myPolygonDesc.boundary = "true"
myPolygonDesc.boundaryColor = "0,0,0"
myPolygonDesc.boundaryJointType = "bevel"
myPolygonDesc.boundaryTransparency = 1.0
myPolygonDesc.boundaryType = "dash"
myPolygonDesc.boundaryWidth = 1
myPolygonDesc.fillColor = "0,200,0"
myPolygonDesc.fillInterval = 4
myPolygonDesc.fillTransparency = 0.5
myPolygonDesc.fillType = "diagcross"
myPolygonDesc.geometry = myGeometry
myPolygonDesc.overlapLabels = "true"

 

ReportInfo

Dim myReportInfo As ReportInfo = myReport.getCustomSiteReport(mySite, myReportOptionsArray, myCustomReportVariablesArray, token)
Response.Write("<br>Datasource = " & myReportInfo.dataSource)
Response.Write("<br>Report Format = " & myReportInfo.reportFormat)
Response.Write("<br>Report URL = " & myReportInfo.reportURL)

 

ReportOptions

Dim myReportOptions As New ReportOptions
myReportOptions.dataSource = "ArcWeb:ESRI.DemographicAndIncome.US";
myReportOptions.reportFormat = "pdf"
Dim myKeyValueArray() As KeyValue = myReport.getReportHeaderKeys("getStandardGeographyReport", token)
myReportOptions.reportHeader = myKeyValueArray

 

ResultSet

Dim myResultSet As New ResultSet
Response.Write("<br>Total rows returned = " & myResultSet.totalCount)

 

ResultSetRange

Dim myResultSetRange As New ResultSetRange
myResultSetRange.count = 20
myResultSetRange.startIndex = 10

 

RouteDisplayOptions

Dim myRouteDisplayOptions As New RouteDisplayOptions
myRouteDisplayOptions.color = "255,0,0"
myRouteDisplayOptions.thickness = 4
myRouteDisplayOptions.transparency = 0.5

 

RouteFinderOptions

Dim myRouteFinderOptions As New RouteFinderOptions
myRouteFinderOptions.avoidTraffic = True
myRouteFinderOptions.dataSource = "ArcWeb:TA.Streets.NA"
myRouteFinderOptions.language = "english"
myRouteFinderOptions.returnDirections = True
myRouteFinderOptions.returnGeometry = True
myRouteFinderOptions.returnMap = True
myRouteFinderOptions.returnTurnByTurnMaps = False
myRouteFinderOptions.routeDisplayOptions = myRouteDisplayOptions
myRouteFinderOptions.routeMapOptions = myMapImageOptions
myRouteFinderOptions.routeOptions = myRouteOptions
myRouteFinderOptions.trafficDataSource = "ArcWEB:TC.Traffic.US"
myRouteFinderOptions.trafficSeverity = 3
myRouteFinderOptions.turnByTurnMapOptions = myMapImageOptions
myRouteFinderOptions.units = "km"

 

RouteInfo

Dim myRouteInfo As RouteInfo = myRouteFinder.findRoute(myRouteStopArray,myRouteFinderOptions, token)
Response.Write("<br> The map URL :" & myRouteInfo.routeMap.mapURL)
Response.Write("<br> Total distance from the Route Summary :" & myRouteInfo.totalDesc.totalDistance)
Response.Write("<br> Total time from the Route Summary :" & myRouteInfo.totalDesc.totalTime)

 

RouteOptions

Dim myRouteOptions As New RouteOptions
myRouteOptions.filterExtent = myEnvelope
myRouteOptions.hwyPref = 1
myRouteOptions.optimizeStops = True
myRouteOptions.precision = 0.0
myRouteOptions.returnExtents = True
myRouteOptions.routeBarriers = myPointArray
myRouteOptions.routeType = "quickest"

 

RouteStop

Dim myRouteStop As New RouteStop
myRouteStop.desc = "gas station"
myRouteStop.point = myPoint

 

RouteSummary

Dim myRouteInfo As RouteInfo = myRouteFinder.findRoute(myRouteStopArray, myRouteFinderOptions, token)
Dim myRouteSummary As RouteSummary = myRouteInfo.totalDesc
Response.Write("<br> Total Distance in " & myRouteSummary.distanceUnits & " :" & myRouteSummary.totalDistance)
Response.Write("<br> Total Time :" & myRouteSummary.totalTime)

 

RowData

Dim myRowData As New RowData
Dim field As String
For Each myRow In myResultSet.rows
For Each field In myRow.fieldValues
Response.Write("<br>FieldValue = " + field)
Next
Next

 

ScaleBarDesc

Dim myScaleBarDesc As New ScaleBarDesc
myScaleBarDesc.barColor = "255,0,0"
myScaleBarDesc.barLength = 40
myScaleBarDesc.barPixelLocation = myPixelCoord
myScaleBarDesc.barUnits = "km"
myScaleBarDesc.barWidth = 6
myScaleBarDesc.font = "Arial"
myScaleBarDesc.fontColor = "0,200,0"
myScaleBarDesc.fontSize = 10

 

SearchOptions

Dim mySearchOptions As New SearchOptions
mySearchOptions.orderByList = myOrderByArray
mySearchOptions.resultSetRange = myResultSetRange
Dim myReturnFields() As String
myReturnFields(0) = "NAME"
myReturnFields(0) = "CFCC"
mySearchOptions.returnFields = myReturnFields
mySearchOptions.whereClause = "CFCC='D31'"

 

SegmentDesc

Dim myRouteInfo As RouteInfo = myRouteFinder.findRoute(myRouteStopArray, myRouteFinderOptions, token)
Dim mySegmentDescArray() As SegmentDesc = myRouteInfo.segmentDescs
Dim segmentDesc As New SegmentDesc
For Each segmentDesc In mySegmentDescArray
Response.Write("<br> Descriptive Directions :" & segmentDesc.descriptiveDirections)
Response.Write("<br> Descriptive Distance :" & segmentDesc.descriptiveDistance)
Response.Write("<br> Distance :" & segmentDesc.numericDistance)
Response.Write("<br> Time :" & segmentDesc.numericTime)
Next

 

ServiceInfo

Dim myServiceInfo As ServiceInfo = myServiceInfoArray(0)
myServiceInfo.dataSourcesInfo = myDataSourceInfoArray
Response.Write("<br>Service Description = " + myServiceInfo.desc)
Response.Write("<br>Service Name = " + myServiceInfo.name)
Response.Write("<br>WSDL = " + myServiceInfo.wsdl)
Dim myDataSourceInfoArray() As DataSourceInfo = myServiceInfo.dataSourcesInfo

 

ServiceSummary

Dim myServiceSummary As ServiceSummary = myServiceSummaryArray(0)
Dim myServiceInfoArray() As ServiceInfo = myServiceSummary.servicesInfo
Dim myUser As User = myServiceSummary.user
Response.Write("Username = " + myUser.username)

 

ServiceUsage

Dim myServiceUsage As ServiceUsage = myServiceUsageArray(0)
myServiceUsage.dataSourcesUsage = myDataSourcesUsageArray
myServiceUsage.usage = myUsageInfo
Response.Write("<br>Email Address = " + myServiceUsage.name)
Dim myDataSourceUsageArray() As DataSourceUsage = myServiceUsage.dataSourcesUsage

 

SimplePoint

Dim mySimplePoint As New SimplePoint
mySimplePoint.x = -117.634589
mySimplePoint.y = 33.890873

 

Site

Dim mySite As New Site
mySite.calcType = "solid"
mySite.ringRadiiArray(0) = 2.0
mySite.ringRadiiArray(1) = 4.0
mySite.ringRadii(ringRadiiArray);
mySite.ringUnits = "km"
mySite.siteLocation = myPoint
mySite.siteName = "site name"

 

SpatialBuffer

Dim mySpatialBuffer As New SpatialBuffer
mySpatialBuffer.bufferDistance = 2
mySpatialBuffer.bufferUnits = "miles"

 

SpatialQueryInfo

Dim spatialQueryInfoArray() As SpatialQueryInfo = mySpatialQuery.getAvailableFieldNames(myDataSources,token)
For Each spatialQueryInfo In mySpatialQueryInfoArray
Response.Write("<br>Data Source = " & spatialQueryInfo.dataSource)
For Each fieldDesc In spatialQueryInfo.availableFields
Response.Write("<br>Field = " & fieldDesc.name)
Response.Write("<br>Field = " & fieldDesc.shortDesc)
Next
Response.Write("<br>")
Next

 

SpatialQueryOptions

Dim mySpatialQueryOptions As New SpatialQueryOptions
mySpatialQueryOptions.dataSource = "ArcWeb:TA.POI.US"
mySpatialQueryOptions.distanceUnits = "km"
mySpatialQueryOptions.returnDistance = True
mySpatialQueryOptions.returnGeometry = True
mySpatialQueryOptions.searchOptions = mySearchOptions
mySpatialQueryOptions.spatialBuffer = mySpatialBuffer

 

StandardGeography

Dim myStandardGeography As New StandardGeography
Dim myResultSet As ResultSet = myReport.getGeographyIDs(myGeographyIDOptions, token)
Dim myFieldDescArray() As FieldDesc = myResultSet.fields
Dim myGeographyIDs() As String
Dim counter As Integer = 0
Dim fieldDesc As New FieldDesc
For Each fieldDesc In myFieldDescArray
myGeographyIDs(counter) = fieldDesc.name
counter = counter + 1
Next
myStandardGeography.geographyIDs = myGeographyIDs
myStandardGeography.geographyLevel = "county"

 

StringSet

Dim myStringSet As StringSet = myDataManager.getUniqueValues("MyDataFile", "owner_id", myResultSetRange, token)
Response.Write("<br> An element of the strings array : " & myStringSet.strings(0))
Response.Write("<br> Total count : " & myStringSet.totalCount)

 

ThematicColors

Dim myThematicColors As New ThematicColors
Dim colorsArray() As String = {"255,0,0", "0,0,255", "0,255,0"}
myThematicColors.classColors = colorsArray
myThematicColors.colorPalette = "green"

 

ThematicData

Dim myThematicData As New ThematicData
myThematicData.data = myKeyValueArray
myThematicData.precision = 2
myThematicData.sign = "dollar"

 

ThematicOptions

coming soon

 

ThematicReportOptions

Dim myThematicReportOptions As New ThematicReportOptions
myThematicReportOptions.classificationMethod = "equalInterval"
myThematicReportOptions.colorPalette = "coolToWarm"
myThematicReportOptions.geographyLevel = "county"
myThematicReportOptions.numClasses = 2

 

ThematicVariableInfo

Dim myThematicVariableInfoArray() As ThematicVariableInfo = getThematicVariables(myDatabase, myTable, token)
Dim myThematicVariableInfo As ThematicVariableInfo = myThematicVariableInfoArray(0)
Response.Write("<br>Database = " & myThematicVariableInfo.database)
Response.Write("<br>Short Desc = " & myThematicVariableInfo.shortDesc)
Response.Write("<br>Table = " & myThematicVariableInfo.table)
Response.Write("<br>Variable = " & myThematicVariableInfo.variable)

 

UsageInfo

Dim myUsage As myUsageInfo = myDataSourceUsage.usage
Response.Write("<br>Credits used = " + myUsageInfo.creditsUsed.ToString)
Response.Write("<br>Date last used = " + myUsageInfo.dateLastUsed.ToString)
Response.Write("<br>Number of requests = " + myUsageInfo.numRequests.ToString)

 

User

Dim myUser As User = myUserUsage.user
Response.Write("<br>Email Address = " + myUser.emailAddress)
Response.Write("<br>Full name = " + myUser.firstName + " " + myUser.lastName)
Response.Write("<br>Active? = " + myUser.isActive.ToString)
Response.Write("<br>Admin? = " + myUser.isAdmin)
Response.Write("<br>Username = " + myUser.username)

 

UserUsage

Dim myUserUsage As UserUsage = myUserUsageArray(0)
myUserUsage.accountUsage = myAccountUsage
myUserUsage.servicesUsage = myServicesUsage
myUserUsage.user = myUser
Response.Write("<br>Account Usage = " + myUserUsage.accountUsage.ToString)
Response.Write("<br>Services Usage = " + myUserUsage.servicesUsage.ToString)
Dim myServiceUsageArray() As ServiceUsage = myUserUsage.servicesUsage

Account Info methods

getServices

Dim myAccountInfo As New AccountInfo
Dim myServiceSummaryArray() As ServiceSummary = myAccountInfo.getServices(myAccountInfoOptions, token)

 

getUsage

Dim myAccountInfo As New AccountInfo
Dim myAccountSummary As AccountSummary = myAccountInfo.getUsage(myAccountInfoOptions, myDateRange, token)
Dim myUserUsageArray() As UserUsage = myAccountSummary.usageByUser

 

getVersion

AccountInfo myAccountInfo = new AccountInfo;
string version = myAccountInfo.getVersion();

Address Finder methods

findAddressByPoint

Dim myAddressFinder As New AddressFinder
Dim myAddress As Address = myAddressFinder.findAddressByPoint(myPoint, myAddressFinderOptions, token)

 

findLocationByAddress

Dim myAddressFinder As New AddressFinder
Dim myGeocodeInfo As GeocodeInfo = myAddressFinder.findLocationByAddress(myAddress, myAddressFinderOptions, token)

 

findLocationByIP

Dim myAddressFinder As New AddressFinder
Dim myGeocodeInfo As GeocodeInfo = myAddressFinder.findLocationByIP("200.133.175.16", myAddressFinderOptions, token)

 

findLocationByPhoneNumber

Dim myAddressFinder As New AddressFinder
Dim myGeocodeInfo As GeocodeInfo = myAddressFinder.findLocationByPhoneNumber("9097932853", myAddressFinderOptions, token)

 

getInfo

Dim myAddressFinder As New AddressFinder
Dim myDataSourcesArray() As String = {"ArcWeb:NT.Address.US", "ArcWeb:TA.Address.US"}
Dim myAddressFinderInfoArray() As AddressFinderInfo = myAddressFinder.getInfo(myDataSourcesArray, token)

 

getVersion

Dim myAddressFinder As New AddressFinder
Dim myVersion As String = myAddressFinder.getVersion();

Address Manager methods

findAddressesByPoint

Dim myAddressManager As New AddressManager
Dim myAddress As Address() = myAddressManager.findAddressesByPoint(myPoint, myAddressFinderOptions, token)

 

findLocationsByAddress

Dim myAddressManager As New AddressManager
Dim myGeocodeInfoArray() As GeocodeInfo = myAddressManager.findLocationsByAddress(myAddressArray, myAddressFinderOptions, token)

 

findLocationsByIP

Dim myAddressManager As New AddressManager
Dim myIPAddressArray() As String = {"200.133.175.161", "201.123.131.204"}
Dim myGeocodeInfoArray() As GeocodeInfo = myAddressManager.findLocationsByIP(myIPAddressArray, myAddressFinderOptions, token)

 

findLocationsByPhoneNumber

Dim myAddressManager As New AddressManager
Dim myPhoneNumberArray() As String = {"9097939342", "9097932853"}
Dim myGeocodeInfoArray() As GeocodeInfo = myAddressManager.findLocationsByPhoneNumber(myPhoneNumberArray, myAddressFinderOptions, token)

 

getInfo

Dim myAddressManager As New AddressManager
Dim Dim myDataSourceArray() As String = {"ArcWeb:NT.Streets.US ", "ArcWeb:TA.Streets.CA "}
Dim myAddressFinderInfoArray() As AddressFinderInfo = myAddressManager.getInfo(myDataSourceArray, token)

 

getVersion

Dim myAddressManager As New AddressManager
Dim version As String = myAddressManager.getVersion()

Authentication methods

getCustomExpirationToken

Dim myAuthentication As New Authentication
Dim myCustomExpirationToken As String = myAuthentication.getCustomExpirationToken("username", "password", 500)

 

getToken

 Dim myAuthentication As New Authentication
Dim myToken As String = myAuthentication.getToken("username", "password")

 

getVersion

Dim myAuthentication As New Authentication
Dim myVersion As String = myAuthentication.getVersion()

 

validateToken

Dim myAuthentication As New Authentication
Dim minutesLeft As Integer = myAuthentication.validateToken(token)

Content Finder methods

getAvailableAttributes

Dim myContentFinder As New ContentFinder
Dim attributeDescArray As AttributeDesc() = myContentFinder.getAvailableAttributes("DataFile", token)

 

getAvailableServices

Dim myContentFinder As New ContentFinder
Dim myAvailableServices As String() = myContentFinder.getAvailableServices(token)

 

getDependentContent

Dim myContentFinder As New ContentFinder
Dim myContentFinderRecordArray As ContentFinderRecord = myContentFinder.getDependentContent(myContentFinderRecordID, token)

 

getRecord

Dim myContentFinder As New ContentFinder
Dim myContentFinderRecord As ContentFinderRecord = myContentFinder.getRecord(myContentFinderRecordID, token)

 

getSubContent

Dim myContentFinder As New ContentFinder
Dim myContentFinderRecordArray As ContentFinderRecord = myContentFinder.getSubContent(myContentFinderRecordID, token)

 

getUniqueValues

Dim myContentFinder As New ContentFinder
Dim myUniqueValues As String() = myContentFinder.getUniqueValues("DataSource", "title", token)

 

getVersion

Dim myContentFinder As New ContentFinder
Dim version As String = myContentFinder.getVersion()

 

searchRecords

Dim myContentFinder As New ContentFinder
Dim myContentFinderResultSet As ContentFinderResultSet = myContentFinder.searchRecords(myContentFinderSearchOptions, token)

Data Manager methods

addFeatures

Dim myDataManager As New DataManager
Dim myFeatureIDInfoArray() As FeatureIDInfo = myDataManager.addFeatures("MyDataFile", myFeaturesArray, False, token)

 

createDataFile

Dim myDataManager As New DataManager
myDataManager.createDataFile(myDataFile, token)

 

deleteDataFile

Dim myDataManager As New DataManager
myDataManager.deleteDataFile("MyDataFile", token)

 

deleteFeatures

Dim myDataManager As New DataManager
myDataManager.deleteFeatures("MyDataFile", myFeatureIDArray, token)

 

findFeatures

Dim myDataManager As New DataManager
Dim myFeatureResultSet As FeatureResultSet = myDataManager.findFeature("MyDataFile", myFeatureSearchOptions, token)

 

geocodeFeatures

Dim myDataManager As New DataManager
Dim myGeocodeInfoArray() As GeocodeInfo = myDataManager.geocodeFeatures("MyDataFile", myFeatureIDsArray, myGeocodeOptions, token)

 

getAvailableDataFileAttributes

Dim myDataManager As New DataManager
Dim myAttributeDescArray() As AttributeDesc = myDataManager.getAvailableDataFileAttributes(token)

 

getDataFilesInfo

Dim myDataManager As New DataManager
Dim myDataFileInfoArray() As DataFileInfo = myDataManager.getDataFilesInfo(myStringArray, token)

 

getUniqueValues

Dim myDataManager As New DataManager
Dim myStringSet As StringSet = myDataManager.getUniqueValues("MyDataFile", "owner_id", myResultSetRange, token)

 

getVersion

DataFinder myDataFinder = new DataFinder;
string version = myDataFinder.getVersion();

 

renameField

Dim myDataManager As New DataManager
Dim version As String = myDataManager.getVersion()

 

updateDataFile

Dim myDataManager As New DataManager
myDataManager.updateDataFile("MyDataFile", myDataFile, token)

 

updateFeatures

Dim myDataManager As New DataManager
myDataManager.updateFeatures("MyDataFile", myFeatureUpdateOptions, myFeatureIDsArray, token)

Map Image methods

convertMapCoordsToPixelCoords

Dim myMapImage As New MapImage
Dim myPixelCoordArray() As PixelCoord = myMapImage.convertMapCoordsToPixelCoords(myMapArea, myMapImageSize, myPointArray, token)

 

convertPixelCoordsToMapCoords

Dim myMapImage As New MapImage
Dim myPointArray() As Point = myMapImage.convertPixelCoordsToMapCoords(myMapArea, myMapImageSize, myPixelCoordinateArray, token)

 

getBestMap

Dim myMapImage As New MapImage
Dim myMapImageInfo As MapImageInfo = myMapImage.getBestMap(myMapImageOptions, 100, token)

 

getBestMapArea

Dim myMapImage As New MapImage
Dim myMapArea As MapArea = myMapImage.getBestMapArea(myMapImageOptions, 100, token)

 

getCustomThematicMap

Dim myMapImage As New MapImage
Dim myMapImageInfo As MapImageInfo = myMapImage.getCustomThematicMap(myMapArea, myMapImageOptions, myThematicData, myThematicOptions, myThematicColors, token)

 

getESRIThematicMap

Dim myMapImage As New MapImage
Dim myMapImageInfo As MapImageInfo = myMapImage.getESRIThematicMap(myMapArea, myMapImageOptions, AVGHHINC, myThematicOptions, myThematicColors, token)

 

getFusedMapImage

Dim myMapImage As New MapImage
Dim myFusedMapImage As String = myMapImage.getFusedMapImage(myMapFusionOptionsArray, "png", token)

 

getMaps

Dim myMapImage As New MapImage
Dim myMapImageInfoArray() As MapImageInfo = myMapImage.getMaps(myMapAreaArray, myMapImageOptionsArray, token)

 

getMarkerNames

Dim myMapImage As New MapImage
Dim markerNamesArray() As String = myMapImage.getMarkerNames("ArcWeb:ESRI.Raster.Icons", token)

 

getSavedMap

Dim myMapImage As New MapImage
Dim myMapImageInfo As MapImageInfo = myMapImage.getSavedMap("savedMapID", token)

 

getThematicFields

Dim myMapImage As New MapImage
Dim thematicFields() As String = myMapImage.getThematicFields("ArcWeb:ESRI.ZipCodes.US", token)

 

getValueMap

Dim myMapImage As New MapImage
Dim myMapImageInfo As MapImageInfo = myMapImage.getValueMap(myMapArea, myMapImageOptions, myThematicData, myKeyValueArray, myThematicOptions, token)

 

getVersion

Dim myMapImage As New MapImage
Dim version As String = myMapImage.getVersion()

 

saveMap

Dim myMapImage As New MapImage
Dim myMap As String = myMapImage.saveMap(myMapArea, myMapImageOptions, token)

Place Finder methods

findPlace

Dim myPlaceFinder As New PlaceFinder
Dim myGeocodeInfo As GeocodeInfo  = myPlaceFinder.findPlace("redlands", myPlaceFinderOptions, token)

 

getInfo

Dim myPlaceFinder As New PlaceFinder
Dim myDataSourceArray() As String = {"ArcWeb:ESRI.Gazetteer.World", "ArcWeb:TA.PostalPlaces.US"}
Dim myPlaceFinderInfoArray() As PlaceFinderInfo = myPlaceFinder.getInfo(myDataSourceArray, token)

 

getVersion

Dim myPlaceFinder As New PlaceFinder
Dim version As String = myPlaceFinder.getVersion()

Place Finder Sample methods

findPlace

Dim myPlaceFinderSample As New PlaceFinderSample
Dim myGeocodeInfo As GeocodeInfo = myPlaceFinderSample.findPlace("redlands", myPlaceFinderOptions)

 

getInfo

Dim myPlaceFinderSample As New PlaceFinderSample
Dim myPlaceFinderInfo As PlaceFinderInfo = myPlaceFinderSample.getInfo()

 

getVersion

Dim myPlaceFinderSample As New PlaceFinderSample
Dim version As String = myPlaceFinderSample.getVersion()

Report methods

createPDFDocument

Dim myReport As Report = New Report
Dim myAvailableTemplateNamesArray() As String = myReport.getAvailableTemplateNames(token)
Dim templateName As String = myAvailableTemplateNamesArray(0)
Dim myPDFDocument As String = myReport.createPDFDocument(templateName, myKeyValueArray, token)

 

getAvailableTemplateName

Dim myReport As Report = New Report
Dim myAvailableTemplateNamesArray() As String = myReport.getAvailableTemplateNames(token)

 

getCustomSiteReport

Dim myReport As Report = New Report
Dim myReportInfo As ReportInfo = myReport.getCustomSiteReport(mySite, myReportOptionsArray, myCustomReportVariablesArray, token)

 

getCustomStandardGeographyReport

Dim myReport As Report = New Report
Dim myReportInfo As ReportInfo = myReport.getCustomStandardGeographyReport(myStandardGeographyArray, myReportOptions, myCustomReportVariablesArray, token)

 

getCustomVariables

Dim myReport As Report = New Report
Dim myCustomVariableInfoArray() As CustomVariableInfo = myReport.getCustomVariables("ArcWeb:ESRI.DemographicAndIncome.US", token)

 

getDatabases

Dim myReport As Report = New Report
Dim myDatabasesArray() As String = myReport.getDatabases(token)

 

getGeographyIDs

Dim myReport As Report = New Report
Dim myResultSet As ResultSet = myReport.getGeographyIDs(myGeographyIDOptions, token)

 

getReportHeaderKeys

Dim myReport As Report = New Report
Dim myKeyValueArray() As KeyValue = myReport.getReportHeaderKeys("getStandardGeographyReport",token)

 

getSiteReports

Dim myReport As Report = New Report
Dim myReportInfoArray() As ReportInfo = myReport.getSiteReports(mySite, myReportOptionsArray, True, token)

 

getStandardGeographyReport

Dim myReport As Report = New Report
Dim myReportInfo As ReportInfo = myReport.getStandardGeographyReport(myStandardGeographyArray, myReportOptions, token)

 

getTables

Dim myReport As Report = New Report
Dim myDatabasesArray() As String = myReport.getDatabases(token)
Dim database As String = myDatabasesArray(0)
Dim myTablesArray() As String = myReport.getTables(database, token)

 

getThematicMapReport

Dim myReport As Report = New Report
Dim myDatabasesArray() As String = myReport.getDatabases(token)
Dim database As String = myDatabasesArray(0)
Dim myTablesArray() As String = myReport.getTables(database, token)
Dim table As String = myTablesArray(0)
Dim myThematicVariableInfoArray() As ThematicVariableInfo = myReport.getThematicVariables(database, table, token)
Dim thematicVariableInfo As ThematicVariableInfo = myThematicVariableInfoArray(0)
Dim thematicVariable As String = thematicVariableInfo.variable
Dim myReportInfo As ReportInfo = myReport.getThematicMapReport(mySiteArray, myReportOptions, myThematicReportOptions, thematicVariable, token)

 

getThematicVariables

Dim myReport As Report = New Report
Dim myDatabasesArray() As String = myReport.getDatabases(token)
Dim database As String = myDatabasesArray(0)
Dim myTablesArray() As String = myReport.getTables(database, token)
Dim table As String = myTablesArray(0)
Dim myThematicVariableInfoArray() As ThematicVariableInfo = myReport.getThematicVariables(database, table, token)

 

getVersion

Dim myReport As Report = New Report
Dim myVersion As String = myReport.getVersion()

 

searchThematicVariables

Dim myReport As Report = New Report
Dim myDatabasesArray() As String = myReport.getDatabases(token)
Dim database As String = myDatabasesArray(0)
Dim myTablesArray() As String = myReport.getTables(database, token)
Dim table As String = myTablesArray(0)
Dim myThematicVariableInfoArray() As ThematicVariableInfo = myReport.getThematicVariables(database, table, token)
Dim thematicVariableInfo As ThematicVariableInfo = myThematicVariableInfoArray(0)
Dim keyword As String = thematicVariableInfo.shortDesc
Dim myThematicVariableInfoArray() As ThematicVariableInfo = myReport.searchThematicVariables(keyword, token)

Route Finder methods

findRoute

Dim myRouteFinder As New RouteFinder
Dim myRouteInfo As RouteInfo = myRouteFinder.findRoute(myRouteStopArray, myRouteFinderOptions, token)

 

getLanguages

Dim myRouteFinder As New RouteFinder
Dim languages() As String = myRouteFinder.getLanguages(token)

 

getVersion

Dim myRouteFinder As New RouteFinder
Dim version As String = myRouteFinder.getVersion()

Spatial Query methods

findFeaturesByExtent

Dim mySpatialQuery As New SpatialQuery
Dim myResultSet As ResultSet = mySpatialQuery.findFeaturesByExtent(myEnvelope, mySpatialQueryOptions, token)

 

findFeaturesByGeometry

Dim mySpatialQuery As New SpatialQuery
Dim myResultSet2 As ResultSet = mySpatialQuery.findFeaturesByGeometry(myGeometry, mySpatialQueryOptions, token)

 

findFeaturesByPoint

Dim mySpatialQuery As New SpatialQuery
Dim myResultSet3 As ResultSet = mySpatialQuery.findFeaturesByPoint(myPoint, mySpatialQueryOptions, token)

 

getAvailableFieldNames

Dim mySpatialQuery As New SpatialQuery
Dim myDataSourcesArray() As String = {"ArcWeb:ESRI.Airports.World","ArcWeb:FEMA.Flood.US"}
Dim mySpatialQueryInfo() As SpatialQueryInfo = mySpatialQuery.getAvailableFieldNames(myDataSourcesArray, token)

 

getVersion

SpatialQuery mySpatialQuery = new SpatialQuery;
string version = mySpatialQuery.getVersion();

Utility methods

convertCircleToGeometry

Dim myUtility As New Utility
Dim myGeometry As Geometry = myUtility.convertCircleToGeometry(myCircle,5,token)

 

convertCircularArcToGeometry

Dim myUtility As New Utility
Dim myGeometry As Geometry = myUtility.convertCircularArcToGeometry(myCircularArc,5,token)

 

convertEllipseToGeometry

Dim myUtility As New Utility
Dim myGeometry As Geometry = myUtility.convertEllipseToGeometry(myEllipse,5,token)

 

getBestProjection

Dim myUtility As New Utility
Dim myEnvelope As Envelope = myUtility.getBestProjection(myEnvelope,token)

 

getDataCollectionDate

Dim myUtility As New Utility
Dim myDataCollectionDate As String = myUtility.getDataCollectionDate("ArcWeb:GlobeXplorer.DOQQ.US",myEnvelope,myMapImageSize,token)

 

getDistance

Dim myUtility As New Utility
Dim myDistanceInfo As DistanceInfo = myUtility.getDistance(myLocation1,myLocation2,"km",100,True,token)

 

getDriveTime

Dim myUtility As New Utility
Dim myDriveTime As Geometry = myUtility.getDriveTime("ArcWeb:TA.Streets.NA",myPoint,20,"km",token)

 

getSupportedProjections

Dim myUtility As New Utility
Dim myKeyValueArray() As KeyValue = myUtility.getSupportedProjections("all",token)

 

getVersion

Dim myUtility As New Utility
Dim myVersion As String = myUtility.getVersion()

 

projectExtent

Dim myUtility As New Utility
Dim myProjectedExtent As Envelope = myUtility.projectExtent(myEnvelope,myCoordSys,token)

 

projectGeometry

Dim myUtility As New Utility
Dim myProjectedGeometry As Geometry = myUtility.projectGeometry(myGeometry,myCoordSys,token)

 

projectPoint

Dim myUtility As New Utility
Dim myProjectedPoint As Point = myUtility.projectPoint(myPoint,myCoordSys,token)

Wireless Location methods

getDeviceLocation

Dim myWirelessLocation As New WirelessLocation
Dim myDeviceLocationInfoArray() As DeviceLocationInfo = myWirelessLocation.getDeviceLocation(myMobileDeviceArray, myDeviceLocationOptions, token)

 

getDeviceStatus

Dim myWirelessLocation As New WirelessLocation
Dim myDeviceStatusArray() As DeviceStatus = myWirelessLocation.getDeviceStatus(myMobileDeviceArray, token)

 

getDeviceStops

Dim myWirelessLocation As New WirelessLocation
Dim myDeviceStopInfoArray() As DeviceStopInfo = myWirelessLocation.getDeviceStops(myDeviceStopOptions, token)

 

getTripInfo

Dim myWirelessLocation As New WirelessLocation
Dim myDeviceTripInfo As DeviceTripInfo = myWirelessLocation.getTripInfo(myDeviceTripOptions, token)

 

getVersion

Dim myWirelessLocation As New WirelessLocation
Dim version As String = myWirelessLocation.getVersion()

 

sendSMS

Dim myWirelessLocation As New WirelessLocation
Dim mySMSArray() As String = myWirelessLocation.sendSMS(myMobileDeviceArray, "This message can have a max of 160 ASCII characters", token)

 


Visit the Feedback page to give comments or suggestions about the ArcWeb Developer's Guide.

ArcWeb site | ArcWeb support | support.esri.com

Copyright © ESRI