Jak vytvořit a používat webové služby XML pomocí aplikace Visual Studio .NET nebo Visual Studio 2005

Souhrn

Tento článek ukazuje, jak vytvořit a používat webové služby XML pomocí aplikace Visual Studio .NET nebo Visual Studio 2005.

Požadavky

Následující seznam obsahuje doporučený hardware, software, síťovou infrastrukturu a aktualizace service Pack, které potřebujete:
  • Microsoft Visual Studio .NET nebo Microsoft Visual Studio 2005
  • Microsoft Internet Information Server 4.0 nebo Internetová informační služba 5.0
Tento článek předpokládá, že jste obeznámeni s následující témata:
  • Visual Basic .NET nebo Visual Basic 2005
  • Visual Studio .NET nebo Visual Studio 2005

Webové služby XML

Webové služby XML jsou opakovaně použitelný jednotky aplikační logiku, může vystavit klientů přes Internet. Webové služby jsou nezávislé na platformě. Kromě toho webové služby jsou založeny na standardech, které odvětví souhlasí na jazyku XML (Extensible Markup), protokol SOAP (SOAP) a protokol HTTP (Hypertext Transfer). Klientské aplikace může být některý z následujících kroků:
  • Webová aplikace ASP.NET
  • Aplikace systému Windows
  • Aplikace Pocket PC
  • Aplikace pro mobilní zařízení
  • Aplikace konzoly
Webové služby XML poskytnout informace o připojení v celé organizaci. Visual Studio .NET nebo Visual Studio 2005 umožňuje snadno vytvářet a používat webové služby XML.

Vytvoření webové služby

V této části vytvoříte webovou službu XML implementující Pythagorovy věty.
  1. Vytvořte nové ASP.NET webové služby v jazyce Visual Basic .NET nebo Visual Basic 2005 takto:
    1. Spusťte Visual Studio .NET nebo Visual Studio 2005 a potom klepněte na tlačítko Nový projekt.
    2. Ve skupinovém rámečku Typy projektůklepněte na tlačítko Projekty jazyka Visual Basic. Ve skupinovém rámečku šablonyklepněte na příkaz Webová služba ASP.NET.

      Poznámka: V aplikaci Visual Studio 2005 klepněte ve skupinovém rámečku Typy projektů jazyka Visual Basic .
    3. Do textového pole název zadejte
      PythagoreanTheoremWS.
  2. Přepněte do okna kód pro Service1.asmx. To provedete Service1.asmx v Průzkumníku řešení klikněte pravým tlačítkem myši a potom klepněte na tlačítko Zobrazit kód.
  3. Přidejte následující kód před příkaz End Class pro vytvoření nové funkce:
    Public Function PythagoreanTheorem(ByVal a As Double, _             ByVal b As Double) As Double

    End Function

  4. Pythagorova věta uvádí, že čtverec přepony trojúhelníku doprava je rovna součtu čtverců jiných dvou stran. Přidejte následující kód uvnitř funkce PythagoreanTheorem k implementaci tohoto matematického vzorce:
    Dim dblSum As Double        dblSum = a ^ 2 + b ^ 2
    Return Math.Sqrt(dblSum)

  5. Tato funkce plně implementovat Pythagorovy věty. Však funkce ještě není metoda webové služby. Zpřístupnit funkci jako metoda webové služby, přidejte atribut WebMethod deklarace metody. Kompletní funkce by měla vypadat takto:
    <WebMethod()> _    Public Function PythagoreanTheorem(ByVal a As Double, _
    ByVal b As Double) As Double
    Dim dblSum As Double
    dblSum = a ^ 2 + b ^ 2
    Return Math.Sqrt(dblSum)
    End Function

  6. V nabídce sestavení klepněte na tlačítko Sestavit řešení ke kompilaci této webové služby.

Pomocí webové služby

