各位:请问有什么办法可以将webbrowser控件打开的网页内容保存成HTML源文件到本地??谢谢
解决方案 »
- 改版了?打开网页速度慢很多
- 大家对代码自动生成怎么看的呀
- 一个QUERY返回的多个数据集怎么样用DBGRID来显示
- 请JetJack (喷气引擎) 帮忙。。。!!!
- 如何通过数据库的实时更新来激发事件?
- 尘世间最困难的事莫过于“选择!!!”!何去何从,请你来答,高手相送
- 怎用调用这个函数
- 散分 + 交换链接 www.wentrip.com 广州特价宾馆预定宾馆预订宾馆饭店订房广交会特价酒店预定酒店预订酒店
- #=====>是高手都进来讨论这个问题,来者都有分,快来一起讨论吧
- 如何得到数据库表的所有字段类型?还有...
- 如何直接打开ftp中指定文件?
- d6 dhtmledit 做querystatus后,再关闭窗口失败
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw_TLB, EmbeddedWB, ActiveX;type
TForm1 = class(TForm)
EmbeddedWB1: TEmbeddedWB;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure WB_GetDocumentSourceToStream(Document: IDispatch; Stream: TStream);
// Save a TWebbrowser Document to a Stream
var
PersistStreamInit: IPersistStreamInit;
StreamAdapter: IStream;
begin
Assert(Assigned(Document));
Stream.Size := 0;
Stream.Position := 0;
if Document.QueryInterface(IPersistStreamInit,
PersistStreamInit) = S_OK then
begin
StreamAdapter := TStreamAdapter.Create(Stream, soReference);
PersistStreamInit.Save(StreamAdapter, False);
StreamAdapter := nil;
end;
end;function WB_GetDocumentSourceToString(Document: IDispatch): string;
// Save a Webbrowser Document to a string
var
Stream: TStringStream;
begin
Result := '';
Stream := TStringStream.Create('');
try
WB_GetDocumentSourceToStream(Document, Stream);
Result := StringReplace(Stream.Datastring, #$A#9, #$D#$A, [rfReplaceAll]);
Result := StringReplace(Result, #$A, #$D#$A, [rfReplaceAll]);
finally
Stream.Free;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Text:=WB_GetDocumentSourceToString(EmbeddedWB1.Document);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
EmbeddedWB1.Navigate('http://10.113.58.5');
end;end.
如下:
procedure TForm1.Button2Click(Sender: TObject);
var
FilePath: string;
meoMry: TMemoryStream;
begin
Filepath := 'C:\';
try
meomry := TMemoryStream.Create;
WB_GetDocumentSourceToStream(WebBS.Document, MeoMry);
MeoMry.SaveToFile(FilePath + 'aaa.html');
finally
Meomry.Free;
end;end;
但是我在webbrowser中编辑输入字符,这时再保存,HTML代码是乱码。显示出来的也是一个 “?”号。其实我想得到webbrowser在编辑状态下输入内容后,它的HTML代码,最重要的是得到的HTML代码可以装进TStrings对象中。上面的兄弟的函数得出的结果在TStrings里是乱码。。
保存代码更简单
方法如下:
下面先介绍一种极其简单的得到TWebBrowser正在访问的网页源码的方法。一般方法是利用TWebBrowser控件中的Document对象提供的IPersistStreamInit接口来实现,具体就是:先检查WebBrowser.Document对象是否有效,无效则退出;然后取得IPersistStreamInit接口,接着取得HTML源码的大小,分配全局堆内存块,建立流,再将HTML文本写到流中。程序虽然不算复杂,但是有更简单的方法,所以实现代码不再给出。其实基本上所有IE的功能TWebBrowser都应该有较为简单的方法来实现,获取网页源码也是一样。下面的代码将网页源码显示在Memo1中。 Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml); 同时,在用TWebBrowser浏览HTML文件的时候要将其保存为文本文件就很简单了,不需要任何的语法解析工具,因为TWebBrowser也完成了,如下: Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText); 最后注意要引用mshtml单元。