Html deki Tıklanan Linkin URL sini almak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
doktoraltun
Üye
Mesajlar: 73
Kayıt: 06 Oca 2012 06:56

Html deki Tıklanan Linkin URL sini almak

Mesaj gönderen doktoraltun »

selamun aleykum arkadaşlar

Html sayfasındaki tıklamış oldugum linkin urlsini alabilirmiyim acaba
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: Html deki Tıklanan Linkin URL sini almak

Mesaj gönderen SimaWB »

Projenizde bir TWebBrowser var ve onun içerisinde açtığınız bir sayfada tıklanan bir linkin kastedildiğini düşünüyorum.
Forma bir tane ApplicationEvents bileşeni koyun ve bunun OnMessage olayına aşağıdaki kodları yazıp deneyin:

Kod: Tümünü seç

var
  X, Y: Integer;
  document, E: OleVariant;
  tag: string;
begin
  Handled := False;
  if (WebBrowser1 = nil) or (Msg.message <> WM_LBUTTONDOWN) then Exit;
  Handled := IsDialogMessage(WebBrowser1.Handle, Msg);
  if (Handled) then
    begin
    case (Msg.message) of
      WM_LBUTTONDOWN:
        begin
          X := LOWORD(Msg.lParam);
          Y := HIWORD(Msg.lParam);
          document := WebBrowser1.Document;
          E := document.elementFromPoint(X, Y);
          if Assigned(E) then
          begin
            tag := LowerCase(E.tagName);
            if tag = 'a' then
              ShowMessage(E.getAttribute('href',0))
            else if tag = 'img' then
              ShowMessage(E.getAttribute('src',0));
          end;
        end;
      end;
    end;
end;
Kod oldukça anlaşılır, o yüzden anlatmaya gerek yok sanırım. Yine de sormak istediğiniz birşey olursa yardımcı olmaya çalışırım.
Kodlar bu sayfadan faydalanılarak yazılmıştır.
There's no place like 127.0.0.1
Cevapla