Option Explicit 
 
 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ 
             (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _ 
              ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 
 
 Private Sub Form_Load() 
 '   source
     Const sUrl As String = "http://www.vbfrance.com/gfx/logos/logovb.gif" 
 
 '   destination (app.path + nom du fichier distant)
     Dim sDest As String 
     sDest = App.Path 
     If RightB$(sDest, 2) <> "\" Then
        sDest = sDest & "\" 
    End If
     sDest = sDest & Mid$(sUrl, 1 + InStrRev(sUrl, "/")) 
 
 '   download
     If URLDownloadToFile(0&, sUrl, sDest, 0&, 0&) = 0 Then 
         MsgBox "Fichier téléchargé :" & vbNewLine & sDest, vbInformation, "Réussite" 
     Else 
         MsgBox "Erreur lors du téléchargement", vbExclamation, "Echec" 
     End If 
 End Sub

// Récupération d'une image
ResLancement = HTTPRequête("http://earth.google.com/sites/images/goldengatebridgex600.jpg")
SI ResLancement = Vrai  ALORS
   fSauveTexte("c:\image.jpg",HTTPDonneRésultat())
FIN

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;