yuying8834 你好:
(1)假設現在有三台電腦 UNIX1, UNIX2, BCB，先分別在 UNIX1, UNIX2 架設
   FTP Server，然後在 BCB 利用一個 FTP Client (用現成的或自己寫)，達
   到 UNIX1, UNIX2 兩台電腦的檔案交換
( >
>Host="192.168.1.1">Username="UserName";
   IdFTP1->Password="Password";
   IdFTP1->Connect(true, 3000);
   IdFTP1->ChangeDir("/Test");
   IdFTP1->Get("Test.txt", ms, true);
   IdFTP1->Disconnect();       IdFTP1->Host="192.168.1.2";
   IdFTP1->Username="UserName";
   IdFTP1->Password="Password";
   IdFTP1->Connect(true, 3000);
   IdFTP1->ChangeDir("/Test");
   IdFTP1->Put(ms, "Test.txt", false);
   IdFTP1->Disconnect();
   delete ms;
}
void __fastcall TForm1::IdFTP1WorkBegin(TObject *Sender,
      TWorkMode AWorkMode, const int AWorkCountMax)
{
   CGauge1->Progress=0;   
   giWorkCountMax=AWorkCountMax;
}
void __fastcall TForm1::IdFTP1Work(TObject *Sender, TWorkMode AWorkMode,
      const int AWorkCount)
{
   CGauge1->Progress=AWorkCount*100/giWorkCountMax;   
}
(3)以上的範例程式碼是以 Indy 元件 TIdFTP 為例 (版本 9.0.13)，有關
   Indy 元件的注意事項，建議你善用本站的搜尋功能，就可以找到很多這方面
   的相關文章
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25182
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38861