使用webbrower如何读取网页内一个变量或一个TEXT的值?

Question

如题

Answer 1

wb->WebBrowser，取出名为username的text的值，变量的不会
procedure TfrmWebInfo.Button1Click(Sender: TObject);
var
  ov: OleVariant;
  sValue: String;
begin
  if wb.Busy then Exit;  {未加载完判断}
  wb.Navigate('http://liujw/wlxmo/gbxp/add.asp');
  {the sec paramer is the em index}
  ov := wb.OleObject.document.all.item('username', 0);
  sValut := ov.Value;
end;
遍历所有的：
procedure TfrmWebInfo.btnGetInfoeClick(Sender: TObject);
var
  ov: OleVariant;
  i: Integer;
begin
  meoInfo.Lines.Clear;
  ov := wb.OleObject.Document.all;
  for i := 0 to (ov.Length - 1) do
    if ov.Item(i).tagName = 'A' then
      meoInfo.Lines.Append(ov.Item(i).id+'|'+ov.Item(i).tagName+'|'+ov.Item(i).href)
    else if ov.Item(i).tagName = 'IMG' then
      meoInfo.Lines.Append(ov.Item(i).id+'|'+ov.Item(i).tagName+'|'+ov.Item(i).src)
    else
      meoInfo.Lines.Append(ov.Item(i).id+'|'+ov.Item(i).tagName+'|'+ov.Item(i).InnerText);
 end;