Télécharger un fichier par API

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 734 fois - Téléchargée 8 fois


Commenter

Contenu du snippet

AUTEUR Réel: Cirec 

Uses UrlMon; 
{  renvoie tout ce se trouve après le dernier "/" } 
Function ExtractUrlFileName(Const aUrl: String): String;  
Var 
{$ifdef  ver200} 
    Ptr : PWord; 
{$else}  
    Ptr : PByte; 
{$endif} 
    I, Lng :  Integer; 
Begin 
  Result := aUrl;  
  Lng := Length(aUrl); 
  Ptr := @Result[Lng]; 
  For I := Lng Downto  1 Do 
  Begin  
    If Ptr^ = $2F Then Break; 
    Dec(Ptr); 
  End; 
  Inc(Ptr); 
  Result := Pchar(Ptr);  
End; 
{  Télécharge "Source" vers "Dest" 
  si "Dest" est vide c'est le nom de fichier  
  contenu dans "Source" qui est utilisé } 
Function DownloadFile(Const  Source: String; Var Dest: String):  Boolean; 
Begin 
  If Dest = '' Then 
    Dest :=  ExtractUrlFileName(Source); 
  Result := UrlDownloadToFile(Nil, PChar(Source), PChar(Dest), 0, Nil) = 0; 
End; 
{ Utilisation } 
Procedure  Tfrm_Main.btn_DownloadClick(Sender: TObject); 
Var aDest: String;  
Begin 
  aDest:= ''; 
  If  DownloadFile('http://www.delphifr.com/g/v9logo/v2/logodel.png', aDest)  Then 
    ShowMessagefmt('Le téléchargement de %s a réussit', [aDest]) 
  Else 
    ShowMessagefmt('Le  téléchargement de %s a échoué', [aDest]); 
End;

Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

Ajouter un commentaire Commentaire
Aladine20dz
3 févr. 2018 à 01:39
Thnks
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)