Текущий архив: 2009.09.20;
Скачать: CL | DM;

Вниз

нажатие на ссылку в 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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.007 c