procedure
TForm1.Button1Click(Sender: TObject);
var
Url, FileName, Expire : String;
ExpireDT : TDateTime;
begin
Url:='http:/www.urlcachetest.com/index.html';
FileName:='C:\test.htm';
Expire:='01-01-01 00:00:00';
ExpireDT:=StrToDateTime(Expire);
IECache1.CopyFileToCache(Url, FileName,
NORMAL_CACHE_ENTRY, ExpireDT);
end;
|