Discussion :

[Delphi-ne]

J'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With TIdHTTP.Create(Application) do Begin
        Port    := 80;
        l_Chaine = Get('AdresseURL.xml')

Ca fonctionne parfaitement la première fois.
Par contre si je modifie le fichier contenu par AdresseURL.xml le programme toujours récupère les anciennes données.
Je pense que cela provient du cache mais je ne trouve pas la commande pour le vider.

[Lung]

Essais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
   procedure ViderCache;
   var
      lpEntryInfo: PInternetCacheEntryInfo;
      hCacheDir: LongWord;
      dwEntrySize: LongWord;
   begin
      dwEntrySize := 0;
      FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
      GetMem(lpEntryInfo, dwEntrySize);
      if dwEntrySize > 0 then
         lpEntryInfo^.dwStructSize := dwEntrySize;
      hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
      if hCacheDir <> 0 then
      begin
         repeat
            DeleteUrlCacheEntry(lpEntryInfo^.lpszSourceUrlName);
            FreeMem(lpEntryInfo, dwEntrySize);
            dwEntrySize := 0;
            FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
            GetMem(lpEntryInfo, dwEntrySize);
            if dwEntrySize > 0 then
               lpEntryInfo^.dwStructSize := dwEntrySize;
         until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
      end;
      FreeMem(lpEntryInfo, dwEntrySize);
      FindCloseUrlCache(hCacheDir);
   end;

[Delphi-ne]

Merci.
Je suis en train d'essayer mais j'ai une erreur sur PInternetCacheEntryInfo.
A quelle unité correspond-il ?

[Lung]

Faut ajouter WinInet dans tes uses.

[Delphi-ne]

Au niveau code ca fonctionne mais le résultat est identique.
En fait c'est le cache du proxy qu'il faudrait vider ou alors forcer la page à se recharger.

[Delphi-ne]

J'ai trouvé une solution.
Je la donne ici au cas où cela pourrait aider quelqu'un

à l'URL lancée nous avons ajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 + '?' + DateToStr(Date)+TimeToStr(Time)

ainsi l'URL demandée est à chaque fois différente et le cache ne se déclenche plus