В бибке WinInet нашел функцию, но либо я что то не так делаю, либо ей нужно что то еще для успешного выполнения, в общем не работает этот код:
| Код | uses WinInet;
var UrlName,LocalFileName:String; CacheEntryInfoBufferSize:DWORD; CacheEntryInfo:TInternetCacheEntryInfo; begin UrlName:='http://...адрес картинки, которую TWebBrowser загрузил в кэш'; CacheEntryInfoBufferSize:=sizeof(TInternetCacheEntryInfo); if FindFirstUrlCacheEntryA(@UrlName,CacheEntryInfo,CacheEntryInfoBufferSize) then StrCopy(LocalFileName,CacheEntryInfo.lpszLocalFileName); end;
| |