Discussion :

[Invité]

Bonjour,

J'ai une application Delphi qui doit télécharger un fichier et l’exécuter (fichier exe)

Avec un ShellExecute, mon navigateur s'ouvre et le fichier est téléchargé mais pas exécuté... le nom de l'exe téléchargé peut changer..

Avez-vous une solution ?

Merci

[Andnotor]

Utilise UrlDownloadToFile (ou UrlDownloadToCachefile) puis ShellExecute sur le fichier téléchargé.

[ShaiLeTroll]

Un peu de code ?

Si je comprends ton code actuel serait
1er ShellExecute sur une URL pour le téléchargement, genre http:\\www.server\dossier\fichier.ext, tu ne maitrise pas le navigateur ni la destination, l'API Windows UrlDownloadToFile est plus approprié comme le suggère Andnotor

2nd ShellExecute sur le chemin du fichier local

[Invité]

J'ai regardé mais cela ne fonctionne pas..
Le problème vient peut être du fait que mon lien ne pointe pas directement sur le fichier ?

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
procedure TfrmPrincipal.btnlmiClick(Sender: TObject);
var
   source, dest : string;
 
   function DownloadFile(SourceFile, DestFile: string): Boolean;
   begin
     try
       Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
     except
       Result := False;
     end;
   end;
begin
   source := 'https://mon_site.com/code.aspx?code=' + edTest.Text;
   dest   := 'c:\temp\app.exe';
 
   if DownloadFile(source, dest) then
      ShellExecute(Application.Handle, PChar('open'), PChar(dest), PChar(''), nil, SW_NORMAL)
   else
    ShowMessage('telechargement erreur')
end;

[Andnotor]

Sinon, tu peux aussi remplir un TFileStream à l'aide de TIdHttp.Get.

[Charly910]

Bonjour,

oui, il faudrait que tu indiques directement l'adresse du fichier. Par exemple :

Code :

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

  source := 'https://mon_site.com/' + edTest.Text;

si ton fichier est à la racine de ton site.

A+

Charly

[Invité]

Le problème c'est que le site ne m'appartient pas, il s'agit de logmein123 (pro) ou en fournissant un code il nous télécharge un exe, du coup j'ai pas la main sur le fichier..

Je voudrais faire un interface avec logmein123 directement dans mon application.

[ShaiLeTroll]

URLDownloadToFile est asynchrone ? ou bloquante ?

Return code : S_OK
Description : The download started successfully.

le retour indique le démarrage est OK mais est-ce qu'il a terminé ?
Pour attendre la fin du fichier, implémente un gestionnaire IBindStatusCallback::OnProgres, on peut supposer BINDSTATUS_ENDDOWNLOADDATA indique la fin

le message de AndNotOr : ShellExecute dans un SplashScreen et URLDownloadToCacheFile semble être "bloquant"

[Invité]

Mon UrlDownloadToFile me renvoi la valeur "-2147467260" au lieu de 0