Vergi kimlik No Sorgulama

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Vergi kimlik No Sorgulama

Mesaj gönderen vkamadan »

Merhaba ,
TC Kimlik no gibi WSDL bir sevisi varmı Vergi Kimlik numarası sorgulamanın , yada nasıl bir yöntem kullanılabilir.
Volkan KAMADAN
www.polisoft.com.tr
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen 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.
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen 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.?
Volkan KAMADAN
www.polisoft.com.tr
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

Ehehe :D 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ş? :D Afedersin evet TIdHTTP
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

Get yöntemi ile bilgiyi URL'den gönderirsin, Post methodunda ise HTTP stream'i içinde gönderirsin.
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen 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.
Volkan KAMADAN
www.polisoft.com.tr
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen 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;
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen 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;
Volkan KAMADAN
www.polisoft.com.tr
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

Ben Indy 9.00.10 sürümünü kullanıyorum Volkan. Sendeki Indy 10 sanırım.
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen 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?
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen vkamadan »

Evet , bendeki Indy10 , Host özelliği yok bu TidHTTP nin .
Acaba başka bir nesnemi var bunun yerine çıkartılmış.
Volkan KAMADAN
www.polisoft.com.tr
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen 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 :)
Volkan KAMADAN
www.polisoft.com.tr
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen 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.
Volkan KAMADAN
www.polisoft.com.tr
Cevapla