telechargement sur serveur idftp

**yomane 51** · 14/09/2006, 09h47

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 .

**jula2i** · 14/09/2006, 15h34

Salut yomane 51...

Pour télécharger un fichier, sur un serveur FTP, qui n'est pas à la racine du serveur, tu dois changer de dossier courant.

Exemple :
- Fichier source sur le serveur FTP : root\Dossier_1\Sous_Dossier_1\Fichier_source.txt
- Fichier destination : C:\Fichier_destination.txt

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
procedure TForm1.Button1Click(Sender: TObject);
var
   F : TFileStream;
begin
     // Création de l'objet pour le stockage du fichier //
     F := TFileStream.Create( 'C:\Fichier_destination.txt', fmCreate );
     Try
        with IdFTP1 do
        begin
             // Connexion au serveur FTP //
             if not Connected then
             begin
                  Host := 'localhost'; {Nom ou IP du serveur FTP}
                  Username := 'MonUser'; {User du serveur}
                  Password := 'MonPassword'; {Password du serveur}
                  Port := 21; {Port FTP}
 
                  Connect;
             end;
 
             // Changement du repertoire courant //
             ChangeDir( '\Dossier_1\Sous_Dossier_1\' );
 
             // Téléchargement du fichier //
             Get( 'Fichier_source.txt', F );
        end;
     Except
        // En cas d'erreur => affiche le message d'erreur //
        on E: Exception do
          MessageDlg( 'Erreur FTP : ' + E.Message, mtError, [mbOK], 0 );
     End;
 
     // Libération de l'objet //
     FreeAndNil( F );
end;

@+.

**yomane 51** · 15/09/2006, 16h04

Salut jula2i est merci de ton aide

merci a toi sa fonctionne mes il y a un probleme il me telcharge bient le logos est le nom de l exe. est quands je clique dessus il me mes
se dossier comtien des donnes invalide alor que quands je passe par ie est mozilla il est entier est fonctionne tres bient .

enfaites une foit que le compo idftp a telecharger il me mes une class d erreur

connection closed gracefully je te mes le code que ges pris de toi s auf que ges nelever la parti

// Changement du repertoire courant //
ChangeDir( '\Dossier_1\Sous_Dossier_1\' );

parceque mon dossier est a la racine du serveur

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
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.Button1Click(Sender: TObject);
var
   F : TFileStream;
begin
     // Création de l'objet pour le stockage du fichier //
     F := TFileStream.Create( 'C:\Documents and Settings\Compaq_Propriétaire\Bureau\instaldefault.exe', fmCreate );
     Try
        with IdFTP1 do
        begin
             // Connexion au serveur FTP //
             if not Connected then
             begin
                  Host := 'multipostetv.dyndns.org'; {Nom ou IP du serveur FTP}
                  Username := 'client'; {User du serveur}
                  Password := '858989'; {Password du serveur}
                  Port := 21; {Port FTP}
 
                  Connect;
               end;
 
 
             // Téléchargement du fichier //
             Get( 'install multipostetv skins.exe', F );
        end;
     Except
        // En cas d'erreur => affiche le message d'erreur //
        on E: Exception do
          MessageDlg( 'Erreur FTP : ' + E.Message, mtError, [mbOK], 0 );
     End;
    // Libération de l'objet //
     FreeAndNil( F );
 
end;
 
end.

c est tu dous sa peu provenir

**yomane 51** · 15/09/2006, 16h58

mon serveur nes quands dowload pour mes cleitn mes pa en upload

**Rayek** · 15/09/2006, 17h06

Pourrais tu faire un effort sur l'écriture de tes messages, car c'est tres difficile à déchiffrer

Pas bon :

si une personne pour et mèdes

Bien :

Si une personne pouvait m'aider

Pas bon :

ges

Bien :

J'ai

A mon avis tu auras plus de réponses si tu fais un petit effort au niveau de l'ecriture, puis je te rappel les regles du forum au cas où :

http://club.developpez.com/regles/#L4.3

**yomane 51** · 15/09/2006, 17h07

d'accord

**yomane 51** · 15/09/2006, 17h13

Finalement ton code fonctionne tres bient maintenant merci a toi de ton aide mes si tu trouve se qui a fait se bugs poures tu me le dire merci a toi encord.

**jula2i** · 15/09/2006, 17h19

Salut,

j'ai testé et chez moi cela fonctionne très bien, je télécharge bien le fichier et je peux lancer l'installation !
Dans ton cas, le fichier n'a peut être pas été téléchargé en entier, donc juste après le "GET", vérifi que le fichier soit bien en entier avant de libérer "F".

Pour l'exception "connection closed gracefully ", elle est tout à fait normale dans ce cas (en mode debug) !
Elle est simplement utilisée pour informer le serveur, et ce produit uniquement dans l'IDE.
Donc en réalité tu n'as pas d'erreur et pour preuve tu ne rentre pas dans la section "Except" où dans ce cas un message d'erreur s'afficherai !

Si toutefois tu ne veux pas avoir cette Exception, tu vas dans Outils|Options du débogueur..., et dans l'onglet "Exception du langage", tu décoche l'option "Arrêter sur exceptions Delphi" (pour D7 en tous cas!).

Voila, j'espère que ma réponse te conviendra.
Bonne prog.

oki trop tard !!!