Главная страница
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
2-1440002554
Той
2015-08-19 19:42
2017.04.16
Как узнать все методы имеющиеся в объекте OleVariant ?


2-1439629079
RZD
2015-08-15 11:57
2017.04.16
Мерцает (подмаргивает) крупный текст на панели.


2-1441016318
lerandivan
2015-08-31 13:18
2017.04.16
Загрузка данных из текстового файла в StringGrid


15-1460099290
DayGaykin
2016-04-08 10:08
2017.04.16
Обнаружение утечек в функции.


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