Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2017.04.16;
Скачать: CL | DM;

Вниз

Ошибка в 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.005 c
15-1460411018
KilkennyCat
2016-04-12 00:43
2017.04.16
12 апреля 1961 года, Ю. А. Гагарин, «Восток-1», «Байконур»


2-1439826143
igel888
2015-08-17 18:42
2017.04.16
Вопрос по Locate


2-1440325683
castor
2015-08-23 13:28
2017.04.16
элементы документации


2-1440917515
K-1000
2015-08-30 09:51
2017.04.16
BOOL -> Boolean


2-1440002554
Той
2015-08-19 19:42
2017.04.16
Как узнать все методы имеющиеся в объекте OleVariant ?