Delphi 获取Internet缓存文件 -- FindFirstUrlCacheEntry FindNextUrlCacheEntry

最新推荐文章于 2021-06-28 12:20:12 发布

原创最新推荐文章于 2021-06-28 12:20:12 发布 · 3.3k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#internet #delphi #function #buffer #string

Delphi 专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一个Delphi函数，该函数用于获取并列出所有Internet缓存文件的路径。通过调用WinInet中的API，函数能够遍历缓存文件，并将每个文件的本地路径添加到字符串列表中。

下面是我写的一个函数，把所有的缓存文件路径添加到一个字符串列表中，直接看代码，带了注释。另外还有删除缓存等等大家自己到msdn找找。

需要引用WinInet

// 获取Internet缓存文件 function GetCacheFilePath(): TStringList; var pEntryInfo: PInternetCacheEntryInfo; lCacheDir, lEntrySize, lLastError: Cardinal; bLoop: Boolean; begin Result := nil; // 获取缓冲区大小 lEntrySize := 0; lCacheDir := FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), lEntrySize); if lEntrySize = 0 then Exit; // 分配内存 GetMem(pEntryInfo, lEntrySize); // 获取缓存文件 lCacheDir := FindFirstUrlCacheEntry(nil, pEntryInfo^, lEntrySize); if lCacheDir = 0 then begin FreeMem(pEntryInfo, lEntrySize); Exit; end; Result := TStringList.Create; // 开始遍历 while True do begin try Result.Add(string(StrPas(pEntryInfo^.lpszLocalFileName))); except end; // 释放内存 FreeMem(pEntryInfo, lEntrySize); // 获取下一个缓冲区大小 lEntrySize := 0; FindNextUrlCacheEntry(lCacheDir, TInternetCacheEntryInfo(nil^), lEntrySize); // 分配内存 if GetLastError() = ERROR_INSUFFICIENT_BUFFER then GetMem(pEntryInfo, lEntrySize) else Break; // 下一个缓存文件 FindNextUrlCacheEntry(lCacheDir, pEntryInfo^, lEntrySize); end; // 关闭缓存 FindCloseUrlCache(lCacheDir); end;