我用Internet页面中的webbrowser1控件，怎么总是不成功？！郁闷！

Question

个位大侠！我用Internet页面中的webbrowser1控件，怎么总是不成功？
如下：
var
  flags:OleVariant;
  URL:widestring;
begin
  URL:=widestring(edit1.Text);
  webbrowser1.Navigate(URL,flags,flags,flags,flags);
  edit1.Enabled:=false;
end;
比方edit的内容为：http://www.google.com
怎么运行“webbrowser1.Navigate(URL,flags,flags,flags,flags);”
总是报：Project project1.exe raised exception class ElistError with message 'List
index out of bounds(0)'.Process stopped.Use Step or Run to contionue.

Answer 1

webbrowser1.Navigate(URL,flags,flags,flags,flags);
----直接WebBrowser1.Navigate(Edit1.Text)就可以了

Answer 2

兄弟很谢谢你的帮助！可是我按照你的方法试了，还是报同样的错误：‘Project project1.exe raised exception class ElistError with message 'Listindex out of bounds(0)'.Process stopped.Use Step or Run to contionue.’ 快晕倒～～

Answer 3

....下面是我按一个例子做的，你看下，很简单的，一行代码就可以了
`````````````````````````````````````````````````````````````
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, Buttons, ExtCtrls, ImgList,
  ComCtrls, ToolWin;type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    WebBrowser1: TWebBrowser;
    StatusBar1: TStatusBar;
    procedure BitBtn1Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  WebBrowser1.Navigate(Edit1.Text);end;procedure TForm1.webBrowser1DownloadBegin(Sender: TObject);
begin
  Form1.Caption:=Edit1.Text+'...';  StatusBar1.Panels[0].Text:='connecting the address now:  '+Edit1.Text;
end;procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
  Form1.Caption:=WebBrowser1.LocationURL;  StatusBar1.Panels[0].Text:='complete: '+WebBrowser1.LocationURL;
end;procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  Try
    WebBrowser1.GoBack;
  except
    ShowMessage('error page');
    exit;
  end;
end;procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  try
    WebBrowser1.GoForward;
  except
    ShowMessage('error page');
    exit;
  end;    
end;procedure TForm1.ToolButton4Click(Sender: TObject);
begin
  WebBrowser1.Stop;
end;procedure TForm1.ToolButton5Click(Sender: TObject);
begin
  WebBrowser1.Refresh;
end;procedure TForm1.ToolButton6Click(Sender: TObject);
begin
  WebBrowser1.GoHome;
  Edit1.Text:='about: blank';
end;end.