UC知道delphi EmbeddedWB控件的问题！
来源：百度知道 编辑：UC知道 时间：2024/06/20 08:12:39
procedure TForm1.Button1Click(Sender: TObject);
begin
embeddedwb1.Navigate('www.baidu.com');
end;
procedure TForm1.EmbeddedWB1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Memo1.Lines.Add(IHtmlDocument2(embeddedwb1.Document).Body.OuterText);
end;
这样是直接获取到页面的文字到 Memo1里显示
但是我想获取的是源代码，
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Untitled Page</title>
<script type="text/javasc
begin
embeddedwb1.Navigate('www.baidu.com');
end;
procedure TForm1.EmbeddedWB1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Memo1.Lines.Add(IHtmlDocument2(embeddedwb1.Document).Body.OuterText);
end;
这样是直接获取到页面的文字到 Memo1里显示
但是我想获取的是源代码，
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Untitled Page</title>
<script type="text/javasc
Uses
mshtml;
procedure TFormIEBrowse.Button1Click(Sender: TObject);
Var
document: IHTMLDocument2;
begin
document := WebBrowser1.Document as IHTMLDocument2;
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);
end;
================================
这样就行了
直接用IDHTTP控件就行了。
memo1.text := idhttp.get('www.baidu.com');