送分-高手请进

procedure TForm1.Button1Click(Sender: TObject);
var
   Stream: TStringStream;
begin
   Stream := TStringStream.Create('');
   idHttp1.Get('http://ok567.com',Stream);
   Memo1.Lines.add(Stream.DataString);
   Stream.Free;
end;
这样可以取到ok567.com的网页源代码
可是我只是想得到网页的文本，不要代码,请高手指点一下这代码应该怎么改
------------
我现在说明一下网页的文本是什么
我们现在进入ok567.com后在
页面上按ctrl+a然后把选定的内容复制所得到的文本，就是我所要的网页的文本了

解决方案 »

  1.   

    具体代码不知道
    见有人这样做过
    就是你的描述啦：
    打开一网页，执行ctrl+a，copy 到memo（过滤格式）
      

  2.   

    你发信息给斑竹windindance，他做过这个
      

  3.   

    //by westfly 2003-04-01 21:25:00
    uses MSHtml;procedure TForm1.Button1Click(Sender: TObject);
    var doc: dispHtmlDocument;
    begin
      doc := CoHtmlDocument.Create;
      OleVariant(doc).writeln('<html><head><title>ok</title><body>sss</body></html>');
      Memo1.Text := OleVariant(doc).body.innerText;
      doc := nil;
    end;
      

  4.   

    如果想提高一点点速度的话，可以修改成非OleVariant版的，不过写起了会稍费工夫。
      

  5.   

    做这个干什么呢？
    做一国产google吗？
      

  6.   

    想省力气吗 几行代码就取文本的方法我还没有见过-----
    这个请找一下srm的源程序，其中有对htm进行转换为文本的方法