Transfert d'un objet du Cache Internet Explorer

**Droïde Système7** · 22/08/2011, 11h22

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** · 22/08/2011, 14h46

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** · 22/08/2011, 14h58

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** · 22/08/2011, 15h15

Envoyé par 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.

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** · 22/08/2011, 15h36

Envoyé par Andnotor

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** · 22/08/2011, 15h58

Envoyé par Droïde Système7

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.

Envoyé par Droïde Système7

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

Envoyé par Droïde Système7

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é

**Droïde Système7** · 22/08/2011, 16h05

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

Tiens, tu me donnes une idée...

Je regarde ça de près

Edit : tu as raison niveau Mo de téléchargement, mais faut pas se gourer de sens de... :

URL := 'http:\\mydomain.com?rand=' +IntToStr(Random(MaxInt));

**Droïde Système7** · 22/08/2011, 19h47

Bon alors les nouvelles :

J'ai testé ce principe d'ajout de données en bout de l'URL.
(Même que ça fonctionne impec sous une autre méthode plus complexe avec pointage du fichier downloadé en un dossier choisi)

Dans le principe c'est OK

Code :

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

URL := 'http://monsite.com/download/myprogr.exe?rand=' +IntToStr(Random(MaxInt));

Oui mais toujours des complications qui arrivent, puisque le fichier pointé doit passer par un script PHP :

Code :

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

URL := 'http://monsite.com/download.php?fichier=myprogr.exe?rand=' +IntToStr(Random(MaxInt));

Et là en ce dernier cas, ça foire... enfin le refresh en cache échoue

Edit : ce "refresh" échoue car j''ai vu qu'en cache IE, la fin du nom de l'exe est ...exe?rand=0

**GoustiFruit** · 22/08/2011, 22h15

On va continuer la discussion ici plutôt qu'en MP...

Mon idée était un peu différente, il ne s'agissait pas de faire croire à IE que le fichier téléchargé était différent en fournissant une adresse "paramétrée" variante, mais d'enregistrer ton exe sous un nom différent à chaque fois; peut-être qu'en combinant les 2...

**Andnotor** · 23/08/2011, 08h43

Il faut déjà respecter la syntaxe d'adressage :

Code :

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

URL := 'http://monsite.com/download.php?fichier=myprogr.exe&rand=' +IntToStr(Random(MaxInt));

Sans oublier :

Code :

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

1
2
initialization
  Randomize;

**ouiouioui** · 23/08/2011, 10h34

Utilise un FileStream.
Il faut threader aussi

mon updater utilise cette méthode, en mettant ou non le flags reload sa permet de faire un "stop/reprendre". si tu veux les sources sont la "ThreadDown.pas" :
http://code.google.com/p/toutenvrac/...club%2Fupdater

**Droïde Système7** · 23/08/2011, 10h52

Alex, intéressant ton source, mais une chose m'interroge en unité ThreadDown.pas :

Code :

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

1
2
  If FileExists(PConf.NewApp) Then
      DeleteFile(PConf.NewApp);

Car si ça pointe vers Internet Temporary Files, cette requête se cassera le nez.

A moins que ce soit autre chose, j'ai regardé ça en travers.

Mais à l'aide de tous les renseignements de vous tous, je crois que je vais pouvoir me débrouiller à avancer.

Merci à vous

**ouiouioui** · 23/08/2011, 10h56

newapp c'est le chemin et nom de destination, en l'occurrence dans le temp de l'utilisateur avec le nom de l'aplication suivi de _tmp.exe

regarde l'exemple en pièce jointe j'ai réduit le code.

**Droïde Système7** · 23/08/2011, 12h10

Alex, bon écoute... à l'aide de ton exemple que j'ai mis à rude épreuve comme suit :

1. J'ai placé sur mon serveur trois fichiers exe d'appli totalement différentes.
2. J'ai renommé tous ces noms par exemple en : toto1.exe - toto2.exe -toto3.exe
3. J'ai lancé ton exemple avec une url pointant sur l'exe "toto.exe" concerné
4. J'ai renommé sur serveur le toto1.exe en toto.exe
5. J'ai lancé le download = OK bonne correspondance d'exe
6. En laissant ton exemple actif
7. J'ai renommé sur serveur ce "toto.exe" en "totoxxx.exe"
8. J'ai renommé le "toto.2.exe" en "toto.exe"
9. J'ai relancé de download = OK bonne correspondance
10. idem avec renommage à tour de rôle de mes 3 exe différents sur serveur et...

Je n'ai pas réussi à prendre par défaut ton code.

Là je vais approfondir ça de près et m'en inspirer très très largement, sur la base de cet exemple.

Mais sans compliquer en threadant cette méthode ; enfin je ne crois pas car je souhaite garder cette fiabilité.

Grand merci à toi aussi, là cette fois je peux taguer en résolu

@+

**ouiouioui** · 23/08/2011, 15h44

Pour plus de fiabilité je compare le fichier reçu avec son empreinte MD5.
MD5 que je récupère d'une page avec d'autres infos comme la taille total du fichier pour afficher le temps restant et une ProgressBar.
Si sa peut t'aider

**Droïde Système7** · 23/08/2011, 18h07

Envoyé par ouiouioui

Pour plus de fiabilité je compare le fichier reçu avec son empreinte MD5.
MD5 que je récupère d'une page avec d'autres infos comme la taille total du fichier pour afficher le temps restant et une ProgressBar.
Si sa peut t'aider

C'est du super luxe, je suis déjà comblé par ce que je viens de trouver

Transfert d'un objet du Cache Internet Explorer

Web & réseau Delphi

Discussions similaires

Partager

Partager