'------------------------------------------------------------------------------ ' ' 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