http://www.gib.gov.tr/motop/bilgi.php POST

[ikurt07]

http://www.gib.gov.tr/motop/bilgi.php nasıl post edebiliriz. adresiniden nasıl sorgulama yapabiliriz.

[deltas]

Kod: Tümünü seç

http://www.gib.gov.tr/motop/bilgi.php?plakano=06dd926&vergino=123456&e_tes_g=01&e_tes_a=01&e_tes_y=2006&cmd=aracbilgileri

Kod: Tümünü seç

06dd926=plaka
123456=vergi no
e_tes_g=01  (gün)
e_tes_a=01   (ay)
e_tes_y=2006  (yıl)

bu tür sayfaların nasıl yolladığını öğrenmek için sayfayı kaydedin. daha sonra düzenleyin form method=get action=http://www.gib.gov.tr/motop/bilgi.php yapın. adres çubuğunda nasıl gittiği görülür.

Kod: Tümünü seç

<FORM name=form1 action=http://www.gib.gov.tr/motop/bilgi.php method=get   target=_blank>

EDİT:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  strPostData: string;
  Data: Pointer;
  URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
   strPostData := '?'+'plakano='+HTTPEncode(edit1.Text)+'vergino='+httpencode(edit2.text)+'e_tes_g'......;
  PostData :=  VarArrayCreate([0, Length(strPostData)-1], varByte);
  Data := VarArrayLock(PostData);
  try
    Move(strPostData[1], Data^, Length(strPostData));
  finally
    VarArrayUnlock(PostData);
  end;
  URL := 'http://www.gib.gov.tr/motop/bilgi.php';
  Flags := EmptyParam;
  TargetFrameName := EmptyParam;
  Headers := EmptyParam;
  WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
end;:

..... şeklinde yazdığım yerleri yukarıda belirttiğim plakano,vergino,e_tes_g, şeklinde devamını getir. bu işlemi yaparken bir tane webbrowser ekle. daha sonra html kodları içerinde arama yaparak direk programında kullanacağın yere yerleştirirsin. arama işlemi içinde daha önce forumda verilen aşşağıdaki kodlar işine yarayabilir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
Var Browser: TIdHTTP; 
    i,bas,son:integer; 
begin 
  memo1.Text:=''; 
  memo2.Text:=''; 
  Browser := TIdHTTP.Create(nil);
  try 
    Memo1.Text := Browser.Get('http://www.delphiturkiye.com/dlinks.htm'); 
  finally 
    Browser.Free; 
  end; 
  bas:=0;son:=0; 
  for i:= 1 to length(memo1.Text) do 
  begin 
   if copy(memo1.text,i,9) = '<a href="' then bas:=i; 
   if (bas<>0) and (copy(memo1.text,i,1) = '"') and (copy(memo1.text,i-1,2) <> '="') 
       then son:=i else son:=0; 
   if (bas<>0) and (son<>0) then 
    begin 
     memo2.Lines.Add(Copy(memo1.Text,bas+9,son-bas-10)); 
     son:=0;bas:=0; 
    end; 
  end; 
end;

[ikurt07]

YArdımın için teşekürler.
Ancak bu konuda biraz yeniyim.. birazdaha açık anlatabilirmisin.

[ikurt07]

Arkdaşlar.... Bu koduda yardımlarınızı bekliyorum

[deltas]

hocam bana özelden deneme yapabileceğim gerçek bir bilgi gönder test edeyim. kendi bilgilerin olursa ii olur. en azından herhangi bir sorun çıkarsa (çıkacağını sanmıyorum) test yapıyoruz diyebileleim. Benim arabam olmadığı için bu bilgileri bulamadım. P.M. bekliyorum

[ikurt07]

İlgilenen arkadaşlar için

procedure VergiDairesi;
var
i: Integer;
EncodedStr: string;
Header: OleVariant;
Post: OleVariant;

begin
EncodedStr := 'vergino='+VergiNo1E.Text+'&plakano='+S+'&tesciltar=';
Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
for I := 1 to Length(EncodedStr) do Post := Ord(EncodedStr);
Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
BandrolWB.Navigate('http://www.gib.gov.tr/motop/sorgusonuc.php', EmptyParam,EmptyParam, Post, Header);
end;