05-09-2024, Saat: 09:15
Arkadaşlar merhaba çalıştığım işyerinde ticaret bakanlığından aldığımız belge var bu belgeyi alabilmek için bazı alanları doldurmamız gerekiyor buda çok zaman alıyor o yüzden Delphiyi kullanarak aşağıdaki kodlarla formdaki ilgili alanları doldurabiliyorum ancak şöyle bir sorun ortaya çıkıyor görsellerde de görüldüğü üzere ben alanları doldurup giriş butonuna tıklattığımda web sayfası ilgili alanları doldurulmamış kabul ediyor sizce bu neden oluyor yazmam gereken bir kod mu var çözemedim? Yardımlarınızı bekliyorum.
Kullanmış olduğum kodlar.
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('https://ithalat.ebirlik.org/impws/app');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.GetElementByID('c_19').value :=edit1.Text;
WebBrowser1.OleObject.Document.GetElementByID('c_23').value:=edit2.Text;
WebBrowser1.OleObject.Document.GetElementByID('c_27_item_1').value:='Türkçe'
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.GetElementByID('c_29').Click;
end;

