Vider le cache IE

Bizarrement, les fonctions HTTPxxxx de windev utilisent Internet Explorer.
Il arrive aprfois que nos problèmes de requetes soient résolus en vidant le cache de IE régulièrement.

Voici la procédure de vidage (qui n'est pas de moi, mais qui est vérifiée - on l'utilise régulièrement chez nos clients)

Code (Text):

PROCEDURE ViderCacheIE()

sResListeFichier est une chaîne
nNBREN est un entier = 0
dDateEncours,dDateDebut,dDateFin est une Date

nLMEM_FIXED est un entier = 0
nNORMAL_CACHE_ENTRY est un entier = 0x00000001
COOKIE_CACHE_ENTRY est un entier = 0x00100001


FILETIME est une Structure
    dwLowDateTime est un entier
    dwHighDateTime est un entier
FIN

INTERNET_CACHE_ENTRY_INFO est une Structure
    dwStructSize est un entier
    lpszSourceUrlName est un entier
    lpszLocalFileName est un entier
    CacheEntryType est un entier
    dwUseCount est un entier
    dwHitRate est un entier
    dwSizeLow est un entier
    dwSizeHigh est un entier
    LastModifiedTime est un FILETIME
    ExpireTime est un FILETIME
    LastAccessTime est un FILETIME
    LastSyncTime est un FILETIME
    lpHeaderInfo est un entier
    dwHeaderInfoSize est un entier
    lpszFileExtension est un entier
    dwExemptDelta est un entier
    szRestOfData est un tableau fixe de 1024 entier
FIN

ICEI est un INTERNET_CACHE_ENTRY_INFO

hFile est un entier
cachefile est une chaîne ASCIIZ sur 260 // MAX_PATH
dwBuffer est un entier sans signe sur 4 octets
nPntrICE est un entier

TListe est un tableau de 0 chaînes

TableauSupprimeTout(TListe)

ChargeDLL("wininet.dll")

ICEI:dwStructSize = 80
dwBuffer = 2048
hFile = AppelDLL32("wininet","FindFirstUrlCacheEntryA", Null,
&ICEI,&dwBuffer)
SI hFile <= 0 ALORS RETOUR

BOUCLE
   
    SI ETBinaire(ICEI:CacheEntryType,COOKIE_CACHE_ENTRY) =     COOKIE_CACHE_ENTRY ALORS
        //si ICEI:CacheEntryType[6]=vrai alors // cookie
       
        AppelDLL32("kernel32","lstrcpyA", &cachefile, ICEI:lpszLocalFileName)
       
       
        //        SI efface ALORS
        IF PAS     AppelDLL32("wininet","DeleteUrlCacheEntry",ICEI:lpszLocalFileName) <> 0 ALORS
            AppelDLL32("wininet","DeleteUrlCacheEntry",ICEI:lpszSourceUrlName)
        FIN
        //        SINON
        //            TableauAjoute(TListe, "! "+ cachefile)
        //        FIN
       
    FIN
   
    dwBuffer = 2048
    SI PAS AppelDLL32("wininet","FindNextUrlCacheEntryA", hFile, &ICEI,
        &dwBuffer) ALORS SORTIR
       
        SI ErreurInfo(errCodeSystème) = 259 ALORS SORTIR // NO_MORE_ITEM
       
FIN

AppelDLL32("wininet","FindCloseUrlCache", hFile)