Discussion :

[MaTHieU_]

Bonjour,

Voici un code pour tester la connection FTP :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
                Memo1->Lines->Add("AFTER_LOGIN");
                IdFTP1->ChangeDir("/data/observations/");
                IdFTP1->List(ListBox1->Items);
                TMemoryStream *pMemoire = new TMemoryStream;
                IdFTP1->Get("DATA.TXT",pMemoire,true);
                Memo2->Lines->LoadFromStream(pMemoire);
                delete pMemoire;

Mon memo2 reste vide et ma connection est close...

Resolving hostname xxx.xxx.gov.
Connecting to xxx.156.xxx.2xx.
Connected.
CONNECTED
AFTER_LOGIN
Starting FTP transfer
Transfer complete
Starting FTP transfer
Transfer complete
Connection established

Ma liste de fichiers est complète.

A priori, c'est ici que ça ne passe pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
IdFTP1->Get("DATA.TXT",pMemoire,true);

Le code suivant fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
                Memo1->Lines->Add("AFTER_LOGIN");
                IdFTP1->ChangeDir("/data/observations/");
                //IdFTP1->List(ListBox1->Items);
                //TMemoryStream *pMemoire = new TMemoryStream;
                //IdFTP1->Get("DATA.TXT",pMemoire,true);
                IdFTP1->Get("DATA.TXT","DATA.TXT",true,false);
                //Memo2->Lines->LoadFromStream(pMemoire);
                Memo2->Lines->LoadFromFile("DATA.TXT");
                //delete pMemoire;

Savez-vous de quoi ça peut venir, le fait que mn pMemoire soit vide ?

Merci d'avance,
Mathieu

[Djob]

A part si ton fichier est vide il n'y aucune raison pour que MemoryStream soit vide.Peut être faut il simplement remettre ton TMemoryStream à 0
avant de le charger dans le Memo...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
                Memo1->Lines->Add("AFTER_LOGIN");
                IdFTP1->ChangeDir("/data/observations/");
                IdFTP1->List(ListBox1->Items);
                TMemoryStream *pMemoire = new TMemoryStream;
                IdFTP1->Get("DATA.TXT",pMemoire);
 
                pMemoire->Position=0;         //<---------------------       
 
                Memo2->Lines->LoadFromStream(pMemoire);
                delete pMemoire;

[MaTHieU_]

Salut,

Je viens d'essayer, le problème persiste... C'est étrange !

Merci,
Mathieu

[Djob]

code testé et qui marche avec le fichier situé :

ftp://pbil.univ-lyon1.fr/pub/datasets/NAR94/data.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
37
38
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
       Memo1->Lines->Add("AFTER_LOGIN");
       IdFTP1->ChangeDir("/pub/datasets/NAR94");
        IdFTP1->List(ListBox1->Items);
        TMemoryStream *pMemoire = new TMemoryStream();
        try{
           IdFTP1->Get("data.txt",pMemoire);
        }catch(Exception &e){
           Memo1->Lines->Add("Echec lors du transfert");
        }
        pMemoire->Position=0;
        Memo2->Lines->LoadFromStream(pMemoire);
        delete pMemoire;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
      if(SpeedButton1->Down){
        try{
          IdFTP1->Connect();
        }catch(Exception &e){
          ShowMessage(e.Message);
        }
      }else{
          if (IdFTP1->Connected())IdFTP1->Disconnect();
      }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::IdFTP1Status(TObject *axSender,
      const TIdStatus axStatus, const AnsiString asStatusText)
{
        Memo1->Lines->Add(asStatusText);
}
//---------------------------------------------------------------------------

par contre, il faut attendre un peu avant affichage ,
alors que le fichier fait que 104 ko.

Ca ma l'air pas très efficace comme méthode au niveau performance

[MaTHieU_]

Salut,

J'ai suivi ce que tu as fait :

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
 
void __fastcall TForm1::IdFTP1AfterClientLogin(TObject *Sender)
{
        try
        {
                IdFTP1->ChangeDir("/data/observations");
                TMemoryStream *pMemoire = new TMemoryStream;
                IdFTP1->Get("DATA.TXT",pMemoire);
                pMemoire->Position = 0;
                Memo2->Lines->LoadFromStream(pMemoire);
                delete pMemoire;
        }
        catch(Exception &Exp)
        {
                MessageDlg(Exp.Message, mtInformation, TMsgDlgButtons() << mbOK, 0);
        }
}

C'est beaucoup mieu
J'ais mis un "/" à la fin du ChangeDir et la mise en position à 0 était après son assignation au Memo

Merci,
Mathieu

[MaTHieU_]

Salut,

A noter que ce qui mets du temps c'est cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
IdFTP1->List(ListBox1->Items);

Cette ligne permet de lister les fichiers du répertoire mais dans mon cas ce n'est pas utile.

Cordialement,
Mathieu