+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Mobil Platform - FireMonkey (FMX) (https://www.delphican.com/forumdisplay.php?fid=7)
+--- Konu Başlığı: Web ipnut alanına veri girme (/showthread.php?tid=7637)
Web ipnut alanına veri girme - Altıner - 11-03-2024
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>
Cvp: Web ipnut alanına veri girme - RAD Coder - 12-03-2024
[attachment=2599]
Cvp: Web ipnut alanına veri girme - Altıner - 12-03-2024
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
Cvp: Web ipnut alanına veri girme - RAD Coder - 12-03-2024
(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ı.
Web ipnut alanına veri girme - Altıner - 12-03-2024
Teşekkür ederim.