Форум: "Начинающим";
Текущий архив: 2009.09.20;
Скачать: [xml.tar.bz2];
Внизнажатие на ссылку в TWebbrowser Найти похожие ветки
← →
lewka © (2009-07-21 11:49) [0]Здравствуйте!!! Пытаюсь нажать на ссылку на странице, загруженной в TWebbrowser, но выдает ошибку Invalid Variant Operation. Но почему она возникает не пойму.Подскажите что я не так сделал.
Вот мой кодprocedure TForm1.Button2Click(Sender: TObject); var i,j:integer;
begin
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do begin
Memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i)); end;
for j := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do begin
if Webbrowser1.OleObject.Document.Links.Item(j)="http://traffstock.com/" then
showmessage("123"); end;
← →
clickmaker © (2009-07-21 11:56) [1]VarToStr(Webbrowser1.OleObject.Document.Links.Item(i))?
← →
Palladin © (2009-07-21 11:56) [2]надо явно приводить к строковому типу
for j := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do begin
if String(Webbrowser1.OleObject.Document.Links.Item(j))="http://traffstock.com/" then
showmessage("123"); end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.09.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c