Tckimlik HTML ile sorgulama ve HTML Form bilgisi gönderme

Mesaj gönderen **Asri** » 27 Kas 2006 02:07

Aşağıda Tckimlik de web servisleri kapatıldıktan sonra yazdığım TCKA Tckimlik arama programının
kodlarının açıklamaları mevcuttur.
Bu işlemler Twebbrowser ve HTML parser kullanıldı.

Not:Kodlar çok düzenli olamayabilir. Bir önceki programımın üzerinden değişiklik yapıp oluşturduğum için tanımlanmış ve kullanılmayan değişkenler kodlar bulunabilir. Ayrıca kodları daha da optimize edecek arkadaşlar olursa sevirim.

Form üzerine bir adet twebbrowser nesnesi ekleyin.
Gerekli unitler.

Kod: Tümünü seç

uses
  OleCtrls, mshtml;

Gerekli değişkenler

Kod: Tümünü seç

  
var
  Form1: TForm1;
  ovElements: OleVariant;
  iall : IHTMLElement;

Web sayfasındaki formları doldurmak için öncelikle bu alanların isimleri bilmek gerekir.
Bu işlem için formun bulunduğu web sayfası açılır Firefox da açılır.

http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx
Program tarafından doldurulacak form neslerinin tamamı mouse ile seçilir.
Sağ tuş "Seçimin Kaynak Kodunu Göster" seçilerek. Sadece Form'a ait kodların görünmesi sağlanır.
Bu kodlar içinde name=" ile başlayan isimler hemen üstündeki alanın adını verir.

Aşğıda Adı: alanı için kod parçasını görebilirsiniz. Bu kod da formu doldurmak için
name="ctlFirstName" deki "ctlFirstName" ismi kullanılmaktadır.

Kod: Tümünü seç

<TD>Adı:</TD>
<TD><input name="ctlFirstName" type="text" maxlength="50" id="ctlFirstName" class="TXT" /></TD>

type="submit" olarak göreceğiniz alanlar formlarda Bilgiyi gönderen butonun ismini tanımlar.
Programımızda bu alanlara bilgi göndermek istediğimizi FillForm procedure'üne "TIKLA" bilgisini
giriyoruz.

Doldurulacak alanların isimlerini öğrendikten sonra kodlamaya geçebiliriz.

Kullanımı : FillForm(WebBrowser1, 'ctlFirstName', adie.Text);
webbrowser1 : Form a eklenen twebbrowser nesnesi.
'ctlFirstName': Doldurulacak alanın adı.
adie.text : Doldurulacak alana girilecek bilgi.

Web sayfasındaki formları doldurmak için kullanılan function.

Kod: Tümünü seç

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
         //Alanın adı istediğimiz alana eşitse o kutuya bilgiyi yaz
        if FormItem.Item(j).Name = FieldName then 
        begin
         //Alanın değeri TIKLA ise form biglisi gönder olayı gerçekleştir.
          if value='TIKLA' then
                //Gönder butonu bulundu bilgi gönderiliyor.
                FormItem.Item(j).click          
           else FormItem.Item(j).Value := Value;           
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;

Sorgu için twebbrowser da açılan sayfanın yüklemesi tamamlandığında yapılan kontroller.

