Öncelikle form bilgisi gönderen bir web sayfasından sorgulama linkini elde etmek için yine FIREFOX kullanıyoruz.
http://www.mozilla.com dan add-ons daki extension lardan "urlparams" eklentisini firefox a yükleyin.
URLPARAMS ikonunu tıklayın. Sayfanın sol tarafında alan bilgileri ve değerleri gelecektir.
Tckimlik sayfasında sorgulama bölümüne geçin.Form bilgilerini doldurduktan sonra bir sorgulama yapın.
Urlparams bölümünde Sol tarafda boş bir yerde sağ tuş yapın ve
Get <-> Post seçeneğini seçin.
Bütün bilgilerin GET bölümünde toplnadığını görürsünüz.
SUBMIT butonunu tıkladığınızda adres çubuğunda sorgulama linkini görebilirisniz.
Ciltno , aile no bilgileri ile sorgulama yapmak için.
Kod: Tümünü seç
procedure TForm1.btnbireynoilesorgulaClick(Sender: TObject);
var
CinsiyetStr: string;
cilti,ailei,sirai:integer;
begin
memo2.Clear;
buton:='birey';
hata:=false;
if (adie.Text='') or (soyadie.Text='') then begin uyari('Adı ve soyadı girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end;
if hata then exit;
urlsi:='http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx?__EVENTARGUMENT=&__EVENTTARGET=&__EVENTVALIDATION=%2FwEWbgKL6virDQKLyJj1DQKEp7KbAQKFp7KbAQKGp7KbAQKBp5KbAQKAp7KbAQKBp7KbAQKCp7KbAQKCp86YAQKTp7KbAQKcp7KbAQKHp7KbAQKEp%2FKYAQKCp8KYAQKCp%2';
urlsi:=urlsi+'FqYAQKBp56bAQKEp8KYAQKEp86YAQKEp8qYAQKEp%2F6YAQKEp%2FqYAQKEp8aYAQKFp%2FKYAQKTp%2F6YAQKFp%2F6YAQKFp%2FqYAQKFp8aYAQKFp86YAQKFp8KYAQKFp8qYAQKFp9aYAQKFp56bAQKFp5KbAQKGp%2FKYAQKGp%2F6YAQKGp%2FqYAQKCp8qYAQKHp8qYAQKCp5KbAQKCp%2FKYAQKGp8qYAQKGp9aYAQ';
urlsi:=urlsi+'KGp5KbAQKCp%2F6YAQKGp56bAQKHp%2FKYAQKHp%2F6YAQKHp%2FqYAQKHp8aYAQKCp56bAQKHp8KYAQKHp86YAQKHp9aYAQKGp8aYAQKHp5KbAQKHp56bAQKAp%2FKYAQKAp%2F6YAQKAp%2FqYAQKTp%2FKYAQKAp8aYAQKAp8KYAQKAp86YAQKAp9aYAQKAp5KbAQKAp8qYAQKAp56bAQKBp%2FKYAQKBp%2F6YAQKBp%2';
urlsi:=urlsi+'FqYAQKBp8KYAQKBp86YAQKCp9aYAQKBp8qYAQKBp9aYAQKEp9aYAQKEp5KbAQKEp56bAQKGp8KYAQKGp86YAQKBp8aYAQKCp8aYAQL3wOaYBAKO3rrpDAKrsezTAQLQqM7GCwL9g8TGBQLK6fTCAgLfmonnBwLK6cyxDwLK6azoAgL3wJ7BAQKyo5upBALEjdP2CAL3wL6kCQLQqIbjAgLw6v%2FxDgLmi9XFBALcg5K0DAL4';
urlsi:=urlsi+'sMC4AwLuucvUAwL9x7jtCQLztKywAwL4jNLLAwL2wO2pBQKtr8fHCQKTr8fHCQLUzMmHAgLVy72WCtk5VChvBNcDz3A5DvzBOMO3fiek&__LASTFOCUS=&__VIEWSTATE=%2FwEPDwUJNDk2ODQ1MDI4D2QWAgIBD2QWCgIFDxAPFgIeC18hRGF0YUJvdW5kZ2QQFVEFQURBTkEIQURJWUFNQU4PQUZZT05LQVJBSMSwU0FSB';
urlsi:=urlsi+'0FLU0FSQVkGQU1BU1lBBkFOS0FSQQdBTlRBTFlBB0FSREFIQU4HQVJUVsSwTgVBWURJTgVBxJ5SSQpCQUxJS0VTxLBSBkJBUlRJTgZCQVRNQU4HQkFZQlVSVARCT0xVBkJVUkRVUgVCVVJTQQlCxLBMRUPEsEsIQsSwTkfDlkwIQsSwVEzEsFMJREVOxLBaTMSwBkTDnFpDRQtExLBZQVJCQUtJUgdFRMSwUk5FB0VMQVpJxJ';
urlsi:=urlsi+'4HRVJaVVJVTQlFUlrEsE5DQU4MRVNLxLDFnkVIxLBSCkdBWsSwQU5URVAMR8OcTcOcxZ5IQU5FCEfEsFJFU1VOCEhBS0tBUsSwBUhBVEFZB0lTUEFSVEEGScSeRElSDktBSFJBTUFOTUFSQcWeCEtBUkFCw5xLB0tBUkFNQU4ES0FSUwlLQVNUQU1PTlUIS0FZU0VSxLAJS0lSSUtLQUxFC0tJUktMQVJFTMSwCktJUsWeRUj';
urlsi:=urlsi+'EsFIIS09DQUVMxLAFS09OWUEIS8OcVEFIWUEHS8SwTMSwUwdNQUxBVFlBB01BTsSwU0EHTUFSRMSwTgdNRVJTxLBOBk1VxJ5MQQRNVcWeCk5FVsWeRUjEsFIHTsSwxJ5ERQRPUkRVCU9TTUFOxLBZRQVSxLBaRQdTQUtBUllBBlNBTVNVTgZTxLBOT1AGU8SwVkFTB1PEsMSwUlQKVEVLxLBSREHEngVUT0tBVAdUUkFCWk9O';
urlsi:=urlsi+'CFRVTkNFTMSwBVXFnkFLA1ZBTgZZQUxPVkEGWU9aR0FUCVpPTkdVTERBSwrDh0FOQUtLQUxFCMOHQU5LSVJJBsOHT1JVTQnEsFNUQU5CVUwHxLBaTcSwUgrFnkFOTElVUkZBB8WeSVJOQUsVUQExATIBMwI2OAE1ATYBNwI3NQE4ATkBNAIxMAI3NAI3MgI2OQIxNAIxNQIxNgIxMQIxMgIxMwIyMAI4MQIyMQIyMgIyMwIyN';
urlsi:=urlsi+'QIyNAIyNgIyNwIyOQIyOAIzMAIzMQIzMgI3NgI0NgI3OAI3MAIzNgIzNwIzOAI3MQIzOQI0MAI0MQI0MgI0MwI3OQI0NAI0NQI0NwIzMwI0OAI0OQI1MAI1MQI1MgI4MAI1MwI1NAI1NQI1NwI1OAI1NgI1OQI2MAI2MQI2MgI2NAI2NQI3NwI2NgI2NwIxNwIxOAIxOQIzNAIzNQI2MwI3MxQrA1FnZ2dnZ2dnZ2dnZ2dnZ2';
urlsi:=urlsi+'dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2cWAQIXZAIHDxAPFgIfAGdkEBUOCELEsFNNxLBMCMOHRVJNxLBLBsOHSU5BUgrDh8OcTkfDnMWeBkTEsENMRRJExLBZQVJCQUtJUiBNRVJLRVoHRVJHQU7EsAVIQU7EsAVIQVpSTwRLVUxQBUzEsENFB1P';
urlsi:=urlsi+'EsExWQU4GRcSexLBMCEtPQ0FLw5ZZFQ4EMTE5NQQxMjQ5BDEyNTMEMTI2MwQxMjc4BDEyODQEMTMxNQQxMzgxBDEzODkEMTQ5MAQxNTA0BDE2MjQEMTc5MQQxOTYyFCsDDmdnZ2dnZ2dnZ2dnZ2dnZGQCDw8PFgIeBFRleHRlFgQeCm9ua2V5cHJlc3MFUE51bWVyaWNCb3hfTlNfQWRkTnVtZXJpY0l0ZW0oZXZlbnQsICdj';
urlsi:=urlsi+'dGxBaWxlU2lyYU5vJywgZmFsc2UsIGZhbHNlLCAtMSwgJy4nLCAtMSk7HghvbmNoYW5nZQUiTnVtZXJpY0JveF9OU19jdGxBaWxlU2lyYU5vKGV2ZW50KWQCEQ8PFgIfAWUWBB8CBUxOdW1lcmljQm94X05TX0FkZE51bWVyaWNJdGVtKGV2ZW50LCAnY3RsU2lyYU5vJywgZmFsc2UsIGZhbHNlLCAtMSwgJy4nLCAtMSk7H';
urlsi:=urlsi+'wMFHk51bWVyaWNCb3hfTlNfY3RsU2lyYU5vKGV2ZW50KWQCFw8PFgIfAWUWBB8CBU9OdW1lcmljQm94X05TX0FkZE51bWVyaWNJdGVtKGV2ZW50LCAnY3RsQmlydGhEYXRlJywgZmFsc2UsIGZhbHNlLCAtMSwgJy4nLCAtMSk7HwMFIU51bWVyaWNCb3hfTlNfY3RsQmlydGhEYXRlKGV2ZW50KWRkKN5wY1wxqvEXbvZyqy';
urlsi:=urlsi+'PKjCcgdxQ%3D';
urlsi:=urlsi+'&ctlAileSiraNo='+aileno.text+'&ctlBirthDate=&ctlCilt='+ciltno.text+'&ctlCity='+ilisecti+'&ctlDistrict='+ilcesecti+'&ctlFatherName=&ctlFirstName='+adie.text+'&ctlLastName='+soyadie.text+'&ctlMotherName=&ctlQueryFromData=T.C.%20Kimlik%20No%20Sorgula&ctlSex=&ctlSiraNo='+sirano.text;
x:=idhttp1.Get(urlsi);
x:=utf8decode(x);
siranokimlikdogrula;
end;
Baba adı , Ana adı bilgilerine göre sorgulama.
Kod: Tümünü seç
procedure TForm1.btnbabaadianaadisorgulaClick(Sender: TObject);
var
CinsiyetStr: string;
begin
memo2.Clear;
buton:='babaadi';
hata:=false;
giriskontrol;
if (babaadie.Text='') and (not babachk.Checked) then begin uyari('Baba Adı girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end;
if (anaadie.Text='') and (not anachk.Checked) then begin uyari('Ana Adı girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end;
if (cinsiyetkutu.Text='') and (not cinsiyetchk.Checked) then begin uyari('Cinsiyet Seçmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end;
if (edit13.Value=0) and (not yilchk.Checked) then begin uyari('Doğum Tarihi girmelisiniz.', mtConfirmation, [mbyes],['Tamam']);hata:=true;end;
if hata then exit;
durdur:=false;
urlsi:='';
urlsi:='http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx?__EVENTARGUMENT=&__EVENTTARGET=&__EVENTVALIDATION=%2FwEWbgKL6virDQKLyJj1DQKEp7KbAQKFp7KbAQKGp7KbAQKBp5KbAQKAp7KbAQKBp7KbAQKCp7KbAQKCp86YAQKTp7KbAQKcp7KbAQKHp7KbAQKEp%2FKYAQKCp8KYAQKCp%2';
urlsi:=urlsi+'FqYAQKBp56bAQKEp8KYAQKEp86YAQKEp8qYAQKEp%2F6YAQKEp%2FqYAQKEp8aYAQKFp%2FKYAQKTp%2F6YAQKFp%2F6YAQKFp%2FqYAQKFp8aYAQKFp86YAQKFp8KYAQKFp8qYAQKFp9aYAQKFp56bAQKFp5KbAQKGp%2FKYAQKGp%2F6YAQKGp%2FqYAQKCp8qYAQKHp8qYAQKCp5KbAQKCp%2FKYAQKGp8qYAQKG';
urlsi:=urlsi+'p9aYAQKGp5KbAQKCp%2F6YAQKGp56bAQKHp%2FKYAQKHp%2F6YAQKHp%2FqYAQKHp8aYAQKCp56bAQKHp8KYAQKHp86YAQKHp9aYAQKGp8aYAQKHp5KbAQKHp56bAQKAp%2FKYAQKAp%2F6YAQKAp%2FqYAQKTp%2FKYAQKAp8aYAQKAp8KYAQKAp86YAQKAp9aYAQKAp5KbAQKAp8qYAQKAp56bAQKBp%2FKYAQKBp';
urlsi:=urlsi+'%2F6YAQKBp%2FqYAQKBp8KYAQKBp86YAQKCp9aYAQKBp8qYAQKBp9aYAQKEp9aYAQKEp5KbAQKEp56bAQKGp8KYAQKGp86YAQKBp8aYAQKCp8aYAQL3wOaYBAKO3rrpDAKrsezTAQLQqM7GCwL9g8TGBQLK6fTCAgLfmonnBwLK6cyxDwLK6azoAgL3wJ7BAQKyo5upBALEjdP2CAL3wL6kCQLQqIbjAgLw6v%2FxDg';
urlsi:=urlsi+'Lmi9XFBALcg5K0DAL4sMC4AwLuucvUAwL9x7jtCQLztKywAwL4jNLLAwL2wO2pBQKtr8fHCQKTr8fHCQLUzMmHAgLVy72WCtk5VChvBNcDz3A5DvzBOMO3fiek&__LASTFOCUS=&__VIEWSTATE=%2FwEPDwUJNDk2ODQ1MDI4D2QWAgIBD2QWCgIFDxAPFgIeC18hRGF0YUJvdW5kZ2QQFVEFQURBTkEIQURJWUFNQ';
urlsi:=urlsi+'U4PQUZZT05LQVJBSMSwU0FSB0FLU0FSQVkGQU1BU1lBBkFOS0FSQQdBTlRBTFlBB0FSREFIQU4HQVJUVsSwTgVBWURJTgVBxJ5SSQpCQUxJS0VTxLBSBkJBUlRJTgZCQVRNQU4HQkFZQlVSVARCT0xVBkJVUkRVUgVCVVJTQQlCxLBMRUPEsEsIQsSwTkfDlkwIQsSwVEzEsFMJREVOxLBaTMSwBkTDnFpDRQtExLBZ';
urlsi:=urlsi+'QVJCQUtJUgdFRMSwUk5FB0VMQVpJxJ4HRVJaVVJVTQlFUlrEsE5DQU4MRVNLxLDFnkVIxLBSCkdBWsSwQU5URVAMR8OcTcOcxZ5IQU5FCEfEsFJFU1VOCEhBS0tBUsSwBUhBVEFZB0lTUEFSVEEGScSeRElSDktBSFJBTUFOTUFSQcWeCEtBUkFCw5xLB0tBUkFNQU4ES0FSUwlLQVNUQU1PTlUIS0FZU0VSxLAJS0l';
urlsi:=urlsi+'SSUtLQUxFC0tJUktMQVJFTMSwCktJUsWeRUjEsFIIS09DQUVMxLAFS09OWUEIS8OcVEFIWUEHS8SwTMSwUwdNQUxBVFlBB01BTsSwU0EHTUFSRMSwTgdNRVJTxLBOBk1VxJ5MQQRNVcWeCk5FVsWeRUjEsFIHTsSwxJ5ERQRPUkRVCU9TTUFOxLBZRQVSxLBaRQdTQUtBUllBBlNBTVNVTgZTxLBOT1AGU8SwVkFTB1';
urlsi:=urlsi+'PEsMSwUlQKVEVLxLBSREHEngVUT0tBVAdUUkFCWk9OCFRVTkNFTMSwBVXFnkFLA1ZBTgZZQUxPVkEGWU9aR0FUCVpPTkdVTERBSwrDh0FOQUtLQUxFCMOHQU5LSVJJBsOHT1JVTQnEsFNUQU5CVUwHxLBaTcSwUgrFnkFOTElVUkZBB8WeSVJOQUsVUQExATIBMwI2OAE1ATYBNwI3NQE4ATkBNAIxMAI3NAI3MgI2O';
urlsi:=urlsi+'QIxNAIxNQIxNgIxMQIxMgIxMwIyMAI4MQIyMQIyMgIyMwIyNQIyNAIyNgIyNwIyOQIyOAIzMAIzMQIzMgI3NgI0NgI3OAI3MAIzNgIzNwIzOAI3MQIzOQI0MAI0MQI0MgI0MwI3OQI0NAI0NQI0NwIzMwI0OAI0OQI1MAI1MQI1MgI4MAI1MwI1NAI1NQI1NwI1OAI1NgI1OQI2MAI2MQI2MgI2NAI2NQI3NwI2NgI2';
urlsi:=urlsi+'NwIxNwIxOAIxOQIzNAIzNQI2MwI3MxQrA1FnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2cWAQIXZAIHDxAPFgIfAGdkEBUOCELEsFNNxLBMCMOHRVJNxLBLBsOHSU5BUgrDh8OcTkfDnMWeBkTEsENMRRJExLBZQVJ';
urlsi:=urlsi+'CQUtJUiBNRVJLRVoHRVJHQU7EsAVIQU7EsAVIQVpSTwRLVUxQBUzEsENFB1PEsExWQU4GRcSexLBMCEtPQ0FLw5ZZFQ4EMTE5NQQxMjQ5BDEyNTMEMTI2MwQxMjc4BDEyODQEMTMxNQQxMzgxBDEzODkEMTQ5MAQxNTA0BDE2MjQEMTc5MQQxOTYyFCsDDmdnZ2dnZ2dnZ2dnZ2dnZGQCDw8PFgIeBFRleHRlFgQeCm';
urlsi:=urlsi+'9ua2V5cHJlc3MFUE51bWVyaWNCb3hfTlNfQWRkTnVtZXJpY0l0ZW0oZXZlbnQsICdjdGxBaWxlU2lyYU5vJywgZmFsc2UsIGZhbHNlLCAtMSwgJy4nLCAtMSk7HghvbmNoYW5nZQUiTnVtZXJpY0JveF9OU19jdGxBaWxlU2lyYU5vKGV2ZW50KWQCEQ8PFgIfAWUWBB8CBUxOdW1lcmljQm94X05TX0FkZE51bWVya';
urlsi:=urlsi+'WNJdGVtKGV2ZW50LCAnY3RsU2lyYU5vJywgZmFsc2UsIGZhbHNlLCAtMSwgJy4nLCAtMSk7HwMFHk51bWVyaWNCb3hfTlNfY3RsU2lyYU5vKGV2ZW50KWQCFw8PFgIfAWUWBB8CBU9OdW1lcmljQm94X05TX0FkZE51bWVyaWNJdGVtKGV2ZW50LCAnY3RsQmlydGhEYXRlJywgZmFsc2UsIGZhbHNlLCAtMSwgJy4n';
urlsi:=urlsi+'LCAtMSk7HwMFIU51bWVyaWNCb3hfTlNfY3RsQmlydGhEYXRlKGV2ZW50KWRkKN5wY1wxqvEXbvZyqyPKjCcgdxQ%3D';
gec:='&ctlAileSiraNo=&ctlBirthDate='+inttostr(edit13.value)+'&ctlCilt=&ctlCity='+ilisecti+'&ctlDistrict='+ilcesecti+'&ctlFatherName='+babaadie.text+'&ctlFirstName='+adie.text+'&ctlLastName='+soyadie.text+'&ctlMo';
gec:=gec+'therName='+anaadie.text+'&ctlQueryFromPersonalInfo=T.C.%20Kimlik%20No%20Sorgula&ctlSex='+cinsiyeti+'&ctlSiraNo=';
gec:=utf8encode(gec);
urlsi:=urlsi+gec;
x:=idhttp1.Get(urlsi);
x:=utf8decode(x);
gelenbilgileriayikla;
end;
Tckimlik numarasına göre sorgulama.
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;
Her iki sorgulama sonucununda gelen HTML bilgisinden bilgilerin alınması.
Bu bölüm Tckimlik dogrulama ve sorgulama için ayrı ayrııydı birleştirdim.
Kod: Tümünü seç
procedure tform1.gelenbilgileriayikla;
begin
// x:=memo1.text;
while Pos(chr(9), x) > 0 do delete(x,Pos(chr(9),x),1);
while Pos(chr(13), x) > 0 do delete(x,Pos(chr(13),x),1);
s:='';
i1:= pos('BOLD',x);
while x[i1]<>'>' do i1:=i1+1;
i1:=i1+2;
while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;tckimlik:=s;
i1:= pos('BOLD',x);
x[i1]:=' ';
if buton<>'tckimlik' then
begin
i1:= pos('BOLD',x);
x[i1]:=' ';
end;
s:='';
i1:= pos('BOLD',x);
while x[i1]<>'>' do i1:=i1+1;
i1:=i1+2;
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+2;
while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;ilce:=s;
i1:= pos('BOLD',x);
x[i1]:=' ';
if buton<>'tckimlik' then
begin
s:='';
i1:= pos('BOLD',x);
while x[i1]<>'>' do i1:=i1+1;
i1:=i1+2;
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+2;
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+2;
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+2;
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+2;
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+2;
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+2;
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+2;
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+2;
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+2;
while x[i1]<>'<' do begin s:=s+x[i1]; inc(i1); end;cinsiyeti:=s;
i1:= pos('BOLD',x);
x[i1]:=' ';
end;//if
if buton='tckimlik' then
begin
x:=Edit1.Text+' , '+tckimlik+' , '+il+' , '+ilce;
memo2.lines.Append(x);
end
else
begin
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;
end;
memo2.Refresh;
// memo2.Lines.SaveToFile(prgdizini+'Bulunanlar.csv');
end;