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