Mar 22

как добраться до значений полей формы 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;