Mega Code Archive
Delphi ile xml web servislerinin kullanılması [web services]
<![CDATA[
Ö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://b.domaindlx.com/armet/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.
Bu fonksiyona delphi ile
// uses CobObj rklemeniz gerekir.
procedure TForm1.Button1Click(Sender: TObject);
var
soapclient:OleVariant;
begin
SoapClient := CreateOleObject('MSSOAP.SoapClient');
try
soapclient.mssoapinit('http://b.domaindlx.com/armet/service.asmx?WSDL');
label1.Caption:=IntTostr(soapclient.add(1,2));
finally
soapclient := null;
end;//try
end;
erişebilirsiniz. Label1 deki sonucun 3 olduğunu göreceksiniz.
Bazı VB web servislerinde sonuç DATASET olarak dönecektir DATASET in struct yapısını
inceleyerek kendi delphi tipinizi (type) oluşturup veritabanı bilgilerinide alabilirsiniz.
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
<WebMethod> Public Function Add(a As Integer, b As Integer) As Integer
Return a + b
End Function
<WebMethod> 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.
]]>