Anasayfa > Kodlar > Delphi ile XML web servislerini kullanmak

Delphi ile XML web servislerini kullanmak


Delphi  XML Web Servisleri Giriş

Delphi  XML Web Servisleri Giriş

İlk Olarak Yapmamız gereken yeni bir proje oluşturmak bunun için File | New - Other yolunu izliyor ve karşımıza çıkan pencereden "ASP.Net Web Service Application" ı seçiyoruz.
OK" tuşana basmamızın ardında bize  projemize vereceğimiz ismi, yolu ve hangi web server ı kullanmak istediğimizi soran bir pencere çıkacak. Bu pencerede proje ismi için varsayılan değer "WebServiceApplication1" , yol için varsayılan değer "c:\inetpub\wwwroot\WebServiceApplication1" ve kullanılacak server için de IIS tir.

Bu ekranda gerekli isimleri verip "OK" e basmanızın ardından belirttiğiniz path i kullanan bir sanal dizin oluşturulacak ve default dosyalar ilgili dizinde oluşturulacaktır.

Şimdi WebService1.pas  oluşturulduğuna göre biraz incelemekte fayda var.

Hemen kodlamaya geçerek bir  web servisimizi yazalım İlk örneğimiz olması bakımından ben yine "Toplama" function kullanacağım.

WebService1.pas a geçerek yeni bir function oluşturuyorum ve motodumuz şu kodlardan ibaret:

function TWebService1.Toplama(x: integer; y: integer):integer;
begin
Toplama:= x * y; //result:=x * y;
end;

Uygulamamızı çalıştırdığımızda karşımıza web servisimizi denememiz için .Net Framework tarafından oluşturulan test sayfası çıkıyor.

Bu ekranda "Toplama" linkine tıklamanız durumunda web servisimizin mantığını oluşturan çarpılacak iki sayıyı girebileceğiniz bir form karşınıza çıkıyor.


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: