Başlangıç > Kodlar > Delphi’de SOAP ile tc kimlik numarasını sorgulamak

Delphi’de SOAP ile tc kimlik numarasını sorgulamak

Email:altinisikahmet@gmail.com

Bu uygulamamizin amaci Nüfus ve Vatandaşlık Genel Müdürlüğünün XML servislerine SOAP standardı ile bağlanarak TC Kimlik Numarası islemleri yapmaktir.

ilk olarak http://www.tckimlik.nvi.gov.tr/ sitesindeki WSDL belgesini indirelim (WSDL dosyası)

Bu dosyayı delphi yapacaginiz programınızın kaydedilip çalıştırılacağı dizine kaydedin.Ben dosyayı Nufus.wsdl olarak kaydettim.

(Kodda Kullanilacak)

Bir Nufus.WSDL belgesini Delphi ile kullanabilmek için:

1. File / New / Other menüsünden New Items penceresini açarak Web Services sekmesindeki WSDL Importer  başlatın.Path olarak daha önce kaydettiğiniz nufus.wsdl dosyasının yolunu gösterin.

ileri komutunu verdiğimizde WSDL dosyasının Delphi'de kullanılmasını sağlayan Nufus.pas isminde Deplhi Source dosyasi  oluşturuluyor.

Simdide yeni bir Delphi  uygulamasi başlatarak uses bölümüne nufus dosyasını da ekleyin.

THTTPRIO (indy Clients sekmesinden) bileşenini formun üzerine yerleştirin.

WSDLLocation özelliğine nufus.wsdl dosyasını seçin,
Service özelliğini ve Port özelliğini seçin.(NufusWebService)

nufus.pas dosyasına baktığımızda 6 hazir fonksiyon olduğunu görüyoruz:

nufusWebServiceSoap = interface(IInvokable)
['{25BC430F-102E-DCB2-C875-56D6F192E8B7}']
function TCKimlikNoDogrula(const tcKimlikNo: Int64):
TCKimlikNoDogrulamaSonucu; stdcall;
function IlListesiGetir: ArrayOfIlBilgisi; stdcall;
function IlceListesiGetir: ArrayOfIlceBilgisi; stdcall;
function IleBagliIlceListesiGetir(const ilKodu: Integer):
ArrayOfIlceBilgisi; stdcall;
function KayitYerindenKimlikBilgisiSorgula(const be:
KayitYerindenKimlikBilgisi; const Ad: WideString; const Soyad: WideString):
KimlikBilgisi; stdcall;
function KisiBilgisindenKimlikBilgisiSorgula(const be:
TemelBilgilerdenKimlikBilgisi): KimlikBilgisi; stdcall;
end;

simdi Form Üzerine Bir Button Koyarak ilk Fonksiyonu deneyelim

procedure TFMain.btnKimlikDogrulaClick(Sender: TObject);
var
KimlikDogS : TCKimlikNoDogrulamaSonucu;
TCkimliknumarasi : int64;
begin
if length(edit1.text) <> 11 then
begin
showmessage('hata');
exit;
end;
try
TCkimliknumarasi := strtoint64(edit1.text);
except
showmessage('hata');
end;

try
KimlikDogS := (HTTPRIO1 as
nufusWebServiceSoap).TCKimlikNoDogrula(  TCkimliknumarasi);
except
showmessage('hata');
end;

try
Edit1.Text := KimlikDogs.Ad;
Edit2.Text := KimlikDogs.Soyad;
Edit3.Text := inttostr(KimlikDogs.DogumYil);
except

end;

end;

Nufus.wsdl dosyasindaki diger
fonksiyonları da aynı şekilde kullanabiliriz.


TD Software


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

Bir Cevap Yazı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: