[Delphi] 创建IE下载扩展

IE下载扩展

 

 

介绍

 

大家都知道，在使用IE浏览页面时，经常需要下载一些文档和页面，我们可以选中连接然后点击右键菜单中的目标另存为…菜单，并弹出另存为对话框，我们可以将文件保存在指定目录下。见下图：

 

从IE6开始，我们可以编写自定义的扩展，截获目标另存为的动作，对下载进行更好地处理了。比如，IE的下载本身非常慢，那么我们可以注册一个下载扩展，对所有要通过另存下载的文件使用多线程下载，增加下载的速度。下面我们就来编写一个IE下载扩展，它的主要功能是禁止下载avi和mpg这类可能包含色情内容的文件。

 

创建下载扩展

 

新建一个ActiveX Library，保存为IEDown.dpr，然后新建一个COM组件，起名为TIEDownload，保存文件为CIEDownload.pas。一个下载扩展必须要实现IDownloadManager接口，由于Windows都是以C的头文件方式提供COM接口，而Borland无法及时的将所有的C的头文件翻译成Pascal的单元文件，因此VCL中并没有提供IDownloadMananger接口的声明，下面将使用的接口声明是Peter Larsen翻译的：

  PBindInfo = ^TBindInfo;

  _tagBINDINFO = packed record

    cbSize: ULONG;

    szExtraInfo: LPWSTR;

    stgmedData: TStgMedium;

    grfBindInfoF: DWORD;

    dwBindVerb: DWORD;

    szCustomVerb: LPWSTR;

    cbstgmedData: DWORD;

    dwOptions: DWORD;

    dwOptionsFlags: DWORD;

    dwCodePage: DWORD;

    securityAttributes: TSecurityAttributes;

    iid: TGUID;

    pUnk: IUnknown;

    dwReserved: DWORD;

  end;

  TBindInfo = _tagBINDINFO;

  BINDINFO = _tagBINDINFO;

  IDownloadManager = interface(IUnknown)

    ['{988934A4-064B-11D3-BB80-00104B35E7F9}']

    function Download(

      pmk: IMoniker; pbc: IBindCtx;

      dwBindVerb: DWORD; grfBINDF: DWORD;

      pBindInfo: PBindInfo; pszHeaders: PWidechar;

      pszRedir: PWidechar; uiCP: UINT): HRESULT; stdcall;

  end;

 

IDownloadManager接口只有一个Download方法，对于下载的操作来说，我们最关心的是无疑就是下载的Url了，在Download方法中有很多参数，其中的pmk参数是一个IMoniker接口。在COM中IMoniker接口主要是用来实现对象-名称智能绑定的，IMoniker的接口比较复杂，在这里就不详细讨论了，我们只需要知道通过调用IMoniker的GetDisplayName方法可以获得下载文件的Url就可以了。

 

下面是实现了IDownloadManager接口的TIEDownload的实现：

  TIEDownload = class(TComObject, IDownloadManager)

  protected

    function Download(

      pmk: IMoniker; pbc: IBindCtx;

      dwBindVerb: DWORD; grfBINDF: DWORD;

      pBindInfo: PBindInfo; pszHeaders: PWidechar;

      pszRedir: PWidechar; uiCP: UINT): HRESULT; stdcall;

  end;

function TIEDownload.Download(pmk: IMoniker; pbc: IBindCtx; dwBindVerb,

  grfBINDF: DWORD; pBindInfo: PBindInfo; pszHeaders, pszRedir: PWidechar;

  uiCP: UINT): HRESULT;

var

  PUrl: PWidechar;

  Url:string;

begin

  pmk.GetDisplayName(pbc, nil, PUrl);

  Url:=Trim(LowerCase(WideCharToString(PUrl)));

  //禁止下载avi和mpg文件

  if (Pos('.avi', Url)=(Length(Url)-3)) or (Pos('.mpg', Url)=(Length(Url)-3))then

  begin

    ShowMessage('禁止下载Avi和Mpg文件');

    Result:=S_OK;

  end

  else

    Result := E_NOTIMPL;

end;

 

注意结果返回S_OK标识，表示下载扩展成功的进行了下载，而返回E_NOTIMPL时IE则认为下载扩展处理下载失败，会使用默认的下载功能来进行下载。

 

注册扩展

 

扩展的注册也很简单，只要设定注册表HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\ DownloadUI 关键字的值为自定义扩展的Guid的字符串形式就可以了。不过要注意的是IE目前最多只能注册一个下载扩展，不允许多个下载扩展同时并存。下面是实现注册功能的类工厂：

type

  TIEDownloadFactory = class(TComObjectFactory)

  public

    procedure UpdateRegistry(Register: Boolean); override;

  end;

{ TIEDownloadFactory }

procedure TIEDownloadFactory.UpdateRegistry(Register: Boolean);

begin

  inherited;

  if Register then

    CreateRegKeyValue(HKEY_CURRENT_USER, 'Software\Microsoft\Internet Explorer',

      'DownloadUI', GuidToString(ClassId))

  else

    DeleteRegKeyValue(HKEY_CURRENT_USER, 'Software\Microsoft\Internet Explorer',

      'DownloadUI');

end;

initialization

  TIEDownloadFactory.Create(ComServer, TIEDownload, Class_IEDownload,

    'IEDownload', '', ciMultiInstance, tmApartment);

end.

 

注册扩展后，运行IE，打开光盘上和本程序同一个目录下的dowload.htm测试页面，在页面上有两个下载连接，一个是下载avi文件连接，一个是下载zip文件的连接，用右键菜单的另存为命令，会显示禁止操作消息界面，如下图，而下载zip文件则正常。

 

 

转自Delphi深度探索