获得指定网址指定标签内的内容或代码

uses  msxml;

//从网页源文件中获得指定标签间的代码

function TForm1.GetStr(StrSource, StrBegin, StrEnd: string): string;
var
  in_star, in_end: integer;
begin
  in_star := AnsiPos(strbegin, strsource) + length(strbegin);
  in_end := AnsiPos(strend, strsource);
  Result := copy(strsource, in_star, in_end - in_star);
end;

//信息列表点击

procedure TForm1.btn1Click(Sender: TObject);
const
  url = 'http://www.xxx.com';
var
  req: IXMLHTTPRequest;
  StrStream: TStringStream;
  SetNoteStr: string;
begin
     //利用 IXMLHTTPRequest 获取网页源代码，在调用函数GetStr截取需要的代码
      req := CoXMLHTTPRequest.Create;
      req.open('Get', url, False, EmptyParam, EmptyParam);
      req.send(EmptyParam);
     //获取标签直接的代码

      SetNoteStr := GetStr(req.responseText, '</script></center>', 'document.body.oncopy=function');
       StrStream := TStringStream.Create(SetNoteStr);
      try
        StrStream.Position := 0;
       //直接写入WebBrowser
        (WebBrowser.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream));
      finally
        StrStream.Free;
      end;
end;