Web Servislerini kullanarak TC Kimlik No sorgulama (Düzeldi)

[bobasturk]

eline beynine sağlık hemen denedim her bölümü çalışıyor.

kolay gelsin.

[tuanna]

Coderlord arkadaşım sağ olasın bu makalen sayesinde çok sey öğrendim ben şimdi tc kimlik noları var 10000 tane bunları gönderiyorum listeyi alıyorum...ama Tc no hatalı olunca sonuc dönmediğinde hata verince döngüden çıkıyor...ve diğer kayıda geçmiyor...bunu nasıl çözebilirim...Yardımcı olan arkadaşlara şimdiden tşk ederim...

[fduman]

tc no sorgulama bölümünü try except bloğu arasına alırsan hata mesajı almazsın.

Kod: Tümünü seç

  try
    KimlikNoSorgula..
  except
    // Burası boş olmalı.
  end;

Delphi içinden çalıştırdığında hatayı almaya devam edersin. Dışından çalıştırırsan hata almayacaksın.

[tuanna]

---------------------------------------------------------------
var
Sonuc: TCKimlikNoDogrulamaSonucu;
begin
ADOTable1.First;
while not Adotable1.Eof do
begin
if Assigned(sonuc) then
begin
Sonuc:=KimlikNoDogrula(ADOTable1.FieldList.Fields[0].Value);
ADOTable1.Edit;
ADOTable1.FieldList.Fields[1].Value:=sonuc.Ad;
ADOTable1.FieldList.Fields[2].Value:=sonuc.Soyad;
ADOTable1.FieldList.Fields[3].Value:=sonuc.DogumYil;
ADOTable1.Post;
ADOTable1.Next;
end
else
begin
ADOTable1.Edit;
ADOTable1.FieldList.Fields[1].Value:='Bulunamadı' ;;
ADOTable1.FieldList.Fields[2].Value:='Bulunamadı' ;
ADOTable1.FieldList.Fields[3].Value:='Bulunamadı' ;
ADOTable1.Next;

end;
end;
end;
--------------------------------------------------------------

bu kodun neresine yazmalıyım

[fduman]

KimlikNoDogrula function'ına tarif ettiğim şekilde yerleştireceksin.

[tuanna]

out of memory diye hata alıyorum... neden olabilir....

[heavy]

Edit4.Text:= ListBox2.Items.ValueFromIndex[ListBox2.ItemIndex];

satırında ValueFromIndex'i tanımıyor. Delphi 6 kullanıyorum. ne yapabilirim ?

[The MeLiX]

güzel bir çalışma teşekkürler.

[musalpay]

@coderlord eline sağlık güzel bir program.
benim bir ricam var acaba bu gelen hata mesajını kaldırdım fakat ben bu hata mesajını bi label ya da memo içine almaya uğraştım ama çıkar yol bulamadım yardımcı olabilirmisin?

[fduman]

except

end

arasına Memo1.Lines.Add('Hata mesajı') şeklinde yazarak label'a veya memo'ya atabilirsin.

[musalpay]

hocam sağolasınız
bu kadar hızlı cevap vereceğinizi tahmin bile etmemiştim.
tekrar çok teşekkürler;

[musalpay]

hocam sanırım yanlış anlattım.

ben hata mesajı derken mesela

Kod: Tümünü seç

 	

Belirtilmiş olan sorgu bilgilerine karşılık kişi bulunmasına rağmen kişi ad ve soyad tutmamaktadır.

v.b mesajları nasıl yakalayacağım hakkında
yardımcı olabilirmisiniz. cevaplarınız için şimdiden çok teşekkürler.

[alperd]

Merhaba
Linki verilen tckimlik.zip artık sitede bulunamıyor.
Tekrar sitede yer alması mümkün mü acaba?

[kimene]

Sadece vatandaşlık no yu göndererek kişinin bütün kimlik bilgilerini alamazmıyız

[naile]

hocam sanırım yanlış anlattım.

ben hata mesajı derken mesela

Kod: Tümünü seç

 	

Belirtilmiş olan sorgu bilgilerine karşılık kişi bulunmasına rağmen kişi ad ve soyad tutmamaktadır.

v.b mesajları nasıl yakalayacağım hakkında
yardımcı olabilirmisiniz. cevaplarınız için şimdiden çok teşekkürler.

Kod: Tümünü seç

try
    KimlikNoSorgula..
  except on E:Exception do
    Memo1.Lines.Add('Hata mesajı: '+E.Message);
  end;
end;