'------------------------------------------------------------------------------
'
' This code was generated by a tool.
' Runtime Version: 1.1.4322.573
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
'
'This source code was auto-generated by Microsoft.VSDesigner, Version 1.1.4322.573.
'
Namespace ndfdSOAPserver
'
_
Public Class ndfdXML
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Protected Overrides Function GetWebRequest(ByVal uri As Uri) As System.Net.WebRequest
Dim webRequest As System.Net.HttpWebRequest = MyBase.GetWebRequest(uri)
webRequest.KeepAlive = False
Return webRequest
End Function
'
Public Sub New()
MyBase.New()
Dim urlSetting As String = System.Configuration.ConfigurationSettings.AppSettings("NDFD_WebService.ndfdSOAPserver.ndfdXML")
If (Not (urlSetting) Is Nothing) Then
Me.Url = String.Concat(urlSetting, "")
Else
Me.Url = "http://www.weather.gov/forecasts/xml/SOAP_server/ndfdXMLserver.php"
End If
End Sub
'
_
Public Function NDFDgen(ByVal latitude As Decimal, ByVal longitude As Decimal, ByVal product As String, ByVal startTime As Date, ByVal endTime As Date, ByVal weatherParameters As weatherParametersType) As String
Dim results() As Object = Me.Invoke("NDFDgen", New Object() {latitude, longitude, product, startTime, endTime, weatherParameters})
Return CType(results(0), String)
End Function
'
Public Function BeginNDFDgen(ByVal latitude As Decimal, ByVal longitude As Decimal, ByVal product As String, ByVal startTime As Date, ByVal endTime As Date, ByVal weatherParameters As weatherParametersType, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("NDFDgen", New Object() {latitude, longitude, product, startTime, endTime, weatherParameters}, callback, asyncState)
End Function
'
Public Function EndNDFDgen(ByVal asyncResult As System.IAsyncResult) As String
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0), String)
End Function
'
_
Public Function NDFDgenByDay(ByVal latitude As Decimal, ByVal longitude As Decimal, ByVal startDate As Date, ByVal numDays As String, ByVal format As String) As String
Dim results() As Object = Me.Invoke("NDFDgenByDay", New Object() {latitude, longitude, startDate, numDays, format})
Return CType(results(0), String)
End Function
'
Public Function BeginNDFDgenByDay(ByVal latitude As Decimal, ByVal longitude As Decimal, ByVal startDate As Date, ByVal numDays As String, ByVal format As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("NDFDgenByDay", New Object() {latitude, longitude, startDate, numDays, format}, callback, asyncState)
End Function
'
Public Function EndNDFDgenByDay(ByVal asyncResult As System.IAsyncResult) As String
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0), String)
End Function
End Class
'
_
Public Class weatherParametersType
'
Public maxt As Boolean
'
Public mint As Boolean
'
Public temp As Boolean
'
Public dew As Boolean
'
Public pop12 As Boolean
'
Public qpf As Boolean
'
Public sky As Boolean
'
Public snow As Boolean
'
Public wspd As Boolean
'
Public wdir As Boolean
'
Public wx As Boolean
'
Public waveh As Boolean
'
Public icons As Boolean
'
Public rh As Boolean
'
Public appt As Boolean
End Class
End Namespace