GetEntryInfo
Give this function reference to a URL in the cache
and it places all information about the entry in IECache.EntryInfo.
If the URL is not found in the cache the function returns
ERROR_FILE_NOT_FOUND.
In the following sample the Cachewalk-sample is
expanded so a couple of labels show accesstime and expiretime and a
webbrowser displays the content of the file, when user navigates in
the listbox. GetEntryInfo finds information for the highlighted url
in the listbox.
procedure
TForm1.Button1Click(Sender: TObject);
begin
Iecache1.RetrieveEntries(0);
end;
procedure TForm1.IECache1Entry(Sender: TObject; var
Cancel: Boolean);
begin
ListBox1.Items.Add(IECache1.EntryInfo.SourceUrlName);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
IECache1.GetEntryInfo(Listbox1.Items[Listbox1.ItemIndex]);
Label1.Caption := 'Last modified: ' +
DateTimeToStr(IECache1.EntryInfo.LastModifiedTime);
Label2.Caption := 'Expire: ' +
DateTimeToStr(IECache1.EntryInfo.ExpireTime);
EmbeddedWb1.Go(IECache1.EntryInfo.LocalFileName);
end;
|