Kod: Tümünü seç

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  //Birey no , Ciltno ya göre sorgulama yapılıyorsa aşağıdaki bilgileri form nesnelerine gönder.
  if buton='birey' then
  begin
    FillForm(WebBrowser1, 'ctlFirstName', adie.Text);
    FillForm(WebBrowser1, 'ctlLastName', soyadie.Text);
    FillForm(WebBrowser1, 'ctlCilt', ciltno.Text);
    FillForm(WebBrowser1, 'ctlAileSiraNo', aileno.text);
    FillForm(WebBrowser1, 'ctlSiraNo', sirano.Text);
    FillForm(WebBrowser1, 'ctlCity',ilisecti);
    FillForm(WebBrowser1, 'ctlDistrict',ilcesecti);
    FillForm(WebBrowser1, 'ctlQueryFromData','TIKLA'); //Form daki bilgileri gönderen butonun adı.

    //Form sayfasının HTML kodu memo1 nesnesine aktarılıyor.
     memo1.Clear;
    if Assigned(WebBrowser1.Document) then
    begin
       iall := (WebBrowser1.Document AS IHTMLDocument2).body;
       while iall.parentElement <> nil do
       begin
         iall := iall.parentElement;
       end;
       x:= iall.outerHTML;
     end;
     memo1.text:=x;
     //Sayafa içinde BOLD kelimesi bulunuyorsa ve bu kelime 20 karakter den daha uzun bir mesafedeyse
     //birey bilgileri gelmiş demektir.Bunları listelemek için işleme başla.
     if pos('BOLD',memo1.Text)>20 then siranokimlikdogrula;
   end;

  //Ana adı, Baba adına göre sorgulama yapılıyorsa aşağıdaki bilgileri form nesnelerine gönder.
  if buton='babaadi' then
  begin
    FillForm(WebBrowser1, 'ctlCity',ilisecti);
    FillForm(WebBrowser1, 'ctlDistrict',ilcesecti);
    FillForm(WebBrowser1, 'ctlFirstName', adie.text);
    FillForm(WebBrowser1, 'ctlLastName', soyadie.Text);
    FillForm(WebBrowser1, 'ctlFatherName', babaadie.Text);
    FillForm(WebBrowser1, 'ctlMotherName', anaadie.text);
    FillForm(WebBrowser1, 'ctlBirthDate', edit13.Text);
    if cinsiyetkutu.Text='Erkek' then cinsiyetsec:='E';
    if cinsiyetkutu.Text='Kadın' then cinsiyetsec:='K';
    FillForm(WebBrowser1, 'ctlSex', cinsiyetsec);
    FillForm(WebBrowser1, 'ctlQueryFromPersonalInfo','TIKLA'); //Form daki bilgileri gönderen butonun adı.
    
    memo1.Clear;
    if Assigned(WebBrowser1.Document) then
    begin
       iall := (WebBrowser1.Document AS IHTMLDocument2).body;
       while iall.parentElement <> nil do
       begin
         iall := iall.parentElement;
       end;
       x:= iall.outerHTML;
     end;     
     memo1.text:=x;
     if pos('BOLD',memo1.Text)>20 then siranokimlikdogrula;
   end;

  //Tckimlik noya göre sorgulama yapılıyorsa aşağıdaki bilgileri form nesnelerine gönder.
  if buton='tckimlik' then
  begin
    FillForm(WebBrowser1, 'ctlIdentityNumber', edit1.Text);
    FillForm(WebBrowser1, 'ctlVerify','TIKLA');//Form daki bilgileri gönderen butonun adı.
    memo1.Clear;
    if Assigned(WebBrowser1.Document) then
     begin
       iall := (WebBrowser1.Document AS IHTMLDocument2).body;
       while iall.parentElement <> nil do
       begin
         iall := iall.parentElement;
       end;
       x:= iall.outerHTML;
     end;    
     memo1.text:=x;
     if pos('BOLD',memo1.Text)>20 then kimlikdogrula;
  end;
end;

TCkimlik numarasını URL sine form bilgileri gönderildikten sonra. Sayfa yüklemesi tamamlandığında
İçinde BOLD kelimesi bulursa aşağıdaki kod aktiv olur ve memo1'e aktarılan HTML kaynağından kişi bilgilerini alır.
Örnek kaynak kod

Kod: Tümünü seç

<TD style="WIDTH: 121px" noWrap colSpan="1" rowSpan="1">Adı:</TD>
<TD class="BOLD">
	ASRİ</TD>

Kod: Tümünü seç

procedure tform1.kimlikdogrula;
begin
  x:=memo1.text;
  s:='';
   //X deki HTML içeriğinde BOLD'un konumunu alıyor.Buna 5 ekleyerek değeri alacağı yere konumlanıyor.
  i1:= pos('BOLD',x); i1:=i1+5;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;adi:=s;//Bulunan bu konumdan sonra "<" işaretine kadar değeri alıyor.
  //BOLD un ilk karakterini boşluk yapıyor. Bir daha konumlanmada burası işleme dahil olmasın diye.
  i1:= pos('BOLD',x);
  x[i1]:=' ';

  s:=''; i1:= Pos('BOLD',x); i1:=i1+5;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;soyadi:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:=''; i1:= Pos('BOLD',x); i1:=i1+5;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;dogumtarihi:=s;
  if pos(edit1.Text,memo2.Text)=0 then
  begin
   //Alınan bilgiler memo2 nesnesine aktarılıyor.
   memo2.lines.Append(Edit1.Text+' , '+adi+' , '+soyadi+' , '+dogumtarihi);
   edit1.Refresh;
   memo2.Refresh;
   inc(saydir);
   label21.Caption:='Kayıt Sayısı : '+inttostr(saydir);
   memo2.Lines.SaveToFile(prgdizini+'Bulunanlar.csv');
  end;
   //İşlem tamamlandığı için twebbrowser nesnesi stop ediliyor.
   webbrowser1.Stop;

