Всем доброго времени суток.
Вопрос следующий - как в TWebBrowser получить текст ссылки, делаю так, но выдается access violation:
| Код |
procedure TForm1.Button3Click(Sender: TObject);
var
i: Integer;
begin
if Webbrowser1.OleObject.Document.links.Length=0 then exit;
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i));
Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i).innerText); //access violation
end;
|
Надеюсь на вашу помощь! |