Vergi kimlik No Sorgulama

[vkamadan]

Merhaba ,
TC Kimlik no gibi WSDL bir sevisi varmı Vergi Kimlik numarası sorgulamanın , yada nasıl bir yöntem kullanılabilir.

[fduman]

Gördüğüm kadarıyla Web Servisi yok.

soyad_un=xxx
ad=yyy
baba_adi=zzz
il=vvv
dogum_yili=yyyy

bunları http://vedop.mb-ggm.gov.tr/vkn_sorgu/VK ... output.jsp
ye idhttpclient ile post geçip sonucu parse etmen gerekecek.

[vkamadan]

merhaba ,

http://vedop.mb-ggm.gov.tr/vkn_sorgu/VK ... &ad=volkan ....... şeklinde çağırıyorum ama sayfa bulunamaıyor POST etmek derken nasıl bir yöntem yani birde ıdHTTPClient değilde IdHTTP nesnesi var doğrumudur.?

[fduman]

Ehehe onu ben de denedim yemedi. Bu yaptığın (mız) GET çağrısı. IdHTTP.Post methodu var. Onunla bir dene.

IdHTTPClient değil miymiş? Afedersin evet TIdHTTP

[fduman]

Get yöntemi ile bilgiyi URL'den gönderirsin, Post methodunda ise HTTP stream'i içinde gönderirsin.

[vkamadan]

@coderlord merhaba ,

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
Liste:TStringList;
begin
try
liste:=TStringList.create;
liste.add('soyad_un=AYDIN');
liste.add('ad=recep');
liste.add('baba_adi=mehmet');
liste.add('il=54');
liste.add('dogum_yili=1969');
Memo1.Text:=IdHTTP1.Post('http://vedop.mb-ggm.gov.tr/vkn_sorgu/VKNoSorguoutput.jsp',Liste);
finally
liste.free;
end;
end;

şeklinde denediğimde, 404 hasası döndüren Exception la program kırılıyor yanlış kullanıyorum kesin.

[fduman]

Şöyle kullanıp sonuç alabiliyorsun. Tek unuttuğun Host değerini set etmek.

Kod: Tümünü seç

var
  Data: TStringList;
begin
  IdHTTP1.Host:= 'vedop.mb-ggm.gov.tr';
  Data:= TStringList.Create;
  try
    Data.Add('soyad_un=xxx');
    Data.Add('ad=xxx');
    Data.Add('baba_adi=xxx');
    Data.Add('il=06');
    Data.Add('dogum_yili=xxx');
    Data.Add('submit1=Sorgula');  // <-- Bu olmasa da hata vermedi ancak ne olur ne olmaz. Adamlar bunu da yollamış.
    Memo1.Lines.Text:= IdHTTP1.Post('/vkn_sorgu/VKNoSorguOutput.jsp', Data);
  finally
    Data.Free;
  end;

[vkamadan]

Merhaba ,
Şimdi

Kod: Tümünü seç

idHTTP1.Host //?

Özelliğini bulamadı , baktım idHTTP.Request.Host var bu şekilde kullandım.
Ama yine bilinmeyen hata döndü.
Çok ilginç son hali şöyle

Kod: Tümünü seç

var
  Data: TStringList;
begin
  IdHTTP1.REquest.Host:= 'vedop.mb-ggm.gov.tr';
  Data:= TStringList.Create;
  try
    Data.Add('soyad_un=AYDIN');
    Data.Add('ad=Recep');
    Data.Add('baba_adi=Mehmet');
    Data.Add('il=54');
    Data.Add('dogum_yili=1969');
    Data.Add('submit1=Sorgula');  // <-- Bu olmasa da hata vermedi ancak ne olur ne olmaz. Adamlar bunu da yollamış.
    Memo1.Lines.Text:= IdHTTP1.Post('/vkn_sorgu/VKNoSorguOutput.jsp', Data);
  finally
    Data.Free;
  end;

[fduman]

Ben Indy 9.00.10 sürümünü kullanıyorum Volkan. Sendeki Indy 10 sanırım.

[fduman]

Yok Request.Host değil. O HTTP header'ına host'u yazıyor. Indy'nin nereye göndereceğini bildirmen gerek. Problem orada. IdHTTP'ye Object Inspector'dan bakınca Host isimli bir property göremiyor musun?

[vkamadan]

Evet , bendeki Indy10 , Host özelliği yok bu TidHTTP nin .
Acaba başka bir nesnemi var bunun yerine çıkartılmış.

[vkamadan]

Olacak iş değil , Indy9 kurayım diyorum internettte bulamadım Indy9 u ya benim internette bir sorun var yada bütün indy9 linkleri kırık

[vkamadan]

Sonunda Indy 9 u buldum yükledim , ve tariflere uygun şekilde iletişimi gerçekleştirdim.
Bir ara okadar umutsuzluğa düştüm ki FastNet ile bile denedim
Çok teşekkürederim.
iyi çalışmalar.