| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка в Twebbrowser [D7, XP]

shunya ©   (2015-08-18 09:59:00) 

Всем привет.
Подскажите почему возникает ошибка ""
в коде

procedure TfmClick.WebBrowser1BeforeNavigate2(Sender: TObject;
 const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
 Headers: OleVariant; var Cancel: WordBool);
 var
    i: Integer;
begin
for i:=0 to Webbrowser1.OleObject.Document.links.Length-1 do
      begin
        if Webbrowser1.OleObject.Document.Links.Item(i)=URL then
        ShowMessage(Webbrowser1.OleObject.Document.Links.Item(i).innertext);
      end;
end;

ошибка появляется в выделенной строке

---

shunya   (2015-08-18 10:19:00) [1]

Нашел тут
http://www.delphimaster.net/view/2-1248162543/all

---

shunya   (2015-08-18 10:12:00) [2]

ошибка Invalid variant operation

---

Наверх