Discussion :

[ind33d]

Bonjour,

Ma question va peut-être vous sembler étrange...

Mais j'aimerais avoir un code... qui télécharge un fichier... (ex : http://test.com/image.jpg ) et qui l'enregistre dans un répertoire... par exemple... dans /cache/

et qu'il enregistre le fichier la..

C'est possible? Si oui, comment faire

PS : Joyeuse année a tous

[qazer]

je crois qu'il faut regarder du côté de l'unité UrlMon.

[ind33d]

Quelqu'un aurais un code de base ?

Je suis nouveau dans Delphi...

[qazer]

Sinon tu peus utiliser les composants Indy disponibles ici http://www.indyproject.org/download/index.iwp;

Et utiliser ces fonctions

Il suffit de faire
s := idhttp1.Get('http://www.site.com/page.html');
où s est une chaîne, pour récupérer une page
ou
idhttp1.Get('http://www.site.com/page.html', f);
où f est un TFileStream ouvert en écriture, pour récupérer unf ichier

Tu pouvais facilement trouver cela en faisant une petite recherche sur le forum ou sur Google...
a+

[Laurent Dardenne]

Salut,
regarde dans la

[lil_jam63]

Pour ce genre de choses, le mieux est de passer par UrlDownlodToFile()

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
 
function Download(Source, Dest: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(Source), PChar(Dest), 0, nil) = 0;
  except
    Result := False;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  Source = 'http://test.com/image.jpg ';
  Dest = 'c:\image.jpg';
begin
  if Download(Source, Dest) then
    begin
      ShowMessage('Fichier téléchargé!')
    end
  else
    ShowMessage('Une erreur s''est produite pendant le téléchargement de : ' + Source)
end;

sans oublié de rajouter URLMon dans les uses

[ind33d]

Merci a tous

Je vais essayer ce soir !