Guys,
I'm new to gis and am devloping an app to talk to GIS. The problem is that I error out every time I try and recive notiifcation of the stat. It's more than likely my code. But I'll post for you to review and even send me some sample code
Dim class1 As New GISStatisticClass
stat_value = "Error"
class1.SubscribeToStatistic(theHost, Session, StatServer, Tenant, objecttype, objectname, statistic)
Dim subscriptions1 As New StatServiceService.statisticSubscriptions
Dim subscription1 As New StatServiceService.statisticSubscription
subscription1.scope = "all"
subscription1.statisticId = "statref1"
Dim subscriptionArray1(1) As StatServiceService.statisticSubscription
' ReDim subscriptionArray1(1)
subscriptionArray1(0) = subscription1 '.scope = "all" ' .SetValue(subscription1, 0)
' subscriptionArray1(0).statisticId = "statref1"
subscriptions1.statisticSubscription = subscriptionArray1
Dim notification1 As New StatServiceService.notification
notification1.mode = StatServiceService.notificationMode.Polling
notification1.timeout = "15"
Dim response1 As StatServiceService.retrieveSubscribedStatisticsResponse
response1 = class1.port_stat.retrieveSubscribedStatistics(subscriptions1, notification1)
Dim value1 As StatServiceService.statisticValue
value1 = response1.statisticValues.GetValue(0)
lstat_value = CType(value1.eventValues.GetValue(0), StatServiceService.eventValue).LValue
stat_value = Convert.ToString(lstat_value)
Console.WriteLine(("Retrieved statistic value = " & stat_value))
class1.unsubscribe()
End Sub
