IdFTP, загрузить каталог и подкаталоги

Question

Мне нужно загрузить каталог и подкаталоги на сервере. Я думаю, мне нужно вызвать метод IdFTP->Put(...); Но я не знаю, как это сделать. Помоги мне, пожалуйста!

Answer 1

void PutDir(TIdFTP* AIdFTP, const String& AFrom) 
{ 
    TSearchRec SR; 
    if (FindFirst(AFrom+"\\*.*", faAnyFile, SR)== 0) 
    { 
     do 
     { 
      if(SR.Name!= "." && SR.Name!= "..") 
      { 
       if (SR.Attr & faDirectory) 
       { 
        AIdFTP->MakeDir(SR.Name); 
        AIdFTP->ChangeDir(SR.Name); 
        PutDir(AIdFTP,AFrom+"\\"+SR.Name); 
        AIdFTP->ChangeDirUp(); 
       } 
       else 
       { 
        AIdFTP->Put(AFrom+"\\"+SR.Name,SR.Name); 
       } 
      } 
     } 
     while (FindNext(SR)== 0); 

     FindClose(SR); 
    } 
} 

Answer 2

TIdFTP::Put() загружает один файл. TIdFTP изначально не поддерживает загрузку папок, так что вам придется осуществить это вручную:

1. TIdFTP::ChangeDir() использовать для перехода к исходной родительской папке.

2. TIdFTP::Put() для загрузки каждого файла в эту папку.

3. TIdFTP.MakeDir() для создания каждой подпапки в этой папке.

4. рекурсивно повторите # 1 для каждой подпапки, созданной в # 3.