Contoh Web Services

Setiap aplikasi dapat memiliki komponen Web Service.

Pembuatan dan pemrograman Web Services tidak berhubungan dengan jenis bahasa pemrograman.

Contoh: ASP.NET Web Service

Dalam contoh ini, kita akan menggunakan ASP.NET untuk membuat Web Service sederhana.

<%@ WebService Language="VB" Class="TempConvert" %>
Imports System
Imports System.Web.Services
Public Class TempConvert :Inherits WebService
<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit As Int16) As Int16
	Dim celsius As Int16 
	celsius = ((((Fahrenheit) - 32) / 9) * 5) 
	Return celsius
End Function
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius As Int16) As Int16
	Dim fahrenheit As Int16
	fahrenheit = ((((Celsius) * 9) / 5) + 32) 
	Return fahrenheit
End Function
End Class

Dokumen ini adalah file .asmx. Ini adalah ekstensi file ASP.NET untuk XML Web Services.

Untuk menjalankan contoh ini, kita memerlukan server .NET

Baris pertama dalam dokumen ini menunjukkan bahwa ini adalah Web Service, ditulis dalam VB, dan nama kelasnya adalah "TempConvert".

<%@ WebService Language="VB" Class="TempConvert" %>

Baris kode berikut mengimpor ruang nama "System.Web.Services" dari framework .NET.

Imports System
Imports System.Web.Services

Baris berikut menentukan kelas "TempConvert" adalah kelas WebSerivce:

Public Class TempConvert :Inherits WebService

Langkah berikut adalah dasar pemrograman VB. Aplikasi ini mempunyai dua fungsi. Satu untuk mengubah derajat Fahrenheit ke derajat Celcius, dan yang lain untuk mengubah derajat Celcius ke derajat Fahrenheit.

Perbezaan tunggal antara aplikasi biasa dan fungsi ini adalah ia diatur sebagai "WebMethod".

Sila guna "WebMethod" untuk menandai fungsi di aplikasi yang anda inginkan untuk menjadi web services.

<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit As Int16) As Int16
	Dim celsius As Int16 
	celsius = ((((Fahrenheit) - 32) / 9) * 5) 
	Return celsius
End Function
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius As Int16) As Int16
	Dim fahrenheit As Int16
	fahrenheit = ((((Celsius) * 9) / 5) + 32) 
	Return fahrenheit
End Function

Hal terakhir yang harus dilakukan adalah mengakhiri fungsi dan kelas:

End Function
End Class

Jika Anda menyimpan berkas ini sebagai berkas .asmx dan mengumumkannya di server yang mendukung .NET, maka Anda telah memiliki Web Service yang bekerja pertama kalinya.

Pemrosesan Otomatis ASP.NET

Dengan ASP.NET, Anda tidak perlu menulis dokumen WSDL dan SOAP secara manual.

Jika Anda mempelajari contoh ini dengan teliti, Anda akan menemukan bahwa ASP.NET akan membuat secara otomatis WSDL dan permintaan SOAP.