[D2010] Comment télécharger un fichier depuis un serveur avec InternetReadFile ?

**Lung** · 29/02/2012, 15h09

J'ai un outil qui doit récupérer des fichiers depuis un serveur (sur un réseau interne).
J'utilisais CopyFileEx, mais cette fonction semble ne pas gérer plusieurs accès à un fichier (sur le serveur) en même temps.

On m'a conseillé d'utiliser InternetReadFile.
Ca semble fonctionner, mais la plupart des fichiers récupérés ont la même taille (1,75 ko); et c'est pas bon.

Voici comment je fais :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
function TFormMaj.TelechargerFichier(const szFichierSource, szFichierDest: String; out szErreur: String): Boolean;
var
   szSource: String;
   nIndex, nTailleCopiee: Integer;
   hsession : HINTERNET;
   nTailleFichier, nTailleTransferee: Int64;
   hUrlFile: HINTERNET;
   F: File;
   Buffer: Array[1..1024] of Byte;
   nTailleLue: Cardinal;
begin
   Result := False;
 
   szSource := LowerCase(ExtractFilePath(szFichierSource));
   nIndex := Pos('\maj\', szSource);
   if nIndex > 0 then
   begin
      szSource := Copy(szSource, nIndex + 5, Length(szSource));
      szSource := StringReplace(szSource, '\', '/', [rfReplaceAll, rfIgnoreCase]);
 
      // Connexion.
      hSession := InternetOpen('serveurupdate', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
      try
         if Assigned(hSession) then
         begin
            Gauge.Progress := 0;      nTailleTransferee := 0;      nTailleFichier := GetTailleFichier(szFichierSource);
 
            // Ouverture du fichier.
            hUrlFile := InternetOpenURL(hSession, PChar(_szURL + szSource + ExtractFileName(szFichierSource)), nil, 0, 0, 0);
            if Assigned(hUrlFile) then
            begin
               try
                  try
                     // Téléchargement du fichier.
                     AssignFile(F, szFichierDest);
                     try
                        {$I-}
                        Rewrite(F, 1);
                        {$I+}
                        if IOResult = 0 then
                        begin
                           repeat
                              // Copie du bloc.
                              if InternetReadFile(hUrlFile, @Buffer, SizeOf(Buffer), nTailleLue) then
                              begin
                                 BlockWrite(F, Buffer, nTailleLue, nTailleCopiee);
                                 ...
                              end;
                           until(nTailleLue = 0) or (nTailleCopiee <> Integer(nTailleLue));
                        end;
                     finally
                        CloseFile(F);
                     end;
                  except
                     on E: Exception do
                     begin
                        szErreur := 'Échec téléchargement (InternetReadFile):  ' + E.Message;
                        Exit;
                     end;
                  end;
 
                  Result := True;
               finally
                  InternetCloseHandle(hUrlFile);
               end;
            end;
         end
         else
            szErreur := 'Échec connexion (InternetOpen):  ' + SysErrorMessage(GetLastError);
      finally
         InternetCloseHandle(hSession);
      end;
   end
   else
      szErreur := 'Erreur :  chemin [' + szFichierSource + '] incorrect !';
end;

J'ai fait une recherche sur le forum, mais les fonctions trouvées ressembles fortement à la mienne.
Qu'est ce que j'ai raté ?

**ShaiLeTroll** · 29/02/2012, 18h27

Tu ne compares pas nTailleTransferee et nTailleFichier dans ta fonction, cela te sera utile pour savoir si le fichier a été reçu entier ?

Tu devrais exploiter un GetLastError si tu as un mauvais retour de InternetReadFile, cela pourrait te mettre sur une piste !

**Lung** · 01/03/2012, 07h44

J'ai ajouté l'affichage du GetLastError quand InternetReadFile renvoit faux, mais ça n'arrive jamais.
J'ai testé après la boucle la différence entre nTailleTransferee et nTailleFichier: j'ai presque tout le temps une différence; nTailleTransferee a une taille fixe, inférieure à nTailleFichier.

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
                           repeat
                              // Copie du bloc.
                              if InternetReadFile(hUrlFile, @Buffer, SizeOf(Buffer), nTailleLue) then
                              begin
                                 BlockWrite(F, Buffer, nTailleLue, nTailleCopiee);
 
                                 // Affichage.
                                 ...
                              end
                              else
                                 AffErreur(ExtractFileName(szFichierSource) + ' >> ' + SysErrorMessage(GetLastError));
                           until(nTailleLue = 0) or (nTailleCopiee <> Integer(nTailleLue));
 
                           if nTailleTransferee <> nTailleFichier then
                              AffErreur(ExtractFileName(szFichierSource) + ' >> ' + IntToStr(nTailleTransferee) + ' <> ' + IntToStr(nTailleFichier));

J'ai ensuite remplacé la condition de la boucle par :

Code :

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

until(nTailleTransferee = nTailleFichier);

Mais, il n'en sort jamais.

**Lung** · 01/03/2012, 08h35

J'ai vu dans cette discution http://www.developpez.net/forums/d83...gros-fichiers/ qu'il faut peut-être utiliser InternetQueryDataAvailable avant InternetReadFile.
J'ai donc fait comme ç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
28
Buffer: Array of Byte;
...
                           repeat
                              if InternetQueryDataAvailable(hUrlFile, nTailleALire, 0, 0) then
                              begin
                                 try
                                    SetLength(Buffer, nTailleALire);
                                 except
                                    on E: Exception do
                                    begin
                                       ShowMessage(E.Message);
                                       AffErreur(ExtractFileName(szFichierSource) + ' >> ' + E.Message);
                                       Exit;
                                    end;
                                 end;
 
                                 // Copie du bloc.
                                 if InternetReadFile(hUrlFile, @Buffer, nTailleALire, nTailleLue) then
                                 begin
                                    BlockWrite(F, Buffer, nTailleLue, nTailleCopiee);
 
                                    // Affichage.
                                    ...
                                 end
                                 else
                                    AffErreur(ExtractFileName(szFichierSource) + ' >> ' + SysErrorMessage(GetLastError));
                              end;
                           until(nTailleLue = 0) or (nTailleCopiee <> Integer(nTailleLue));

En pas-à-pas, ca fonctionne au premier tour de boucle.
Au deuxième tour, au moment de refaire le SetLength, j'ai une violation d'accès.

**ouiouioui** · 01/03/2012, 09h51

Ton 1er code semble correct, utilise INTERNET_FLAG_RELOAD pour être sur de retélécharger et pas prendre dans le cache

Code :

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

InternetOpenURL(hSession, PChar(_szURL + szSource + ExtractFileName(szFichierSource)), nil, 0, INTERNET_FLAG_RELOAD, 0);

moi j'utilise un TFileStream

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
 
Procedure DownloadFile;
Var
  hSession, hURL:                                                       HInternet;
  Buffer:                                                                   Array [1 .. 1024] Of Byte;
  BufferLen:                                                              DWord;
  FS:                                                                       TFileStream;
Begin
    hSession     := InternetOpen('test', INTERNET_OPEN_TYPE_PRECONFIG, '', '', 0);
    FS := TFileStream.Create('c:\00.txt', fmCreate);
    Try
      hURL := InternetOpenURL(hSession, 'http://www.rest.cio/tt.exe', NIL, 0, INTERNET_FLAG_RELOAD, 0);
      Try
        Repeat
          InternetReadFile(hURL, @Buffer, BufferSize, BufferLen);
          FS.WriteBuffer(Buffer, BufferLen);
        Until BufferLen = 0;
      Finally
        InternetCloseHandle(hURL)
      End
    Finally
      InternetCloseHandle(hSession);
      FS.Free;
    End;
End;

**Lung** · 01/03/2012, 10h19

Ca fonctionne pas mieux.

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
            hUrlFile := InternetOpenURL(hSession, PChar(_szURL + szSource + ExtractFileName(szFichierSource)), nil, 0, INTERNET_FLAG_RELOAD, 0);
            if Assigned(hUrlFile) then
            begin
               try
                  try
                     // Téléchargement du fichier.
                     FluxFichierDest := TFileStream.Create(szFichierDest, fmCreate);
                     try
                           repeat
                                 // Copie du bloc.
                                 if InternetReadFile(hUrlFile, @Buffer, SizeOf(Buffer), nTailleLue) then
                                 begin
                                    FluxFichierDest.WriteBuffer(Buffer, nTailleLue);
 
                                    // Affichage.
                                    ...
                                 end
                                 else
                                    AffErreur(ExtractFileName(szFichierSource) + ' >> ' + SysErrorMessage(GetLastError));
                           until(nTailleLue = 0);

En sortie, la taille est toujours fixe (et fausse) pour la plupart des fichiers.
En fait, à part le premier, j'ai l'impression que c'est tous les suivants qui ne sont pas bon.

snif

[D2010] Comment télécharger un fichier depuis un serveur avec InternetReadFile ?

Langage Delphi

Discussions similaires

Partager

Partager