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;
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;
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.[Error] Unit1.pas(67): There is no overloaded version of 'Post' that can be called with these arguments