//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  //
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  IdFTP1->Username="test";
  IdFTP1->Password="test1234";
  IdFTP1->Host="192.168.123.10";
  IdFTP1->Port=21;
  //IdFTP1->Passive=true;
  IdFTP1->TransferType=ftBinary;
  IdFTP1->Connect(true,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  IdFTP1->Disconnect(); //中斷連線
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  TStringList *s = new TStringList();
  IdFTP1->List(s,"*.*",true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdFTP1Connected(TObject *Sender)
{
  ShowMessage(IntToStr(IdFTP1->Connected()));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdFTP1Disconnected(TObject *Sender)
{
  ShowMessage(IntToStr(IdFTP1->Connected()));
}
//---------------------------------------------------------------------------    

引言: 請各為前輩幫我看一下 小的測試這段程式碼 當我按 Buttom3Click 時就會發生錯誤 不知是那裡有問題

    //---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  //
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  IdFTP1->Username="test";
  IdFTP1->Password="test1234";
  IdFTP1->Host="192.168.123.10";
  IdFTP1->Port=21;
  //IdFTP1->Passive=true;
  IdFTP1->TransferType=ftBinary;
  IdFTP1->Connect(true,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  IdFTP1->Disconnect(); //中斷連線
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  TStringList *s = new TStringList();
  IdFTP1->List(s,"*.*",true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdFTP1Connected(TObject *Sender)
{
  ShowMessage(IntToStr(IdFTP1->Connected()));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdFTP1Disconnected(TObject *Sender)
{
  ShowMessage(IntToStr(IdFTP1->Connected()));
}
//---------------------------------------------------------------------------    

renth555 你好:
(1)請問?? 你所說的錯誤是不是這個呢「Connection Closed Gracefully」??
   如果是的話，應該是在 BCB IDE 裡面執行你的程式才會有這個 exception
   的，按「F9」繼續執行即可，在 BCB 以外的環境，從檔案總管執行你的 exe
   應該就不會有這個問題了，原因是因為 Indy 元件 throw 這個 exception
   ，而 BCB IDE 預設會 catch 所有的 exception，才會造成這個結果
(2)有關 IdFTP 元件的使用，請參考以下的範例程式碼
   >Host="192.168.1.2">Username="Username";
   IdFTP1->Password="Password";
   IdFTP1->Connect(true, 3000);
   TStringList *sl=new TStringList;
   IdFTP1->List(sl, "*", true);
   sl->SaveToFile("ftplist.txt");
   delete sl;
   IdFTP1->Noop();
   IdFTP1->Disconnect();

引言: RaynorPao 板主你說的沒錯確實是這問題 請問版主這樣是不是測試時都要執行 exe 檔呢 今天去找 indy 相關書去卻找不到 BCB 書籍太少了 對初學者真是痛苦板主有相關 bcb indy FTP 語法文件可供學習嗎 請問版主 IdFTP1->Connect(true, 3000); ----->3000 意思 IdFTP1->Noop();------------------> Noop() 不懂語法 謝謝版主

renth555 你好:
(1)我記得好像可以從 Tools/Debugger Options 去做修改，決定要不要攔截某
   些 exception，可是那個方法小弟我已經忘記怎麼設定了，所以現在也
   是直接執行 >>>    --