Internetten Bilgi Çekme

[recepgalip]

MERHABAYIN SEVGILI DELPHIDAŞLARIM.

ACABA TC KIMLIK NUMARASINI YAZARAK INTERNETTEN KİŞİNİN KIMLIK BILGILERINI NASIL ÇEKEBİLİRİM.ÇOK ACİL LAZIMDA. YARDIMCI OLURSANIZ SEVİNİRİM. İYİ ÇALIŞMALAR.

[MicroChip]

Yaptığın hataları söylüyorum:
1. büyük harfle yazmışsın herşeyi admin seni fırçalayacak şimdi...
2. acil demişsin. bu bizim buralarda hoş karşılanmaz. Çünkü zaten herkes cevap verebilir 1 saat içerisinde


gerekli textleri felan post edip Html yi parse ederek istediğin işlemi yapabilirsin...

[Marangoz]

Query2.First;
for i:=1 to Query2.RecordCount do
begin
(FindComponent('FrmRptForm5.'+'Soyadi'+IntToStr(i)) as TQrLabel).caption:=Query2Soyadi.Value;
(FindComponent('FrmRptForm5.'+'Adi'+IntToStr(i)) as TQrLabel).Caption:=Query2Adi.Value;
(FindComponent('FrmRptForm5.'+'BabaAdi'+IntToStr(i)) as TQrLabel).Caption:=Query2BabaAdi.Value;
(FindComponent('FrmRptForm5.'+'DogYer'+IntToStr(i)) as TQrLabel).Caption:=Query2DogYer.Value;
(FindComponent('FrmRptForm5.'+'DogTar'+IntToStr(i)) as TQrLabel).Caption:=DateToStr(Query2DogTar.Value);
(FindComponent('FrmRptForm5.'+'Isi'+IntToStr(i)) as TQrLabel).Caption:=Query2Isi.Value;
(FindComponent('FrmRptForm5.'+'IsAdr'+IntToStr(i)) as TQrLabel).Caption:=Query2IsAdr.Value;
(FindComponent('FrmRptForm5.'+'Il_Ilce'+IntToStr(i)) as TQrLabel).Caption:=Query2NkoIl.Value+'/'+FrmForm5.Query2NkoIlce.Value;
(FindComponent('FrmRptForm5.'+'MahKoy'+IntToStr(i)) as TQrLabel).Caption:=Query2NkoMahKoy.Value;
(FindComponent('FrmRptForm5.'+'TckNo'+IntToStr(i)) as TQrLabel).Caption:=Query2TcKimlikNo.Value;
(FindComponent('FrmRptForm5.'+'Okul'+IntToStr(i)) as TQrLabel).Caption:=Query2Okul.Value;
(FindComponent('FrmRptForm5.'+'Sinif'+IntToStr(i)) as TQrLabel).Caption:=Query2Sinif.Value;
(FindComponent('FrmRptForm5.'+'Ykn'+IntToStr(i)) as TQrLabel).Caption:=Query2ARYak.Value;
Query2.Next;
end;

eğer bu şekilde hata verirse aşağıdaki şekilde dene çalışacaktır...

(FrmRptForm5.FindComponent('Soyadi'+IntToStr(i)) as TQrLabel).caption:=Query2Soyadi.Text;


daha önce denenmiş ve çalışmış bir kod'muş

iyi çalışmalar,

[MicroChip]

sanırım bu kodlar konu ile ilgili değil

[recepgalip]

merhabayın. ya mikrochip kardeşim insanın hataları bolede yuzune vurulmazkine ne o ole
1-
2-
yane madde madde yazmazsan anlayamayacagımımı zannettiniz.ben anlayışlı biriyimdir. bak hemencik harfalri küçültü verdim. cavabınız içinde teşekkür ederim.

yanlız benim yapmak istediğim.tc kimlik noyu yazıp. diğer bilgileri almak.
orn.
89878787985 yazıp
adı:
soyadı:
baba adı:
cinsiyeti:
dogum yeri:
cilt no:
aile sıra no
gibi alanları çekme. tekrar teşekkkur ederim. iyi çalışmalar

