delphi7怎么才能复制到webbrowser1内的网页文字呢？

[aqaq_aqaq]

下面代码可以过，可是却不能复制webbrowser1内的网页文字到指定文件。好象跟本就没有复制到内容

初学，请高手指点

目的：把webbrowser1内的网页文字全选、复制、储存到指定文本文件里

=============================================================

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, OleCtrls, SHDocVw, Activex;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
RichEdit1: TRichEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure WebBrowser1NavigateComplete2(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
///RichEdit1.Lines.SaveToFile('a.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
timeOut:DWORD;

begin
WebBrowser1.Navigate('http://www.baidu.com/');
timeOut:=Gettickcount;
while (GettickCount-timeOut)<=10000 do
Application.ProcessMessages;
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);
begin

RichEdit1.PlainText := true;
webbrowser1.ExecWB(OLECMDID_SELECTALL,0);
webbrowser1.ExecWB(OLECMDID_COPY,0);
richedit1.PasteFromClipboard;
RichEdit1.Lines.SaveToFile('c:\ab.txt');
WebBrowser1.stop;

end;
//注意下面
initialization
OleInitialize(nil);

finalization
OleUninitialize;

end.

[aqaq_aqaq]

请高手指点,辛苦了
请高手指点,辛苦了

[xisiyong]

WebBrowser1.stop;//这行去掉。
因为一个网页可能加载好多次，一个框架加载一次。不过你进入的百度应当是能成功的。我已经试了可以的。