webbrowserda Click işlemini farklı yöntem kulanma

[mrmarman]

Hocam ne yapmaya çalıştığını boş bir proje oluşturup kurar mısın. Vereceğim cevap sana uygun mudur bilmek istiyorum.

Javascript için forumda bir sürü örnek var. Ancak senin de html bilgin olması lazım ki uyum olsun.

Google ile tarayınca dahi Tuğrul beyin blogu çıktı ona da bakabilirsin. Bu link

[Lord_Ares]

Belki faydası olabilir açısından paylaşmak istedim..
InvokeMember tutmuş olduğumuz kontrolümüzün herhangi bir olayını(event) tetiklememize yarar.

webBrowser1.Document.GetElementById(“Button1”).InvokeMember(“click”);

Bu kodu yazarak Button1 nesnesini click olayını tetiklemiş oluruz.

[brs]

Belki faydası olabilir açısından paylaşmak istedim..
InvokeMember tutmuş olduğumuz kontrolümüzün herhangi bir olayını(event) tetiklememize yarar.

webBrowser1.Document.GetElementById(“Button1”).InvokeMember(“click”);

Bu kodu yazarak Button1 nesnesini click olayını tetiklemiş oluruz.

Hocam bildiğim kadarıyla google da buton id yok <cite class="_Rm"> yada href ile click olabilir mi?

[Lord_Ares]

webBrowser1.Document.GetElementById(“Button1”).InvokeMember(“click”); yerine WebBrowser1.Document.GetElementsByTagName("a") ile deneme şansınız varsa deneyin. Şuanda bulunduğum yerde delphi olmadığı için deniyemiyorum ama muhtemelen sonuç verecektir.

[dogan]

webBrowser1.Document.GetElementById(“Button1”).InvokeMember(“click”); yerine WebBrowser1.Document.GetElementsByTagName("a") ile deneme şansınız varsa deneyin. Şuanda bulunduğum yerde delphi olmadığı için deniyemiyorum ama muhtemelen sonuç verecektir.

denedim sanırım yapamadım .

Bu yöntemde "link.Click;" run olmuyor

Kod: Tümünü seç

procedure TForm16.Button3Click(Sender: TObject);
var
  Document: IHTMLDocument2;
  Body: IHTMLElement2;
  aList: IHTMLElementCollection;
  a: IHTMLElement;
  I: Integer;
  link: string;
begin
  if Supports(WB1.Document, IHTMLDocument2, Document) then
    if Supports(Document.Body, IHTMLElement2, Body) then
    begin
      aList := Body.getElementsByTagName('a');
      for I := 0 to Pred(aList.length) do
      begin
        a := aList.item(I, EmptyParam) as IHTMLElement;
        link := a.getAttribute('href', 0);
        if (Pos('http://www.delphiturkiye.com/forum/index.php', link) > 0) then
        begin
          link.Click;
        end;
      end;
    end;
end;

[Lord_Ares]

Dikkatimi çeken kodunda InvokeMember(“click”) yerine link.click demişsin ozaman invokeMember yerine geçmişmidir ki ))