[MicroChip]

Tamam o da farketmezki aynı işlem bu sefer tckimlik numarasını gönderiyorsun daha sonra gelen html dosyasını parse işlemine tabi tutup istediğini alıyorsun. Olay aynı olay
web sayfasına numarayı girdikten sonra ve tıklatıktan sonra adres satırında nasıl bir bilgi gidiyo onu incele.
Tabi önce html nin içerisine bak get ile mi veriyi alıyo yoksa post ile mi?..

Kolay gelsin...


Balık tutmak güzeldir..

[recepgalip]

http://tckimlik.nvi.gov.tr/
adresini biliyom. ve burdan da sadece
adı-soyadı-dogum tarihini çekiyor. daha ayrıntılı bilgi çeken bi yer yokmu.
valla bana cilt nosuna kadar bilgi lazım.

[Marangoz]

procedure TForm1.Button1Click(Sender: TObject);
var Sr1,Sr2: TMemoryStream;s:string;
ar : Tstrings;
Str : string;
begin

Sr1:= TMemoryStream.Create; mm.Clear;ar:=Tstrings.Create;
s:='http://tckimlik.nvi.gov.tr/pls/kimlik/kimlik';
idAntifreeze1.DoProcess;
ar := TStringList.Create;
ar.Add('ilce=1230');
ar.Add('ad1=ümit');
ar.Add('soyad1=kara');
ar.Add('babaadi=abbas');
ar.Add('anneadi=canan');
ar.Add('yil=1972');
ar.Add('cinsiyet=E');
try
idhttp.post(s,ar,sr1);
except
sr1.Free;
end;

yanlış kod pardon

[recepgalip]

ya marangoz abicim. gonderdiğim kodu kullandımda
idhttp=? bunu tanımadı. bide il adı - ilçe adı da yazmak lazım oluyo. almak için. aslında istediğim bu değildi ama tc noyu almakta lazımdı.bana tam kodu gonderirsen sevinirim. iyi çalışmalar.

[sychorax]

Bende bileşen olarak var.Nerden indirdiğimi hatırlamıyorum.O yüzden adres veremiycem.Mail adresini verirsen gönderiyim.

[mrmarman]

Selamlar...

- Foruma daha önceki bir tarihte yolladığım tanıtım var... viewtopic.php?t=2943 linkine bir göz at istersen... Bu hali işini görüyorsa kullan...

- İlk olarak İl giriyorsun, hemen internetten o ile ait ilçe kodları okunuyor... İlçeyi de girince sağdaki veya soldaki sütundaki bilgileri doldurup ara diyorsun...

- Ayrıca tüm Türkiye'deki il ve ilçelerde ve doğum tarihi dinamiği vererek (1970..1976 vb.) aratmayı da yaptım... Onun linkini ayrıca hazırlarım...

- Vaktim şu sıralar oldukça dar. Alternatif bişi arıyorsan ilk boşlukta yardımcı olmaya çalışırım...

[mrmarman]

istihbarat oluşturma linkini vermeyi unutmuşum...

http://www.divxtr.org/divxturk/files/ot ... imlik2.zip



- Burada daha önce bahsettiğim programın aynısı var. Farklı olan kısmı İstihbarat adında ekstra bir button göreceksin..



- Bu butona basınca açılan formda boşlukarı doldurup, İlçe Kaydını Bul butonuna basınca İl isimlerinin olduğu ComboBox hangi pozisyonda ise o ilden başlayarak (en baştaki boşlukta ise tüm Türkiye il ve ilçelerinde benzer kayıtlar aranır...) adım adım diğer ile ve ilçelere atlanarak benzer kayıtlar aranır.

- Doğum Yılı yanındaki Dinamik Ara(tarih aralığı verme) şimdilik disabled. Henüz eklememiştim...

[webaytek]

