程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 通過API訪問IECache

通過API訪問IECache

編輯:Delphi

通過API訪問IE Cache
    我們知道在使用IE浏覽網頁時,IE會把遠端主機的內容保存在本機以供以後脫機訪問。下面將介紹的是如何通過Delphi編程實現遍歷Cache中所有保存的內容。
    如果大家對Windows API編程比較熟悉的話,應該知道對於遍歷訪問一般有兩種辦法,一是定義一個回調函數,然後將回調函數地址傳遞給遍歷函數,當遍歷到一個內容時就會調用回調函數一次,例如EnumWindows函數。另外一種是先利用一個API函數建立一個局柄,然後以這個局柄作為遍歷函數的參數,我們可以通過反復調用遍歷函數知道返回False,例如FindFirstFile以及FindNextFile函數。對IE Cache的遍歷使用的是第二種方法,即首先調用FindFirstUrlCacheEntryEx,如果成功返回一個局柄,然後通過重復調用FindNextUrlCacheEntryEx知道函數返回False,這樣就可以實現對Cache中所有文件的遍歷。
    下面來看程序,建立一個新工程,然後在Form1中分別加入兩個TButton組件以及兩個TListBox組件,Form1的完整代碼如下:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Wininet, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    function FindNextEntrys(Handle:Integer):Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
function TForm1.FindNextEntrys(Handle:Integer):Boolean;
var
  T: PInternetCacheEntryInfo;
  D: DWORD;
begin
  D := 0;
  FindnextUrlCacheEntryEx(Handle, nil, @D, nil, nil, nil);
  GetMem(T, D);
  try
    if FindNextUrlCacheEntryEx(Handle, T, @D, nil, nil, nil) then begin
      ListBox1.Items.Add(T.lpszSourceUrlName);
      ListBox2.Items.Add(T.lpszLocalFileName);
      Result := True;
    end
    else
      Result := False;
  finally
    FreeMem(T, D)
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  H:Integer;
  T: PInternetCacheEntryInfo;
  D: DWORD;
begin
  D := 0;
  FindFirstUrlCacheEntryEx(nil, 0, NORMAL_CACHE_ENTRY, 0,nil,@D, nil, nil, nil);
  GetMem(T, D);
  try
    H := FindFirstUrlCacheEntryEx(nil,0, NORMAL_CACHE_ENTRY, 0, T, @D, nil, nil, nil);
    if (H = 0) then
    else begin
      repeat
      until not FindNextEntrys(H);
      FindCloseUrlCache(H);
    end
  finally
    FreeMem(T, D)
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  URL:String;
begin
  If ListBox1.ItemIndex >=0 then begin
    URL:=ListBox1.Items.Strings[ListBox1.ItemIndex];
    Self.Caption := URL;
    if DeleteUrlCacheEntry(PChar(URL))then
      ListBox1.Items.Delete(ListBox1.ItemIndex);
  end;
end;

end.

    運行程序,點擊Button1,就可以分別在ListBox1中列出所有在Cache中的文件所對應的URL以及在ListBox2中列出相應的文件名。在ListBox1中選擇一個列表,然後點擊 Button2 就可以將該項從Cache中刪除。
    下面看程序,FindFirstUrlCacheEntryEx函數在Delphi中定義如下:

function FindFirstUrlCacheEntryExA(lpszUrlSearchPattern: PAnsiChar;
    dwFlags: DWORD;
    dwFilter: DWORD;
    GroupId: GROUPID;
    lpFirstCacheEntryInfo: PInternetCacheEntryInfo;
    lpdwFirstCacheEntryInfoBufferSize: LPDWORD;
    lpGroupAttributes: Pointer;  { 必須為 nil }
    pcbGroupAttributes: LPDWORD;    {必須為 nil }
    lpReserved: Pointer             { 必須為 nil }
    ): THandle; stdcall;

    其中,dwFilter定義查找類型,在這裡定義為NORMAL_CACHE_ENTRY以查找普通的Cache文件,GroupId定義查找分組,在這裡定義為0以查找所有分組。lpFirstCacheEntryInfo定義Cache文件數據結構。該結構在Wininet.pas中有定義,這裡就不列出了,其中成員lpszSourceUrlName以及lpszLocalFileName分別定義文件URL以及本地文件名。
    在上面的程序中我們可以看到,不論調用FindFirstUrlCacheEntryEx還是FindNextUrlCacheEntryEx,都需要調用兩次,第一次獲得一個指向PInternetCacheEntryInfo結構的指針,將這個指針通過GetMem函數賦予一個PInternetCacheEntryInfo結構數據。然後第二次調用才可以獲得結果。遍歷訪問完畢後需要調用FindCloseUrlCache方法關閉打開的局柄。
    上面介紹的是Cache操作中的遍歷Cache文件以及刪除Cache文件的操作。Cache操作函數還包括:分組函數,可以將特定的文件分在一個組內並執行組操作,例如:CreateUrlCacheGroup、SetUrlCacheEntryGroup;數據流(Stream)操作函數,可以將Cache中的內容輸入到數據流中。等等。大家可以參考MSDN中的幫助,或者到我的主頁 http://www.applevb.com 同我討論以及獲得源程序。
    以上程序在Win2000、Delphi 5下編寫,Win2000、Win98下運行通過。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved