Webbrowserda bulunan linkleri listbox'a almak

[xtekin]

İyi günler arkadaşlar
twebbrowser'da açılan web sayfası içinde bulunan target="_blank" hariç bütün linkleri listbox'a aktarmak istiyorum,
nasıl yapabilirim? yardımcı olursanız sevinirim.

[barisatalay]

Akla gelen ilk yol bir döngüdür o kadar zor birşeyde değildir sanırım. Aklımdan bir tane yazmayı deniyorum hatalarını siz düzeltebilirsiniz.

Öncelikle webbrowserdeki verileri bir değişkene aktarın. O değişkenizimiz "strTemp" olsun.

Kod: Tümünü seç

var
  strTemp,
  strAra,
  strItem,
  strLink: String;
begin
  strAra := '<a';
  while Pos(strAra,strTemp)>0 then
  begin
	strItem := 'href="';
    System.Delete(strTemp,1,Pos(strItem,strTemp) + Length(strItem));
	
	strLink := Trim(Copy(strTemp,1,Pos('"',strTemp) + 1));
	
	Listbox1.items.add(strLink);
	
  end;
  
end;

[brs]

Kod: Tümünü seç

var
  i: Integer;
begin
  for i := 0 to WebBrowser1.OleObject.Document.links.Length - 1 do
  begin
    ListBox1.Items.Add(WebBrowser1.OleObject.Document.links.Item(i));
  end;
end;

[ovural]

target=_blank hariç demiş arkadaş .. küçük bir düzeltm yapayım

Kod: Tümünü seç

var
  i: Integer;
begin
  for i := 0 to WebBrowser1.OleObject.Document.links.Length - 1 do
  if WebBrowser1.OleObject.Document.links.Item(i).target<>'_blank' Then
    ListBox1.Items.Add(WebBrowser1.OleObject.Document.links.Item(i));
end;