end;

İli seçilinde ilçelerini getirmeyi sağlayan procedure.
Burda önemli bir nokta var. Bütün illerin ilçeleri form üzerinde
"tumilceler" isimli combobox2 de aşağıdaki şekilde tanımlı.
*ADANA
SEYHAN
MEYHAN
CEYHAN
*DİYARBAKIR
DİCLE
LİCE
MİCE
*DENİZLİ
.
.

Kod: Tümünü seç

procedure TForm1.suitemplistbox3Click(Sender: TObject);
var
  I: Integer;
  ilcelistesi:tstringlist;
  ListboxIl, ListboxIlce: Tsuicombobox;
  gec,gec1:string;
begin
    edit1.Text:='';
    memo2.Clear;
    //Seçilen ilin adı alınıyor.
    gec:=copy(ilkutusu.Text,pos('=',ilkutusu.Text)+1,length(ilkutusu.text));
    ilisecti:=copy(ilkutusu.Text,1,pos('=',ilkutusu.Text)-1);
    ilcekutusu.Clear;
    buldu:=false;
    //Tüm ilçeler içinde bu ilin adı aranıyor.
    for i:=0 to tumilceler.Items.Count-1 do
    begin
      gec1:=tumilceler.Items.Strings[i];
      //Daha önce bulmuşsam ve şimdi okuduğum ilk karakter * ise ilçe alma işlemi tamamlanmıştır.
      if (gec1[1]='*') and buldu then break;
      if buldu then
      begin
         ilcekutusu.Items.Add(gec1);
      end;
      //İkinci karakter itibaren hepsini al bakacaz aradığımız il mi?
      gec1:=copy(gec1,2,length(gec1));
      copy(gec1,pos('=',gec1)+1,length(gec1));
      
      //Tüm ilçelerden okunan il adı ile benim aradığım il aynı ise buldu:=true;
      if gec=gec1 then buldu:=true;
    end;

 ilcei:=0;
 ilii:=ilkutusu.ItemIndex;
 ilceson:= ilcekutusu.Items.Count-1;
 ilison:=ilkutusu.Items.Count-1;
 ilcekutusu.ItemIndex:=0;
 //İlk ilçe seçilen ilçe olarak belirlendi.
 ilcesecti:=copy(ilcekutusu.Text,1,pos('=',ilcekutusu.Text)-1);
 ilcekutusu.Refresh;
end;

//Cilt No, Birey No ya göre arama butonuna basıldı.

Kod: Tümünü seç

procedure TForm1.suitempButton2Click(Sender: TObject);
var
  CinsiyetStr: string;
  cilti,ailei,sirai:integer;
