uses wininet; function GetLocalFileNameFromIECache(url:string): string; var D: Cardinal; T: PInternetCacheEntryInfo; begin result := ''; D := 0; T:=nil; GetUrlCacheEntryInfo(PChar(Url), T^, D); Getmem(T, D); try if (GetUrlCacheEntryInfo(PChar(Url), T^, D)) then Result := T^.lpszLocalFileName else Result := ''; finally Freemem(T, D); end; end;
uses
wininet; function GetLocalFileNameFromIECache(url:string): string;
var
D: Cardinal;
T: PInternetCacheEntryInfo;
begin
result := '';
D := 0;
T:=nil;
GetUrlCacheEntryInfo(PChar(Url), T^, D);
Getmem(T, D);
try
if (GetUrlCacheEntryInfo(PChar(Url), T^, D)) then
Result := T^.lpszLocalFileName
else
Result := '';
finally
Freemem(T, D);
end;
end;
调用:
ShowMessage(GetLocalFileNameFromIECache('http://www.baidu.com/'));
我觉得,如果是小文件比如网页上的小图片css,js之类的,可能直接下会更快一些.在数百兆的缓存里找文件到底有多快?
XXX[1].jpg之类的,我是写一个循环处理来确认,一般不会超过10的.
GetUrlCacheEntryInfo