reference.vb

Chuong trinh tren PDA cho phep ket noi ve server va cap nhat du lieu ve PDA

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.42
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

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.CompactFramework.Design.Data, Version 2.0.50727.42.
'
Namespace adadampv
    
    '''<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="TTAGatewayBinding", [Namespace]:="TTAGateway")>  _
    Partial Public Class TTAGateway
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://192.168.99.149/tta/servicettaara2/index.php"
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapRpcMethodAttribute("TTAGateway#TTADelivery", RequestNamespace:="TTAGateway", ResponseNamespace:="TTAGateway")>  _
        Public Function TTADelivery(ByVal data As String) As <System.Xml.Serialization.SoapElementAttribute("return")> String
            Dim results() As Object = Me.Invoke("TTADelivery", New Object() {data})
            Return CType(results(0),String)
        End Function
        
        '''<remarks/>
        Public Function BeginTTADelivery(ByVal data As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("TTADelivery", New Object() {data}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndTTADelivery(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),String)
        End Function
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapRpcMethodAttribute("TTAGateway#TTACheckChange", RequestNamespace:="TTAGateway", ResponseNamespace:="TTAGateway")>  _
        Public Function TTACheckChange(ByVal data As String) As <System.Xml.Serialization.SoapElementAttribute("return")> String
            Dim results() As Object = Me.Invoke("TTACheckChange", New Object() {data})
            Return CType(results(0),String)
        End Function
        
        '''<remarks/>
        Public Function BeginTTACheckChange(ByVal data As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("TTACheckChange", New Object() {data}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndTTACheckChange(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),String)
        End Function
    End Class
End Namespace