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;