html post with twebbrowser

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

html post with twebbrowser

Mesaj gönderen true_false »

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate( 'http://www.e-devlet.com/online_islemler/vergi_kimlik_no.asp');
  While WebBrowser1.ReadyState <> READYSTATE_Complete do
    Application.ProcessMessages;
    WebBrowser1.OleObject.Document.GetElementByID('ad').Value := 'aliveli';
    WebBrowser1.OleObject.Document.GetElementByID('soyad_un').Value := 'kırkdokuzelli';
    WebBrowser1.OleObject.Document.GetElementByID('baba_adi').Value := 'baba';
    WebBrowser1.OleObject.Document.GetElementByID('il').Value := '81';
    WebBrowser1.OleObject.Document.GetElementByID('dogum_yili').Value := '1453';
    WebBrowser1.OleObject.Document.GetElementByID('bSrg').Click;
end;
Arkadaşlar Merhaba yukarıdaki kodlarla webbrowser'a ilgili textleri gönerip ayrı bir sayfada(browser) sonuçları (vergi numarası) görebiliyorum fakat ben bu sayfayıda formun üzerinde görmek istedim @vkamadan'ın bir yazısında indy'nin idhttp comp. ile şu uygulama var.

Kod: Tümünü seç

begin
IdHTTP1.Host:= 'vedop.mb-ggm.gov.tr';
  Data:= TStringList.Create;
  try
    Data.Add('soyad_un=kırkdokuzelli');
    Data.Add('ad=aliveli');
    Data.Add('baba_adi=baba');
    Data.Add('il=81');
    Data.Add('dogum_yili=1453');
    Data.Add('submit1=Sorgula');
 [b]memo1.lines.text := IdHTTP1.Post('/vkn_sorgu/VKNoSorguOutput.jsp', Data);[/b]
  finally
    Data.Free;
end;
kod blogunu projeme uygulamak istedim fakat koyu renkte yazdığım satırda bana
[Error] Unit1.pas(67): There is no overloaded version of 'Post' that can be called with these arguments
bu hatayı verdi. indy comp. versionu 8.0.25 ama indy comp. örneklerinde post satırları çalışıyor. bu işi versiyon yükseltmeden twebbrowser ile yapabilirmiyiz. teşeküürler.
type
Tform1 = class(Tform)
Cevapla