delphi 7 用embeddedwb获取网页源码

Delphi 7是一种集成开发环境（IDE）和编程语言，可以用于开发Windows应用程序。其中的EmbeddedWB组件是基于Internet Explorer的WebView提供的控件，用于在Delphi应用程序中嵌入网页浏览功能。

要获取网页源码，可以使用EmbeddedWB组件提供的若干功能。以下是一种可能的实现方式：

1. 在Delphi中创建一个新的窗体或任意容器控件（如Panel）。
2. 在窗体的设计界面上，将EmbeddedWB组件放置在窗体上。
3. 在代码中，使用以下命令行获取网页的源码：

procedure TForm1.Button1Click(Sender: TObject);
var
  SourceCode: TStringList;
begin
  SourceCode := TStringList.Create;
  try
    EmbeddedWB1.Navigate('http://www.example.com'); // 替换URL为要获取源码的网页地址
    while EmbeddedWB1.ReadyState <> READYSTATE_COMPLETE do
      Application.ProcessMessages;

    SourceCode.Text := EmbeddedWB1.DocumentSource;
    // 此时，字符串列表SourceCode中存储了网页的源码

    // 可以在这里将源码保存到文件或进行其他处理

  finally
    SourceCode.Free;
  end;
end;

上述代码首先创建了一个TStringList对象，用于存储网页源码。然后，通过EmbeddedWB1组件的Navigate方法加载指定URL的网页。使用while循环和Application.ProcessMessages来等待网页加载完成。

当网页加载完成后，将EmbeddedWB1的DocumentSource属性赋值给SourceCode的Text属性，从而获取网页的源码。

最后，可以将源码保存到文件或进行其他处理。如果要将源码保存到文件，可以使用TStringList的SaveToFile方法。

需要注意的是，EmbeddedWB组件需要运行时支持Internet Explorer版本。如果浏览器版本较旧或系统没有安装Internet Explorer，可能会导致组件无法正常工作。