Delphi 3种获取网页源代码实例。

获取网页源代码有几种方式，现在就我所知道的办法进行整理。鉴于方便关系，我这里就不写函数定义了，无论是function还是procedure，各位根据自己的情况定义，我这里是无参数的。

1.不打开网页获取网页源码

var

  IdHTTP1: TIdHTTP;

begin

    IdHTTP1:=TIdHTTP.Create;

    memo1.Text:= idhttp1.Get('http://www.yunpansou.cn');

    IDhttp1.Free;

end;

2.打开网页获取

1）var

  ms: TMemoryStream;

  URL: string;

begin

  URL := edit1.Text;

  EmbeddedWB1.Navigate(URL);

  while EmbeddedWB1.Busy do

    Application.ProcessMessages;

  ms := TMemoryStream.Create;

  try

    (EmbeddedWB1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(ms), True);

    ms.Position := 0;

    Memo1.Lines.LoadFromStream(ms);

  finally

    FreeAndNil(ms);

  end;

end;

2）这个实在是太简单啦：

  memo1.Lines.Text:=IHtmlDocument2(EmbeddedWB1.document).body.outerHTML;

  哈哈，一句话就搞定。但这个前提是要在EmbeddedWB里打开了你所要的网页，如果没打开，就

  EmbeddedWB1.Navigate('www.126.com');但要确定打开完全了，判断网页是否完全打开可以加上：

  while EmbeddedWB1.Busy do

    Application.ProcessMessages;然后再加上上面那个outerHTML就好啦！

  但是发现老在idhttp1.get处老报错：unknown protocol；折腾了半天，网上搜也搜不出答案，终于发现是因为没有加“http://”的缘故，讨厌，现在终于解决了，发上来让各位知悉。