Merhaba,
Kimlik paylaşım servisini biliyorsunuz, buna bağlanıp TCKIMLIKNO sorgulayacak ve geriye Nüfus Kayıt Örneğinde kaç birey varsa, "AdSoyad", "TCNo" ve "Yakinlik" bilgisini listeleyecek.
Delphi kodunu yazan kişiye, component fiyatı ödüldür. Yazan kişi benimle irtibata geçerse, birlikte uzak bağlantıyla deneriz. Yazdığı kod çalışırsa, ödülünü alır
- * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - *
Delphi'ye WSDL'i import edince oluşan unit de var, ektedir
NkoSorgulaService.txt (Dosya Boyutu: 59,14 KB / İndirme Sayısı: 31)
- * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - *
Çalışan Visual Studio c# kodu aşağıdaki gibidir.
private void NKObirey_Click(object sender, EventArgs e)
{
string userName = "GenelMudurluk";
string pwd = "Genel_2021_Mudurluk";
string sorgulayanTC = "35297317801";
NKOWSintra.NkoTCKimlikNoSorguKriteri[] kriterListV2 = new NKOWSintra.NkoTCKimlikNoSorguKriteri[1];
kriterListV2[0] = new NKOWSintra.NkoTCKimlikNoSorguKriteri()
{
EskiEsListele = true,
NKOTipi = NKOWSintra.NkoTur.NufusAileKayitOrnekKardesDahil,
TCKimlikNo = long.Parse(KimlikNo.Text),
Vukuatli = true
};
NKOWSintra.NkoSorgulaResp resp =
GetService<NKOWSintra.NkoSorgulaServiceClient, NKOWSintra.INkoSorgulaService>
(userName, pwd, sorgulayanTC).NkoSorgula(new NKOWSintra.NkoSorgulaReq() { KriterListesi = kriterListV2, cacheVeriGecerlilikSuresi = 0 });
NKOWSintra.NkoSonucu kisiSonuc = resp.SorguSonucu;
DataTable dt = new DataTable();
if (kisiSonuc != null)
{
NKOWSintra.NkoKisi kisi = new NKOWSintra.NkoKisi();
if (kisiSonuc.SorguSonucu[0] != null)
{
dt.Columns.Add("AdSoyad", typeof(string));
dt.Columns.Add("TCNo", typeof(string));
dt.Columns.Add("Yakinlik", typeof(string));
for (int i = 0; i < kisiSonuc.SorguSonucu[0].Kisiler.Length; i++)
{
DataRow dr = dt.NewRow();
dr["AdSoyad"] = kisiSonuc.SorguSonucu[0].Kisiler[i].TemelBilgisi.Ad + " " + kisiSonuc.SorguSonucu[0].Kisiler[i].TemelBilgisi.Soyad;
dr["TCNo"] = kisiSonuc.SorguSonucu[0].Kisiler[i].TCKimlikNo.ToString();
dr["Yakinlik"] = kisiSonuc.SorguSonucu[0].Kisiler[i].YakinlikKod.Aciklama.ToString();
dt.Rows.Add(dr);
}
}
GridView1.DataSource = dt.DefaultView;
}
}
private static TClient GetService<TClient, TChannel>(string username, string password, string uygulamaKullaniciAdi)
where TClient : ClientBase<TChannel> where TChannel : class
{
TClient result = Activator.CreateInstance<TClient>() as TClient;
ClientBase<TChannel> client = result as ClientBase<TChannel>;
AddHeaders(client, username, password, uygulamaKullaniciAdi);
return result;
}
public static void AddHeaders<T>(System.ServiceModel.ClientBase<T> client, string username, string password, string uygulamaKullaniciAdi) where T : class
{
EndpointAddressBuilder addressBuilder = new EndpointAddressBuilder(client.Endpoint.Address);
addressBuilder.Headers.Add(AddressHeader.CreateAddressHeader("KullaniciAdi", string.Empty, username));
addressBuilder.Headers.Add(AddressHeader.CreateAddressHeader("Parola", string.Empty, password));
addressBuilder.Headers.Add(AddressHeader.CreateAddressHeader("UygulamaKullaniciAdi", string.Empty, uygulamaKullaniciAdi));
client.Endpoint.Address = addressBuilder.ToEndpointAddress();
}
- * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - *
Türkiye'de en çok erişilen web servislerinden biri KPS Kimlik Paylaşım Servisi...
Şimdiye kadar kimse yazmamış mı ?
Kimlik paylaşım servisini biliyorsunuz, buna bağlanıp TCKIMLIKNO sorgulayacak ve geriye Nüfus Kayıt Örneğinde kaç birey varsa, "AdSoyad", "TCNo" ve "Yakinlik" bilgisini listeleyecek.
Delphi kodunu yazan kişiye, component fiyatı ödüldür. Yazan kişi benimle irtibata geçerse, birlikte uzak bağlantıyla deneriz. Yazdığı kod çalışırsa, ödülünü alır
- * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - *
Delphi'ye WSDL'i import edince oluşan unit de var, ektedir
NkoSorgulaService.txt (Dosya Boyutu: 59,14 KB / İndirme Sayısı: 31)
- * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - *
Çalışan Visual Studio c# kodu aşağıdaki gibidir.
private void NKObirey_Click(object sender, EventArgs e)
{
string userName = "GenelMudurluk";
string pwd = "Genel_2021_Mudurluk";
string sorgulayanTC = "35297317801";
NKOWSintra.NkoTCKimlikNoSorguKriteri[] kriterListV2 = new NKOWSintra.NkoTCKimlikNoSorguKriteri[1];
kriterListV2[0] = new NKOWSintra.NkoTCKimlikNoSorguKriteri()
{
EskiEsListele = true,
NKOTipi = NKOWSintra.NkoTur.NufusAileKayitOrnekKardesDahil,
TCKimlikNo = long.Parse(KimlikNo.Text),
Vukuatli = true
};
NKOWSintra.NkoSorgulaResp resp =
GetService<NKOWSintra.NkoSorgulaServiceClient, NKOWSintra.INkoSorgulaService>
(userName, pwd, sorgulayanTC).NkoSorgula(new NKOWSintra.NkoSorgulaReq() { KriterListesi = kriterListV2, cacheVeriGecerlilikSuresi = 0 });
NKOWSintra.NkoSonucu kisiSonuc = resp.SorguSonucu;
DataTable dt = new DataTable();
if (kisiSonuc != null)
{
NKOWSintra.NkoKisi kisi = new NKOWSintra.NkoKisi();
if (kisiSonuc.SorguSonucu[0] != null)
{
dt.Columns.Add("AdSoyad", typeof(string));
dt.Columns.Add("TCNo", typeof(string));
dt.Columns.Add("Yakinlik", typeof(string));
for (int i = 0; i < kisiSonuc.SorguSonucu[0].Kisiler.Length; i++)
{
DataRow dr = dt.NewRow();
dr["AdSoyad"] = kisiSonuc.SorguSonucu[0].Kisiler[i].TemelBilgisi.Ad + " " + kisiSonuc.SorguSonucu[0].Kisiler[i].TemelBilgisi.Soyad;
dr["TCNo"] = kisiSonuc.SorguSonucu[0].Kisiler[i].TCKimlikNo.ToString();
dr["Yakinlik"] = kisiSonuc.SorguSonucu[0].Kisiler[i].YakinlikKod.Aciklama.ToString();
dt.Rows.Add(dr);
}
}
GridView1.DataSource = dt.DefaultView;
}
}
private static TClient GetService<TClient, TChannel>(string username, string password, string uygulamaKullaniciAdi)
where TClient : ClientBase<TChannel> where TChannel : class
{
TClient result = Activator.CreateInstance<TClient>() as TClient;
ClientBase<TChannel> client = result as ClientBase<TChannel>;
AddHeaders(client, username, password, uygulamaKullaniciAdi);
return result;
}
public static void AddHeaders<T>(System.ServiceModel.ClientBase<T> client, string username, string password, string uygulamaKullaniciAdi) where T : class
{
EndpointAddressBuilder addressBuilder = new EndpointAddressBuilder(client.Endpoint.Address);
addressBuilder.Headers.Add(AddressHeader.CreateAddressHeader("KullaniciAdi", string.Empty, username));
addressBuilder.Headers.Add(AddressHeader.CreateAddressHeader("Parola", string.Empty, password));
addressBuilder.Headers.Add(AddressHeader.CreateAddressHeader("UygulamaKullaniciAdi", string.Empty, uygulamaKullaniciAdi));
client.Endpoint.Address = addressBuilder.ToEndpointAddress();
}
- * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - * - *
Türkiye'de en çok erişilen web servislerinden biri KPS Kimlik Paylaşım Servisi...
Şimdiye kadar kimse yazmamış mı ?
