А и не очень то и сложно. Компонент 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;