Webbrowser ile tıklama

[vkamadan]

merhaba şöyle bir yöntem de olabilir ,
Tıklanacak linkin görünen adı sabitse (sizin verdiğiniz örnekte "Taslak Olarak Kaydet" yazıyor hep sabitse)
sayfadaki linklerin innerText lerine döngüyle bakıp doğru olan linki clickleyebilirsiniz.

Kod: Tümünü seç

           procedure ClickToElementByInnertText (pWB : TWebBrowser; pLinkAdi :  String) ;
               var
                i: Integer ;
               begin
                   for I := 0 to pWb.OleObject.Document.links.length - 1 do
                     begin
                        if pWb.OleObject.Document.links.item(i).innerText = pLinkAdi then
                          begin
                            pWb.OleObject.Document.links.item(i).click;
                            Break;
                          end;
                     end;
               end;

Kullanımı sizdeki TWebBrowser adı WebBrowser1 olduğunu varsayalım ve aradığımız link adı "Taslak Olarak Kaydet" olsun ;

Kod: Tümünü seç

  ClickToElementByInnertText( WebBrowser1 , 'Taslak Olarak Kaydet' );

Kolay gelsin.

[ballyunuvar]

Çok Teşekkürler Volkan Bey Aynı Zamanda SimaWb e de
Volkan bey yapacağım sayfada iki sorunum kaldı
1.si Dropdown tarzı bir eleman var onun bilgilerini combobox a çekip seçtirmek yaptırıp göndermem gerekiyo

2. sayfada bi html editör var CKeditör diye bi compenent onun içerisindeki bilgiyi alıp değiştirip göndermem gerekiyo

İlgili yardımlarınız için tekrar teşekkür ederim.

[ballyunuvar]

cevap verebilecek kimse yok mu ugraşıyorum proje yarım kaldı