idAntifreeze1 de neyin nesi ben mi körüm yoksa acilen bu delphi 5 ten 6 ya da 7ye geçmenin zamanı mı geldi

delphi5 te warsa eğer nerede bi zahmet gösteriverin

[vkamadan]

Merhaba,
bahsettiğin component, indy component paketinin içinde mevcut, Delphi7 ile standar olarak gelen bu paketi delphi5 içinde ekstrdan yükleyilibirsin.

[mrmarman]

Merhabalar...

- Uzun soluklu bir iş temposundaki kısa soluklu bir vakit bulup bu cevabı yazıyorum...

- Yukarda aslında kendi stratejini kurman adına ipucu olabilecek satırlarla anlatmaya çalışmıştım.. Zaten bunu Internet'teki sayfadan da çıkarabilirdiniz...

- Basit bir Download fonksiyonu olan aşağıdaki örneği inceleyin... TIdHttp veya TNmHttp bileşenlerini kullanarak sistemde donma olmaksızın veri almanızı sağlayacaktır... Diğer yandan Thread olayına hiç girmiycem, şu durumda kafa karışıklığından başka bişi doğurmaz...

- Uses satırına WinInet eklemeyi ihmal etmeyin...

Kod: Tümünü seç

function TForm1.GetInetFile(const fileURL, FileName: String): boolean;
const
  BufferSize = 1024;
var
  hSession,
  hURL      : HInternet;
  Buffer    : array[1..BufferSize] of Byte;
  BufferLen : DWORD;
  f         : File;
  sAppName  : string;
begin
  Result   := False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession,
              PChar(fileURL),
              nil,0,0,0);
  try
    AssignFile(f, FileName);
    Rewrite(f,1);
    repeat
      InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
      BlockWrite(f, Buffer, BufferLen)
    until BufferLen = 0;
    CloseFile(f);
    Result:=True;
  finally
    InternetCloseHandle(hURL)
  end
  finally
    InternetCloseHandle(hSession)
  end
end;

- Bu fonksiyon verdiğiniz adresi bilgisayarınıza kaydeder... HTML sayfa program dizininde GELEN.TXT isminde bir dosya olarak saklanacaktır... Kullanımı...

Kod: Tümünü seç

Var
  Dosya, URL : String;
begin
  Dosya := ExtractFilePath(Application.ExeName)+'GELEN.TXT';
  Url   := 'http://tckimlik.nvi.gov.tr/pls/kimlik/ilce_sor?il='+'06';
  If GetInetFile(Url, Dosya)
    then ShowMessage('Dosya Geldi')
    else ShowMessage('Sorun Var');
end;

- Yukarıdaki kod 06 nolu il'e ait ilçeleri getiren sayfayı okur... Anlaşılır olsun diye '06' yı ayrı yazarak eklettim... Siz buraya hangi ilin kodunu koyarsanız, o ile ait ilçe listesini içeren HTML Text sayfayı alırsınız...

- ComboBox oluşturmanız için size kolaylık olsun... Aşağıdaki İller listesini ilk sayfadan okutup hazırladım...

Kod: Tümünü seç

