Birinci bölümde delphi ile SAOP.SoapClient Nesnesi kullanarak ASP.NET XML
web servislerine bağlanmayı anlatmıştım. Bu kez delphi7 özellikle
:::DELPHİ7:::
(delphi 6 da başaramadım)
ile HTTPRIO bileşeni XML web servislerine bağlanmayı anlatacağım fakat baştaki
bilgileri tekrar edelim...
Öncelikle bu konu uzun bir konu tümünü anlatamam .NET / VB sitelerinden araştırın.
1 - XML Web servisleri basitçe VB, C# ile yazılır (.NET ) en altta örnek verilecektir.
2 - asmx uzantılı dosya olurlar
3 - bizim örneğimizdewebservisimiz
'http://www27.brinkster.com/netservicex/service.asmx'
dosyasıdır.
4 - içerisinde Function Add(a As Integer, b As Integer) As Integer
visual basic fomksiyonu vardır
5 - fonksiyon iki sayısı toplar ve sonucu integer olarak döndürür.
DELPHI 7 de
1- File->New->Other->Web Services->WSDL importer ile
'http://www27.brinkster.com/netservicex/service.asmx?WSDL' (tırnaklar yok)
adresini import edin service adında bir unit oluşacak.
2- ana formunuza uses service; ile yeni uniti ekleyin
3- WebServices sekmesinden HTTPRIO bileşenini formunuza ekleyin
4- a ) WTTPRIO1 bileşeninin WSDL Location özelliğini
'http://www27.brinkster.com/netservicex/service.asmx'
yapın
b ) Service özelliğine tıklayın service adını 'ArdaService' olarak
kendisi bulacaktır (nete bağlı olmanız gerekir) Şayet bulmazsa 'ArdaService'
olarak kendim girerim (nete bağlı olduğunuzda bulması gerekir) Bu adı nerden mi
biliyorum aşağıdaki web service kodunu inceleyin bakalım class ne imiş :))))
c ) Port adınıda yine 'ArdaServiceSoap' olarak kendi buluyor.
5- Formunuza bir buton ve bir edit ekleyin. Butona :
var
servis:ArdaServiceSoap;
begin
servis:=(HTTPRIO1 As ArdaServiceSoap);
Edit1.Text:=IntToStr(servis.add(1,3));
end;
çalıştırdığımızda edit kutumuzda 4 görüyor isek olay bitmiştir geçmiş olsun !!!!!
Aşağıda server da kullandığımız service.asmx dosyası verilmiştir.
//-------------- service.asmx ---------------------------//
<%@ WebService language="VB" class="ArdaService" %>
Imports System
Imports System.Web.Services
Imports System.Xml.Serialization
Public Class ArdaService
Public Function Add(a As Integer, b As Integer) As Integer
Return a + b
End Function
Public Function cikar(a As Integer, b As Integer) As Integer
Return a - b
End Function
End Class
NOT :
=========
www.webservicex.net ve www.xmethods.net de hazır webservisleri bulunmaktadır
kolay gelsin.