Discussion :

[nah_wah]

salut tout le monde,
j'ai un site heberger sous ifrance ,sur ce site il ya des fichiers (*.exe) a telecharger,lorsque j'accede a mon site je clique sur le fichier le telechargement se passe tres bien .
j'ai voulu essaye de le telecharger via delphi avec le code suivant:

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
 
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
// URL
 SourceFile = 'http://nahwah.ifrance.com/Gescom/QualiServ.exe';
// Répertoire de destination du fichier
  DestFile = 'c:\Qualiserv.exe';
begin
  if DownloadFile(SourceFile, DestFile) then
  begin
    ShowMessage('Download succesful!');
// Afficher l'image dans le navigateur
    ShellExecute(Application.Handle, PChar('open'), PChar(DestFile), PChar(''), nil, SW_NORMAL)
  end
  else
    ShowMessage('Error while downloading ' + SourceFile)
end;

apres execution le fichier est telecharger mais avec une taille reduite environ 3ko (taille initiale environ 7Mo)
pouvez vous m'aider svp.
Merci

[evarisnea]

l'exécutable marche-t'il quand même

[LadyWasky]

C'est peut-être parce que tu es connecté derrière un proxy.

un mot de passe réclamé par ton navigateur quand tu l'ouvre pour aller sur internet? Oui --> cherches pas, c'est ça

[LadyWasky]

Essaies ceci à la place

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
 
uses wininet;
function DownloadFile(fileURL: string; FileName: string) : Boolean ;
 const BufferSize = 1024;
var hSession, hURL: HInternet;
    Buffer: array[1..BufferSize] of Byte;
    BufferLen: DWORD;
    f: File;
    sAppName: string;
begin
     Result   := False;
     sAppName := ExtractFileName(Application.ExeName);
     hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
     try
        hURL := InternetOpenURL(hSession, PChar(fileURL), nil,0,0,0);
        try
           AssignFile(f, FileName);
           Rewrite(f,1);
           repeat
                 InternetReadFile(hURL, @Buffer,
                 SizeOf(Buffer), BufferLen);
                 BlockWrite(f, Buffer, BufferLen)
           until BufferLen = 0;
           CloseFile(f);
           Result:=True;
        finally
               InternetCloseHandle(hURL)
        end
     finally
            InternetCloseHandle(hSession)
     end
end;