如何让webbrowser脱机浏览?(50分)

  • 主题发起人 主题发起人 duckbill
  • 开始时间 开始时间
webbrowser.offset:=true;
 
好象如果是IE设定为脱机,那么它不脱机也没有用。
IE的脱机,应该是在注册表了找。
 
好像有个什么Offline的事件....忘了自已看看吧!
 
首先在工具-->internet 选项中历史记录保存天数中把时间设长一点。这样,凡是你看过的
网页,都可以脱机浏览了。不过,要单击文件-->脱机工作才行。
如果想把整个网站为保存下来,可心下载一个脱机浏览的软件,或使用frontpage2000的保存
网站功能!
 
假设有一个TWebbrowser实例WebBrowser
加一句WebBrowser.Offline:=true;
我试过,Offline属性只对其实例本身起作用,不影响IE和其他实例
 
uses wininet;
function IsGlobalOffline: boolean; //检查是否脱机
var
dwState: DWORD;
dwSize: DWORD;
begin
dwState := 0;
dwSize := SizeOf(dwState);
result := false;
if (InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @dwState,
dwSize)) then
if ((dwState and INTERNET_STATE_DISCONNECTED_BY_USER) <> 0) then
result := true;
end;

procedure SetGlobalOffline(Value: Boolean); //设置脱机
const
INTERNET_STATE_DISCONNECTED_BY_USER = $10;
ISO_FORCE_DISCONNECTED = $1;
INTERNET_STATE_CONNECTED = $1;
var
ci: TInternetConnectedInfo;
dwSize: DWORD;
begin
dwSize := SizeOf(ci);
if (Value) then begin
ci.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER;
ci.dwFlags := ISO_FORCE_DISCONNECTED;
end else begin
ci.dwFlags := 0;
ci.dwConnectedState := INTERNET_STATE_CONNECTED;
end;
InternetSetOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ci, dwSize);
end;
摘自EmbeddedWB。
顺便帮我看看http://www.delphibbs.com/delphibbs/dispq.asp?lid=918616
 
简单的Webbrowser.offline:=True就OK咯
 
后退
顶部