İlk sayfadan il seçimi :
-----------------------------
01.ADANA
02.ADIYAMAN
03.AFYON
04.AĞRI
68.AKSARAY
05.AMASYA
06.ANKARA
07.ANTALYA
75.ARDAHAN
08.ARTVİN
09.AYDIN
10.BALIKESİR
74.BARTIN 
72.BATMAN
69.BAYBURT 
11.BİLECİK
12.BİNGÖL 
13.BİTLİS
14.BOLU 
15.BURDUR
16.BURSA 
17.ÇANAKKALE
18.ÇANKIRI 
19.ÇORUM
20.DENİZLİ 
21.DİYARBAKIR
81.DÜZCE 
22.EDİRNE
23.ELAZIĞ 
24.ERZİNCAN
25.ERZURUM 
26.ESKİŞEHİR
27.GAZİANTEP 
28.GİRESUN
29.GÜMÜŞHANE 
30.HAKKARİ
31.HATAY 
76.IĞDIR
32.ISPARTA  
34.İSTANBUL 
35.İZMİR
46.KAHRAMANMARAŞ 
78.KARABÜK
70.KARAMAN 
36.KARS
37.KASTAMONU 
38.KAYSERİ
71.KIRIKKALE 
39.KIRKLARELİ
40.KIRŞEHİR 
79.KİLİS
41.KOCAELİ 
42.KONYA
43.KÜTAHYA 
44.MALATYA
45.MANİSA 
47.MARDİN
33.MERSİN
48.MUĞLA 
49.MUŞ
50.NEVŞEHİR 
51.NİĞDE
52.ORDU 
80.OSMANİYE
53.RİZE 
54.SAKARYA
55.SAMSUN 
56.SİİRT
57.SİNOP 
58.SİVAS
63.ŞANLIURFA
73.ŞIRNAK
59.TEKİRDAĞ 
60.TOKAT
61.TRABZON 
62.TUNCELİ
64.UŞAK 
65.VAN
77.YALOVA 
66.YOZGAT
67.ZONGULDAK

- Gelen sayfadan Parse (ayıklama) işlemi ile ilçe kod ve isimlerini alıp yeni bir liste oluşturmalısınız... Bu işlem için, oluşturacağınız bir StringList'e LoadFrom file yardımıyla gelen text'i okutup, satır satır arama yaptırmak ve ilgili kod ve ilçe adını yeni bir ComboBox'a yansıtacak bir metod ile yapacaksınız.. Yine 06 örneğinden okuduğumuz değerler aşağıdaki gibi olacaktır...

Kod: Tümünü seç

1872.AKYURT
1130.ALTINDAĞ
1157.AYAŞ
1167.BALA
1187.BEYPAZARI
1227.ÇAMLIDERE
1231.ÇANKAYA
1260.ÇUBUK
1302.ELMADAĞ
1922.ETİMESGUT
1924.EVREN
1744.GÖLBAŞI
1365.GÜDÜL
1387.HAYMANA
1427.KALECİK
1815.KAZAN
1745.KEÇİÖREN
1473.KIZILCAHAMAM
1746.MAMAK
1539.NALLIHAN
1578.POLATLI
1747.SİNCAN
1658.ŞEREFLİKOÇHİSAR
1723.YENİMAHALLE

- Bu baştaki kod bizim anahtarımız ve klavuzumuz olacaktır... Yapılacak aramada kullanılacak kod bu numaradır...

- Ankara Çankaya ilçesine ait bir kişinin numarasını bulmak için kullanacağınız kod 1231 olacaktır.

- Bu aşamada isim girişi yapılan sayfaya erişmek istenirse şu link kullanılır...

Kod: Tümünü seç

http://tckimlik.nvi.gov.tr/pls/kimlik/kimlik?ilce=1231

- Buna gerek kalmaksızın sizin girişiniz ise şu olacak...

Kod: Tümünü seç

http://tckimlik.nvi.gov.tr/pls/kimlik/kimlik?ilce=1231&ad=muharrem&soyad=arman&cilt=01&hane=02&sira=03&go=Kimlik+Numaramı+Bul

- Aynı fonksiyon ile bu satırı istediğinizde gelecek GELEN.TXT içerisinde yapılacak yeni bir Parse işlemi ile TC Kimlik numarasına ulaşılşmış olur....

- Geriye mantık yürüterek mevcut bu fonksiyonlar grubu genişletmek kalıyor... Bahsettiğim istihbarat işi de buydu... Tüm Türkiye'deki Muharrem ARMAN'ları bulmak bile mümkün olabilir... Tabi zaman ve hızlı bir internet ile

- Bu kadar ipucu ile programız yazdık sayılır... Balık tutmaya başlayabilirsiniz... Şimdi operasyon vakti...

- Çalışmalarınızda başarılar...