Форум: "Начинающим";
Текущий архив: 2017.04.16;
Скачать: [xml.tar.bz2];

Вниз

Ошибка в Twebbrowser   Найти похожие ветки 

← →
shunya   (2015-08-18 09:59) [0]

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

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:12) [1]

ошибка Invalid variant operation

---

← →
shunya   (2015-08-18 10:19) [2]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2017.04.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.001 c