Web ipnut alanına veri girme

[Altıner]

Merhaba,
Delphi community edition 11 kullanıyorum FMX ile uygulama yapıyorum.


Bir web sitenin inputa textsi girip sonrasında submit butonuna tıklayacağım.
Fakat aşağıdaki kodları bir türlü for döngüsüne sokamadım bu konuda yardımlarınızı rica ederim.

procedure TForm1.ButtonPLDeleteClick(Sender: TObject);
var
  doc: OleVariant;
  el: OleVariant;
  I: Integer;
begin
  doc := coHTMLDocument.Create as IHTMLDocument2;
  doc.write('https://www.delphican.com/index.php');
  doc.close;
  for I := 0 to doc.body.all.length - 1 do
  begin
    el := doc.body.all.item(I);
    if (el.tagName = 'class') then
    begin
      ShowMessage('class');
    end;
  end;
end;

<form action="#" id="form1" method="get" class="page-title-search">
<input id="keyword" name="keyword" type="search" placeholder="URL, anahtar kelimeler...">
<select id="myDropdown" class="dropbtn" aria-label="format-menu">
<option value="Neta">Neta</option>
<option value="Cek">Cek</option>
</select>
<input id="submit-button" type="submit" value="Tamam">
</form>

[RAD Coder]

   

[Altıner]

Hocam çok teşeşkür ederim sanırım dikkatinizden kaçtı "Delphi community edition 11 kullanıyorum FMX ile uygulama yapıyorum" diye yazmıştım

[RAD Coder]

(12-03-2024, Saat: 13:09)Altıner Adlı Kullanıcıdan Alıntı: Hocam çok teşeşkür ederim sanırım dikkatinizden kaçtı "Delphi community edition 11 kullanıyorum FMX ile uygulama yapıyorum" diye yazmıştım

Dikkat etmiştim. Yukarıda görüntüsünü paylaştığım örnek uygulamaya, FMX platformunda yazıldı.

[Altıner]

Teşekkür ederim.