| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
нажатие на ссылку в TWebbrowser [D7, XP]
lewka © (2009-07-21 11:49:00)Здравствуйте!!! Пытаюсь нажать на ссылку на странице, загруженной в 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:00) [1]VarToStr(Webbrowser1.OleObject.Document.Links.Item(i))?
Palladin (2009-07-21 11:56:00) [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;
| |
