最近想寫個FTP Client端程式，但是不知道該用Indy IdFTP還是NMFTP。 一開始先用NMFTP，但是想寫某些東西的時候只有IdFTP才有我要的功能；當我改成IdFTP的時候，發現更麻煩的問題，要List Server端的檔案目錄的時候他是以TStringList的型式儲存檔案目錄列表，還要分析字串才可以把檔名、檔案大小等...分析出來。 而且還有一個問題是，如果遠端的目錄或是檔案名稱有空白字元，List出來的檔名會只有空白以後的字串，我也不知道該如何解決。我有參考站上的文章了，但是還是沒有解決我的問題。請問各位在寫FTP軟體的時候是用哪一種呢？謝謝

引言: 最近想寫個FTP Client端程式，但是不知道該用Indy IdFTP還是NMFTP。 一開始先用NMFTP，但是想寫某些東西的時候只有IdFTP才有我要的功能；當我改成IdFTP的時候，發現更麻煩的問題，要List Server端的檔案目錄的時候他是以TStringList的型式儲存檔案目錄列表，還要分析字串才可以把檔名、檔案大小等...分析出來。 而且還有一個問題是，如果遠端的目錄或是檔案名稱有空白字元，List出來的檔名會只有空白以後的字串，我也不知道該如何解決。我有參考站上的文章了，但是還是沒有解決我的問題。請問各位在寫FTP軟體的時候是用哪一種呢？謝謝 < face="Verdana, Arial, Helvetica">

GGL 你好:
(1)其實問題只是在如何 Parser 字串，請參考以下的範例程式碼
   IdFTP3->Host=FTP_SERVER;
   IdFTP3->Username=FTP_USERNAME;
   IdFTP3->Password=FTP_PASSWORD;
   IdFTP3->Connect(true, 3000);
   TStringList *sl1=new TStringList;
   IdFTP3->List(sl1, "*", true);
   for(int i=0; iCount; i++)
   {
      AnsiString sz0="";
      AnsiString sz1="";
      AnsiString sz2="";
      AnsiString sz3="";
      if(sl1->Strings[i].Trim()!="")
      {
         AnsiString szPrev=sl1->Strings[i].SubString(1, 38);
         TStringList *sl2=new TStringList;
         AnsiString szTemp=StringReplace(szPrev, " ", ",", TReplaceFlags()<CommaText=szTemp;
         int iIndex=0;
         for(int j=0; jCount; j++)
         {
            if(sl2->Strings[j].Trim()!="")
            {
               if(iIndex==0)
               {
                  sz0=sl2->Strings[j].Trim();
               }
               else if(iIndex==1)
               {
                  sz1=sl2->Strings[j].Trim();
               }
               else if(iIndex==2)
               {
                  sz2=sl2->Strings[j].Trim();
               }
               iIndex++;
               if(iIndex>=3) break;
            }
         }
         AnsiString szNext=sl1->Strings[i].SubString(39, sl1->Strings[i].Length()-38);
         sz3=szNext.Trim();
         delete sl2;
      }
      Memo1->Lines->Add(sz0+", "+sz1+", "+sz2+", "+sz3);
   }
   sl1->SaveToFile("sl1.txt");
   delete sl1;
   IdFTP3->Disconnect();
(2)以上的範例程式碼只 Parser FTP 根目錄的檔案目錄結構，如果要再繼續往
   下層分析，則必須改成遞迴的方式
(3)這篇文章中的做法也已經改變，請你再重新下載一次
   >
< class="code">
如何中斷下載或上傳的動作
http://delphi.ktop.com.tw/topic.php?topic_id=45723

-- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2004/06/15 22:29:18

謝謝RaynorPao，我已經弄出來解析檔案、檔案大小等等...只是還來不及po上來，你已經幫我找到答案了，謝謝了...

以下是FTP下載時候的程式碼，為什麼當我在下載檔案的時候要等到整個檔案下載完畢視窗才會有動作，不然都會好像當掉一樣，而且這樣需要等到檔案下載完畢才可以下載第二個，無法同時下載，一直無法解決，我去看INDY Demo的程式碼也沒什麼不一樣的地方，我也不清楚該怎麼辦，謝謝了

   TListItem *dowload_file;
   dowload_file=ListView1->Items->Add();
   dowload_file->Caption=ListView2->Selected->Caption;
   dowload_file->SubItems->Add(IdFTP1->Host);
   dowload_file->SubItems->Add("");
   dowload_file->SubItemImages[1]=3;
   dowload_file->SubItems->Add(IdFTP1->Size(ListView2->Selected->Caption));
   dowload_file->SubItems->Add("");
   IdFTP1->Get(ListView2->Selected->Caption,ListView2->Selected->Caption,false,true);

謝謝了.. 原來是在IdFTP1WorkBegin跟IdFTP1Work加入Application->ProcessMessages(); 總算是解決這個問題了，只是視窗好像會有點lag 發表人 -