Télécharger un fichier après ouverture de la boite de dialogue SaveAs

Commenter

Contenu du snippet 

Uses ComObj;//  indispensable 
Function  DoFileDownloadEx(lpszFile: LPCWSTR; Save: Bool):Cardinal; Stdcall; External  'shdocvw.dll' name 'DoFileDownloadEx'; 
Implementation 
Procedure  DownloadThisFileAnd(Const aUrl:  String; Const  Save: Boolean = True); 
Var  
  pwcUrl: PWideChar; 
Begin  
  GetMem(pwcUrl, 2048);  
  StringToWideChar(aUrl, pwcUrl, 2048);  
  DoFileDownloadEx(pwcUrl, Save); 
  FreeMem(pwcUrl); 
End; 

//Utilisation 
Procedure  TForm1.Button1Click(Sender: TObject); 
Var  
  sUrl: String; 
Begin 
  sUrl := 'http://www.delphifr.com/g/v9logo/logodel.gif';  
  DownloadThisFileAnd(sUrl);// propose de  l'enregistrer 
  //DownloadThisFileAnd(sUrl, False);// le télécharge et  l'ouvre 
End;

Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCPT)