Показать сообщение отдельно
  #5  
Старый 20.06.2015, 20:07
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

А и не очень то и сложно. Компонент WebBrowser имеет полный набор методов для доступа к своим свойствам. Тем-же полям ввода. Скажем, если мы хотим загнать новое значение в поле для п.1.1. мы можем сделать так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
Var
  HtmDoc: IHTMLDocument3;
  HtmItem: IHTMLElement;
begin
 HtmDoc := WebBrowser1.Document as IHTMLDocument3;
 HtmItem := HtmDoc.getElementById('InR4C4');
 HtmItem.setAttribute('Value', 'Тысяча чертей!', 0);
end;

ну а прочитать что то уже так:
Код:
procedure TForm1.Button2Click(Sender: TObject);
Var
  HtmDoc: IHTMLDocument3;
  HtmItem: IHTMLElement;
begin
 HtmDoc := WebBrowser1.Document as IHTMLDocument3;
 HtmItem := HtmDoc.getElementById('InR4C4');
 Caption := HtmItem.getAttribute('Value', 0);
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием