Discussion :

[Droïde Système7]

Bonjour

(En rapport avec : http://www.developpez.net/forums/d11...rnet-explorer/ )

Je cherche suivant ce code précis (3) :
http://www.swissdelphicenter.ch/torr...ode.php?id=412

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
{3. Forces a download of the requested file, object, or directory listing from the origin server,
    not from the cache
}
 
function DownloadURL_NOCache(const aUrl: string; var s: String): Boolean;
var
  hSession: HINTERNET;
  hService: HINTERNET;
  lpBuffer: array[0..1024 + 1] of Char;
  dwBytesRead: DWORD;
begin
  Result := False;
  s := '';
  // hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hSession) then
    begin
      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, INTERNET_FLAG_RELOAD, 0);
      if Assigned(hService) then
        try
          while True do
          begin
            dwBytesRead := 1024;
            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
            if dwBytesRead = 0 then break;
            lpBuffer[dwBytesRead] := #0;
            s := s + lpBuffer;
          end;
          Result := True;
        finally
          InternetCloseHandle(hService);
        end;
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;
 
//aufrufen
var
  s: String;
begin
 if DownloadURL('http://www.swissdelphicenter.ch/', s) then
   ShowMessage(s);
end;

Comment "sortir" l'objet downloadé, afin de l'envoyer par exemple vers le dossier Temp de l'user de session afin de pouvoir le gérer.

Car le code ci-dessus est impec ; ça rafraîchi effectivement l'objet pointé en cache (pas une mince affaire !).

Mais comment le récupérer ?

J'ai bien noté le premier paramètre de InternetOpen(), mais...

Car tout le contenu de ce Temporary Internet File est considéré comme invisible par toutes les méthodes de copie que j'ai tenté.
(Sauf des fichiers .txt via une StringList, mais pour tout autre objet = niet)

Merci de votre expérience

[Andnotor]

Je passerais par l'ajout d'un paramètre aléatoire dans l'url et utiliserais simplement la fonction URLDownloadToFile:

Code :

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

1
2
3
4
5
6
var
  URL :string;
begin
  URL := 'http:\\mydomain.com?rand=' +IntToStr(Random(MaxInt));
  URLDownloadToFile(nil, PChar(URL), 'MonFichier.txt', 0, nil);
end;

[Droïde Système7]

Je dois dire que je ne pige pas du tout ta méthode
Ça ajoute 3 ou 4 pages en cache IE et rien d'autre.

Mais tu dois avoir une idée derrière la tête

@+

Edit : oupssss je m'en doutais...

Arfff, si si un fichier arrive en dossier de l'appli, mais limité à 10,5 Ko, alors qu'il s'agit d'un exe de plusieurs Mo. J'avais pas vu.

Mais chapeau pour cette idée

[Andnotor]

Je dois dire que je ne pige pas du tout ta méthode
Ça ajoute 3 ou 4 pages en cache IE et rien d'autre.

Ben ton fichier est systématiquement téléchargé et sauvé où tu le souhaites. C'est ce que tu veux non ?

[Droïde Système7]

Ben ton fichier est systématiquement téléchargé et sauvé où tu le souhaites. C'est ce que tu veux non ?

Oui mais... il en manque des morceaux

Je suppose que ça fonctionne pour un fichier texte, mais un exe de plusieurs Mo, il manque des plumes.

En plus faut pas qu'il arrive directo en dossier parent, car il sera virtualisé (UAC).

Faudra qu'il arrive en dossier Temp de l'user de la session en cours.

Pour cette raison que j'avais creusé et étais content d'avoir enfin trouvé comment rafraîchir le cache IE.

Mais comment récupérer ce fichu fichier exe en cache IE ?

Car tous les autres codes qui permettent de cibler le bon dossier (de son choix), hé bien ces codes ne permettent pas de choisir cela et ça reste en cache IE.

Alors si un autre fichier est downloadé, hé bien si le cache n'est pas "remué", le résultat sera que le fichier existant sera resservi

L'autre fois ainsi, j'ai au moins passé 2 heures en testant sous toutes les coutures, car je pensais que mon serveur me jouait des tours de cochons

Mais non... en remuant le web, j'ai constaté que je n'étais pas le seul à avoir observé cela.

L'autre fois par hasard, après avoir passé un coup de CCleaner, ça s'était bien passé ; tiens donc, ça m'a mis sur la piste du pot aux roses (clean cache IE).

Le cache IE... ce dossier étrange "pingable" mais aucunement son contenu...

Si seulement un if FileExists(...) détectait un fichier précis dedans, mais non et c'est justement là que commence la galère.

Je parle de la constatation effectuée depuis ma configuration windows Vista. Je suppose que je ne suis pas le seul.

[Andnotor]

Je suppose que ça fonctionne pour un fichier texte, mais un exe de plusieurs Mo, il manque des plumes.

J'ai fait l'essai avec un fichier de 14Mb sans soucis.

En plus faut pas qu'il arrive directo en dossier parent, car il sera virtualisé (UAC).

Avec un manifest correctement rempli (incluant requestedExecutionLevel), il n'y a pas de virtualisation

Car tous les autres codes qui permettent de cibler le bon dossier (de son choix), hé bien ces codes ne permettent pas de choisir cela et ça reste en cache IE.
...
Alors si un autre fichier est downloadé, hé bien si le cache n'est pas "remué", le résultat sera que le fichier existant sera resservi.

Pas avec le paramètre Random. Puisque l'url a changé, le fichier est retéléchargé