begin
 memo2.Clear;
 //Web sayfasının yüklenmesi tamamlandığında hangi sayfanın yüklendiğini bilmesi için.
 //Alınacak değerleri buna göre belirlenecek.
 buton:='birey';
 hata:=false;
 if (adie.Text='') or (soyadie.Text='') then begin uyari('Adı ve soyadı girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);exit;end;
 if (ciltno.Text='') or (aileno.Text='') or (sirano.Text='') then begin uyari('CiltNo,AileNo,SiraNo girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);exit;end;

 if hata then exit;
 //Tckimlik doğrulama sayfası açılıyor.
 webbrowser1.Navigate('http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx');
end;

//İlçe kutusunda hangi ilçenin seçildiğinin tespiti.

Kod: Tümünü seç

procedure TForm1.suitemplistbox4Click(Sender: TObject);
begin
  ilcesecti:=copy(ilcekutusu.Text,1,pos('=',ilcekutusu.Text)-1);
  ilcesi:= ilcekutusu.Items.ValueFromIndex[ilcekutusu.ItemIndex];
  ilcei:=ilcekutusu.ItemIndex;
end;

//Ana adı, Baba adına göre arama butonuna basıldı.

Kod: Tümünü seç

procedure TForm1.suitempButton3Click(Sender: TObject);
var
  CinsiyetStr: string;
begin
 memo2.Clear;
 buton:='babaadi';

 hata:=false;
 giriskontrol;

 if (babaadie.Text='') then begin uyari('Baba Adı girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end;
 if (anaadie.Text='') then begin uyari('Ana Adı girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end;
 if (cinsiyetkutu.Text='') then begin uyari('Cinsiyet Seçmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end;
 if (edit13.Value=0) then begin uyari('Doğum Tarihi girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end;

 if hata then exit;
 durdur:=false;

 webbrowser1.Navigate('http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx');

end;

//Durdur butonuna basıldığın işlemleri kesmek için.

Kod: Tümünü seç

procedure TForm1.suitempdurdurbtnClick(Sender: TObject);
begin
 webbrowser1.Stop;
 durdur:=true;
end;

Tckimlik numarası doğrulama için web sayfasına gönderilmeden önce
bu function ile doğru yazılıp yazılmadığı kontrol ediliyor.

Kod: Tümünü seç

Function tcvalid(tcId: String):Boolean;
Var
  tmp,       tmp1,
  odd_sum,   even_sum,
  ChkDigit2, ChkDigit1,
  total              : Int64;
  d : Array[01..11] of Int64;
  n : Integer;
begin
  if Length(tcId) <> 11 then Result := False
  else
  begin
    tmp  := Trunc(StrToInt64(tcId) / 100);
    tmp1 := Trunc(StrToInt64(tcId) / 100);
    for n := 1 to 9 do
    begin
      d[n] := tmp1 mod 10;
      tmp1 := Trunc(tmp1 / 10);
    end;
    odd_sum   := d[9]+d[7]+d[5]+d[3]+d[1];
    even_sum  := d[8]+d[6]+d[4]+d[2];
    total     := (odd_sum * 3) + even_sum;
    ChkDigit1 := (10 - (total mod 10)) mod 10;
    odd_sum   := ChkDigit1+d[8]+d[6]+d[4]+d[2];
    even_sum  := d[9]+d[7]+d[5]+d[3]+d[1];
    total     := (odd_sum * 3) + even_sum;
    ChkDigit2 := (10 - (total mod 10)) mod 10;
    tmp       := (tmp*100)+(ChkDigit1*10)+ChkDigit2;
    if NOT (tmp = StrToInt64(tcId))
        then Result := False
        else Result := True;
  end;
end;

//TCkimlik numarasına göre arama butonuna basıldı.

Kod: Tümünü seç

procedure TForm1.tcsorgulabtnClick(Sender: TObject);
begin
 memo2.Clear;
 buton:='tckimlik';
 hata:=false;

 if (edit1.Text='') then begin uyari('TCKimlik Numarası girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);exit;end;
 if not tcvalid(edit1.text) then begin uyari('TCKimlik Numarası geçersiz.', mtConfirmation, [mbyes],['Tamam']);exit;end;
 buldu:=false;
 tamsay:=0;
 webbrowser1.Navigate('http://tckimlik.nvi.gov.tr/Web/VerifyIdentityNumber.aspx');
end;

//Cilt No, Aile No ya göre sorgu sonucunda gelen sayfadan bilgiler alınıyor

Kod: Tümünü seç

procedure tform1.siranokimlikdogrula;
begin
  x:=memo1.text;
  s:='';
  i1:= pos('BOLD',x); //BOLD kelimesinin konumu bulunuyor.
  while x[i1]<>'>' do i1:=i1+1; //Bilginin alınacağı yerin başına kadar gidiliyor.">"
  i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;tckimlik:=s;//Bilgi alınıyor. "<" işaretine kadar.
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  i1:= pos('BOLD',x);
  x[i1]:=' ';

  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
  i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;il:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
  i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;ilce:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;adi:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:=''; i1:= Pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;soyadi:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;mahalle:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;babaadi:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;ciltnostr:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;anaadi:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;ailenostr:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;dogumyili:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;bireyno:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';
  s:='';
  i1:= pos('BOLD',x);
    while x[i1]<>'>' do i1:=i1+1;
      i1:=i1+1;
  while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;cinsiyeti:=s;
  i1:= pos('BOLD',x);
  x[i1]:=' ';

    with Memo2.Lines do
    begin

      Append('TC Kimlik No: ' + TCKimlik);
      Append('İli         : ' + il);
      Append('İlçesi      : ' + ilce);
      Append('Mahalle     : ' + mahalle);
      Append('Adı         : ' + adi);
      Append('Soyadı      : ' + soyadi);
      Append('Doğum Tarihi: ' + dogumyili);
      Append('Ana Adı     : ' + anaadi);
      Append('Baba Adı    : ' + babaadi);
      Append('Cinsiyeti   : ' + Cinsiyeti);
      Append('Cilt No     : ' + Ciltnostr);
      Append('Aile No     : ' + ailenostr);
      Append('Birey No    : ' + bireyno);

    end;
   memo2.Refresh;
   webbrowser1.Stop;
end;

//İlerleme durumunu gösteren gösterge sayfa yüklemesine göre ayarlanıyor.

Kod: Tümünü seç

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
if ProgressMax = 0 then 
  begin 
    Exit;
  end;
  try
    if (Progress <> -1) and (Progress <= ProgressMax) then
       progressbar1.Position:= (Progress * 100) div ProgressMax
    else
      progressbar1.Position:=0;
  except
    on EDivByZero do Exit;
  end;
end;

tuanna · Mesaj gönderen **tuanna** » 28 Kas 2006 11:29

Doğrulama için ben söle bir kod yazdım ama bir bakrmısın burda hata veriyor...

Kod: Tümünü seç

Function  Tfmrmain.ValidedTc(tc:int64):string;
var
 Data: TStringList;
 htp:TIdHTTP;
Begin
  Data :=TStringList.Create;
  htp:=TIdHTTP.Create(self);
  Try
  htp.Host:='tckimlik.nvi.gov.tr';
  Data.add('__VIEWSTATE=%2FwEPDwULLTE2MDQ5ODgyNjUPZBYCAgEPZBYCAgUPDxYCHgRUZXh0BQsxNzA4NjE3OTAzMhYMHgZpc1JlYWwFBWZhbHNlHgVpc1BvcwUEdHJ1ZR4HdmFsRXhwcgUKXlxkezEsMTE%2FJB4JZGVjUGxhY2VzBQItMR4HZGVjU2lnbgUBLh4PcGxhY2VzQmVmb3JlRGVjBQIxMWRk9LRq1cGnUC6tJQ7v3pOtoD2Soz8%3D');
  Data.Add('&ctlIdentityNumber='+IntToStr(tc));
  Data.Add('&ctlVerify=T.C.+Kimlik+No+Do%C4%9Frula');
  Data.Add('&__EVENTVALIDATION=' +
    '%2FwEWAwKPtrvdAgKL86WHCgKc85DLBSqTGvRztQZdzETp6h%2BtwgW%2FVqGq');
  Result:=htp.Post('/web/VerifyIdentityNumber.aspx',Data);
  finally
  data.Free;
  htp.Free;
  end;
End;

Aldığım Hata ise Şu

http:// 1.1 302

Mesaj gönderen **Asri** » 28 Kas 2006 04:33

tuanna yazdı:Doğrulama için ben söle bir kod yazdım ama bir bakrmısın burda hata veriyor...

Kod: Tümünü seç

Function  Tfmrmain.ValidedTc(tc:int64):string;
var
 Data: TStringList;
 htp:TIdHTTP;
Begin
  Data :=TStringList.Create;
  htp:=TIdHTTP.Create(self);
  Try
  htp.Host:='tckimlik.nvi.gov.tr';
  Data.add('__VIEWSTATE=%2FwEPDwULLTE2MDQ5OD
  Data.Add('&ctlIdentityNumber='+IntToStr(tc));
  Data.Add('&ctlVerify=T.C.+Kimlik+No+Do%C4%9Frula');
  Data.Add('&__EVENTVALIDATION=' +
    '%2FwEWAwKPtrvdAgKL86WHCgKc85DLBSqTGvRzt
  Result:=htp.Post('/web/VerifyIdentityNumber.aspx',Data);
  finally
  data.Free;
  htp.Free;
  end;
End;

Aldığım Hata ise Şu

http:// 1.1 302

GET metodu ile sorgulama için ayrı bir makale yazdım aşağıdaki linkten ulaşabilirsiniz.

viewtopic.php?t=18000

Edit: POST yazısı GET olarak değiştirildi.

tuanna · Mesaj gönderen **tuanna** » 28 Kas 2006 04:39

Kod: Tümünü seç

procedure TForm1.btntckimlikdogrulaClick(Sender: TObject); 
begin 
 memo2.Clear; 
 buton:='tckimlik'; 
 hata:=false; 
 if (edit1.Text='') and (not tcchk.Checked) then begin uyari('TCKimlik Numarası girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end; 
 if hata then exit; 
 buldu:=false; 
 tamsay:=0; 
 urlsi:=''; 
 urlsi:='http://tckimlik.nvi.gov.tr/Web/VerifyIdentityNumber.aspx?__EVENTVALIDATION=%2FwEWAwL5qcT4CAKL86WHCgKc85DLBRhnDXsoUnHvy1SMDOKNRc5uI8FC&__VIEWSTATE=%2FwEPDwULLTE2MDQ5ODgyNjUPZBYCAgEPZBYCAgUPDxYCHgRUZXh0ZRYEHgpvbmtleXByZXNzBVNOdW1lcmljQm94X05T'; 
 urlsi:=urlsi+'X0FkZE51bWVyaWNJdGVtKGV2ZW50LCAnY3RsSWRlbnRpdHlOdW1iZXInLCB0cnVlLCBmYWxzZSwgLTEsICcuJywgMTEpOx4Ib25jaGFuZ2UFJk51bWVyaWNCb3hfTlNfY3RsSWRlbnRpdHlOdW1iZXIoZXZlbnQpZGRrBFmeq9Y%2F%2Fqh4g14II2dh4FRpMA%3D%3D&ctlIdentityNumber='; 
 urlsi:=urlsi+edit1.text+'&ctlVerify=T.C.%20Kimlik%20No%20Do%C4%9Frula'; 
 x:=idhttp1.Get(urlsi); 
 x:=utf8decode(x); 
 gelenbilgileriayikla; 
end;

Burdaki get motodu

Mesaj gönderen **Asri** » 28 Kas 2006 04:46

O zaman başlığı düzeltiyim POST'u GET'i karaştırıyorum

Teşekkür

tuanna · Mesaj gönderen **tuanna** » 28 Kas 2006 04:53

ya bu mesele beni kızdırdı ...

get teki parametre lerle gelen veri postta gelmiyor...

Mesaj gönderen **Asri** » 28 Kas 2006 05:09

tuanna yazdı:ya bu mesele beni kızdırdı ...

get teki parametre lerle gelen veri postta gelmiyor...

Aradaki fark nedir?

Bilgi geldikten sonra bir önemi var mı?

tuanna · Mesaj gönderen **tuanna** » 28 Kas 2006 05:11

veri geldikten sonraki fark meselesini bilemiyorum ama
ben şunu merak ediyorum...

neden get ile geliyorda post ile gelmiyor...

Mesaj gönderen **vkamadan** » 28 Kas 2006 05:18

tuanna yazdı:veri geldikten sonraki fark meselesini bilemiyorum ama
ben şunu merak ediyorum...

neden get ile geliyorda post ile gelmiyor...

İstekte bulunulan karşılayıcı sayfanın hangi metoda göre karşıladığı önemli bazı sayfalar hem GET hemde POST a göre tasarlanıyor ama bu durumda TC kimlik sayfası sadece GET le çalışıyor diyebiliriz.
Örneğin PHP de HTTP_GET_VARS['degisken1'] gibi direktiflerle değişkenlere erişiliyor dolayısıyla siz POST a değer gönderirseniz anlayıp sonuç döndüremez.
İyi çalışamlar.

NOT: TC Kimlik karşılayıcı sayfası hakkında fikrim yok incelemedim ama belirtilen soruna göre olabilmesi en ihtimal senaryo bu.

tuanna · Mesaj gönderen **tuanna** » 28 Kas 2006 05:19

ama benim incelemelerime göre kullanılan metod post metodu
volkan..!

Mesaj gönderen **vkamadan** » 28 Kas 2006 05:32

Evet bende baktımda şimdi POST yöntemi , ama POST için Data değişkenine alanların değerlerini atarken başlarına & işareti koymuşsun onları koymaman gerekiyor die düşünüyorum.
Örneğin ,

Kod: Tümünü seç

Data.Add('&ctlIdentityNumber='+IntToStr(tc));
//Yerine
Data.Add('ctlIdentityNumber='+IntToStr(tc));
//olmalı

Denermisin. Kolay gelsin.

tuanna · Mesaj gönderen **tuanna** » 28 Kas 2006 05:34

ölede denedim en son yazdığım kod su

Kod: Tümünü seç

Function  Tfmrmain.ValidedTc(tc:int64):string;
var
 Data: TStringList;
 htp:TIdHTTP;
Begin
  Data :=TStringList.Create;
  htp:=TIdHTTP.Create(self);
  Try
  htp.Request.Host:='tckimlik.nvi.gov.tr';
  Data.add('__EVENTVALIDATION=%2FwEWAwL5qcT4CAKL86WHCgKc85DLBRhnDXsoUnHvy1SMDOKNRc5uI8FC');
  Data.Add('__VIEWSTATE=%2FwEPDwULLTE2MDQ5ODgyNjUPZBYCAgEPZBYCAgUPDxYCHgRUZXh0ZRYEHgpvbmtleXByZXNzBVNOdW1lcmlj');
  data.Add('%2F%2Fqh4g14II2dh4FRpMA%3D%3D');
  Data.Add('ctlIdentityNumber='+inttostr(tc));
  Data.Add('ctlVerify=T.C.%20Kimlik%20No%20Do%C4%9Frula');
  Result:=htp.Post('/Web/VerifyIdentityNumber.aspx',Data);
  Finally
  Data.Free;
  Htp.Free;
  End;
End;

Mesaj gönderen **vkamadan** » 28 Kas 2006 06:11

merhaba ,
aşağıda ki gibi denedim ve sonuç aldım sorun yok

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
Data:TStringList;
begin
     try
       data:=TStringList.create;
       IdHTTP1.Host:='tckimlik.nvi.gov.tr';
       Data.add('__EVENTVALIDATION=/wEWAwLA4biaAwKL86WHCgKc85DLBWqr/Hs8cKZj48htBdmortaoCoYO');
       Data.Add('__VIEWSTATE=/wEPDwULLTE2MDQ5ODgyNjUPZBYCAgEPZBYCAgUPDxYCHgRUZXh0ZRYMHgZpc1JlYWwFBWZhbHNlHgVpc1BvcwUEdHJ1ZR4HdmFsRXhwcgUKXlxkezEsMTE/JB4JZGVjUGxhY2VzBQItMR4HZGVjU2lnbgUBLh4PcGxhY2VzQmVmb3JlRGVjBQIxMWRkBmeLMmM8zxCReOXsK0vUtqLoegg=');
       Data.Add('ctlIdentityNumber=30752262074');
       Data.Add('ctlVerify=T.C.%20Kimlik%20No%20Do%C4%9Frula');
       memo1.Text:=IdHTTP1.Post('/Web/VerifyIdentityNumber.aspx',Data);
     finally
       data.Free;
     end;
end;

tuanna · Mesaj gönderen **tuanna** » 28 Kas 2006 06:41

tsk ler volkan...ve bütün arkadaşlar...

mrmarman · Mesaj gönderen **mrmarman** » 01 Ara 2006 12:32

Arkadaşlar.

- GET ve POST arasındaki fark bizim için bu konu için önemli değil, önemli olan konu ViewState ve EventValidation'un değişken olması durumudur. Şimdi makale kısmındaki koda soru yazdım ama hatalı davrandım galiba, soruyu burada yenileyip çözümünü oraya yansıtırız...

@Asri

- Hocam GET method ile yazılan kod kendimce tasarladığımdan çok farklı olmuşlar, tebrik ederim. Ben işi bayağı yokuşa sürmüşüm galiba, çünkü çooook uzun bir kontrol mekanizması kurmak zorunda kaldım. UTF8 kodlama, HTML Ascii çözümleme, EventValidation ve ViewState generate etme vs.

- Tabii bir de unutmadan senin bu yazdığın kodları çalıştıramadım.

Bunun çalıştığını teyid eder misin ? Sanırım sadece kendi nüfus bilgilerin ile test ettin. Çünkü VIEWSTATE ve EVENTVALIDATION sabit değil değişken bir yapıda.