Bonjour a tous est toutes je ne sait pas si une personne pour et mèdes je télécharge une liste m3u en http sur Internet avec se code .

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 TForm1.Button1Click(Sender: TObject);
var
 F: TFileStream;
 
begin
 try
{On crée un fichier c:\ liste tv}
 
 F := TFileStream.Create('C:\Documents and Settings\Compaq_Propriétaire\Bureau\LISTE TV.m3u', fmCreate);
 
 {On récupère un fichier sur internet et on met tout dans F soit c:\ fichier.exe}
 
 IdHTTP1.get('http://mafreebox.freebox.fr/freeboxtv/playlist.m3u',F);
 
  Finally
 {Enfin on libère F}
 F.Free;
  end;
end;
 
end.
Sa fonctionne très bien maintenant je veut télécharger un exécutable sur un serveur ftp mes je ne sait pas comment faire en utilisant le code au dessus sa de fonctionne pas je pense que c est parce que le composant IDHTTP qui ne va pas ges essayer avec le composant IDFTP avec le même code modifier

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 TForm1.Button1Click(Sender: TObject);
var
 F: TFileStream;
 
begin
 try
{On crée un fichier c:\ liste tv}
 
 F := TFileStream.Create('C:\Documents and Settings\Compaq_Propriétaire\Bureau\LE NOM.EXE, fmCreate);
 
 {On récupère un fichier sur internet et on met tout dans F soit c:\ fichier.exe}
 
 IdFTP1.get(LIENT DU SERVEUR FTP EST DE L EXECUTABLE ,F);
 
  Finally
 {Enfin on libère F}
 F.Free;
  end;
end;
 
end.
Mes sa ne fonctionne pas savait vous de ou vient le problème merci a vous tous .