V této části vytvoříte aplikace systému Windows, který používá tato webová služba.
  1. Vytvořte nový projekt aplikace konzoly v jazyce Visual Basic .NET nebo Visual Basic 2005 k testování webové služby, které jste vytvořili v předchozí části.
  2. Pro přístup k webové služby z klientské aplikace, klienta nejprve musí obsahovat odkaz na webovou službu. Chcete-li přidat webový odkaz, otevřete okno Průzkumníka řešení, klikněte pravým tlačítkem projekt a potom klepněte na tlačítko Přidat webový odkaz.
  3. V dialogovém okně Přidat webový odkaz klepněte na tlačítko Webové odkazy na místní Server. Visual Studio .NET nebo Visual Studio 2005 vyhledá v místním počítači pro jakékoli dostupné webové služby. Tato operace může trvat několik minut.
  4. V části Dostupné odkazy klepněte na tlačítko http://localhost/PythagoreanTheorem/PythagoreanTheorem.vsdiscoa potom klepněte na tlačítko Přidat odkaz.
  5. Přepněte do okna kód pro Module1.vb a přidejte následující kód do procedury Sub Main :
        Dim hypotenuse As Double    Dim ws As New localhost.Service1()

    'Pythagorean Triple: 3, 4, 5
    hypotenuse = ws.PythagoreanTheorem(3, 4)
    Console.WriteLine(hypotenuse)


    'Pythagorean Triple: 5, 12, 13
    hypotenuse = ws.PythagoreanTheorem(5, 12)
    Console.WriteLine(hypotenuse)

    'Pythagorean Triple: 7, 24, 25
    hypotenuse = ws.PythagoreanTheorem(7, 24)
    Console.WriteLine(hypotenuse)

    Console.Read()

  6. V nabídce Debug klepněte na tlačítko Start ke spuštění aplikace. V okně konzoly se zobrazí následující výstup:
    5
    13
    25

Úplný výpis kódu

Imports System.Web.Services
<WebService(Namespace := "http://tempuri.org/")> _
Public Class Service1
Inherits System.Web.Services.WebService

#Region " Web Services Designer Generated Code "

Public Sub New()
MyBase.New()

'The Web Services Designer requires this call.
InitializeComponent()

'Add your own initialization code after the InitializeComponent() call.

End Sub

'The Web Services Designer requires this code.
Private components As System.ComponentModel.IContainer

'NOTE: The Web Services Designer requires this procedure.
'You can use the Web Services Designer to modify the procedure.
'However, do not use the Code editor to modify it.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
'CODEGEN: The Web Services Designer requires this procedure.
'Do not use the Code editor to modify it.
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

#End Region

' WEB SERVICE EXAMPLE
' The HelloWorld() sample Web service returns the string Hello World.
' To build, uncomment the following lines, and then save and build the project.
' To test this Web service, ensure that the .asmx file is the start page,
' and then press F5.
'
'<WebMethod()> Public Function HelloWorld() As String
'HelloWorld = "Hello World"
' End Function
<WebMethod()> _
Public Function PythagoreanTheorem(ByVal a As Double, ByVal b As Double) As Double
Dim dblSum As Double
dblSum = a ^ 2 + b ^ 2
Return Math.Sqrt(dblSum)

End Function
End Class


Module Module1

Sub Main()
Dim hypotenuse As Double
Dim ws As New localhost.Service1()

'Pythagorean Triple: 3, 4, 5
hypotenuse = ws.PythagoreanTheorem(3, 4)
Console.WriteLine(hypotenuse)

'Pythagorean Triple: 5, 12, 13
hypotenuse = ws.PythagoreanTheorem(5, 12)
Console.WriteLine(hypotenuse)

'Pythagorean Triple: 7, 24, 25
hypotenuse = ws.PythagoreanTheorem(7, 24)
Console.WriteLine(hypotenuse)

Console.Read()

End Sub

End Module

Odkazy

Další informace naleznete na následujících webech společnosti Microsoft:
Co jsou webové služby XML?
http://msdn.microsoft.com/en-us/library/aa286548.aspx

Základy na XML webové služby
http://msdn.microsoft.com/en-us/library/ms996507.aspx

Vytváření a přístup k XML webové služby, návody
http://msdn.microsoft.com/en-us/library/cbsxhx87(VS.80).aspx
Vlastnosti

ID článku: 315935 - Poslední kontrola: 20. 1. 2017 - Revize: 1

Váš názor