Ура! Разобрался с этой проблемой. Но тут возникла вторая. Никак не получается программно нажать на кнопку на сайте. Пожалуйста кому не сложно посмотрите, есть подозрения что проблема из за Фрейма.
http://www.fips.ru/cdfi/Fips2009.dll/ после перехода нажмите на кнопку гостевой вход, затем "
Патентные документы РФ (рус.)" выберите все чекбоксы, далее нажмите на ссылку
поиск слева. Открывается форма, в поле автор введите к примеру "
Иванов",и нажмите
поиск. Открывается страница со списком ссылок, выберите любой на открывшейся странице есть кнопка "
Версия для печати" вот на эту кнопку не получается никак нажать. Пробовал нажать
Код:
procedure TForm1.Button4Click(Sender: TObject);
var
j:integer;
begin
for j := 0 to WebBrowser1.OleObject.Document.all.tags('input').length - 1 do
begin
try
if (WebBrowser1.OleObject.Document.all.tags('input').item(i).value='Версия для печати') then
WebBrowser1.OleObject.Document.all.tags('input').item(i).click;
except
end;
и так
Код:
var
a:variant;
begin
a:=Webbrowser1.Oleobject.Document.GetElementById('Версия для печати');
a.click;
end;