Главная » Delphi » Интернет и сети » как добраться до значений полей формы html

как добраться до значений полей формы html

23:06
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  inputs: Olevariant;
  i: integer;
begin
  inputs := WebBrowser1.OleObject.document.all.tags('input');
  memo1.Clear;
  for i := 0 to inputs.length - 1 do
    memo1.Lines.Add(inputs.item(i).value);
end;