unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Panel1: TPanel;
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var
mes:String;
begin
WebBrowser1.Navigate(*http://www.renren.com*);
mes:=WebBrowser1.OleObject.document.getElementByID(*reg_link*).InnerHtml ;
ShowMessage(*mes*);
end;
end.
输出结果为空，求指导，谢谢！

mes:=WebBrowser1.OleObject.document.getElementByID(*reg_link*).InnerHtml ;
直接写在下面貌似不行吧。因为WebBrowser1.Navigate(*http://www.renren.com*);是另一个线程
只有线程结束，获取完毕后才能取内部的Html
把mes:=WebBrowser1.OleObject.document.getElementByID(*reg_link*).InnerHtml ;放到完成事件中去

，谢谢