如何屏蔽WebBrowser的下载对话框 ( 积分: 10 )

H

huhuc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #1

如题。

 

H

huhuc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #2

如题。

 

H

hhi179

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #3

dfgfdsg

 

1

13708782004

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #4

你态吝啬了！狗狗

 

H

huhuc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #5

我不是吝啬，你看我现在多少分。

 

W

Witson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #6

好像是在Navigate2之前判断一下

 

H

huhuc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #7

现在还有一个变通的办法使检测扩展名，但是这样比较麻烦。
比方说有的会重定向。

 

L

liubin44966

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #8

onNewWindow2事件中cancel :=true

 

H

huhuc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-23

• #9

onNewWindow2事件中cancel :=true
没用啊

 

L

landy2005t

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-26

• #10

帮忙顶，没有功劳也有苦劳，请求散分。呵呵。

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #11

用urldownload 函数多好。

 

S

satanmonkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #12

http://www.euromind.com/iedelphi/iedownload.htm

 

H

huhuc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #13

不是要下载东西，而是让WebBrowser不弹出下载对话框。

 

S

satanmonkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-30

• #14

笨笨，你做个什么都不做的IEDownload替换掉原来的不就是不弹出了？

 

H

huhuc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-30

• #15

我要用到WebBrowser啊

 

S

satanmonkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-31

• #16

晕，那个东西对所有使用webbrowser的东西都起作用的。包括IE.虽然叫IEDownload.

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-04

• #17

写的比较匆忙，应该满足你了，自己多加些判断就可以了，不过10分也太多了点，我还凌晨帮你写代码呢[][]

关键是蓝色部分

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
procedure WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Caption := URL;
[blue]if Pos('.rar', URL) >0 then begin // 判断是不是有.rar
if Pos('.rar', Url)= Length(URL) -3 then begin // 判断是不是rar在最后
Cancel := True
end;
end[/blue] else
Cancel := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.2ccc.com/article.asp?articleid=1116');
end;

end.

 

H

huhuc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-05

• #18

不行啊，比方说有些url是www.xxx.com/download.asp?id=1
也会弹出下载对话筐

 

H

huhuc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-05

• #19

iedownload的sample编译出错了，我的是D7。

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-05

• #20

另外开一个隐藏的WebBrower，把当前WebBrower需要跳转的东西都在那里过一遍，发现需要下载的就按我的出力，不是就让当前的WebBrower跳转，因为不管如何最终都会出来rar,zip,doc等等这样的后缀的，供参考