|
//---------------------------------------------------------------------------
void __fastcall TForm1::ConnectButtonClick(TObject *Sender)
{
IdFTP1->User = "anonymous";
IdFTP1->Password = "anonymouse";
IdFTP1->Host = "xxx.xxx.xxx.xxx"; //아이피 가림..
IdFTP1->Connect(true);
ConnectButton->Caption = "DisConnect";
ConnectButton->Enabled = true;
ConnectButton->Default = true;
IdFTP1->TransferType = ftASCII;
IdFTP1->List(ListBox1->Items,"-aF",true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdFTP1Status(TObject *axSender,
const TIdStatus axStatus, const AnsiString asStatusText)
{
DebugListBox->ItemIndex = DebugListBox->Items->Add(asStatusText);
// StatusBar1->Panels->Items[1]->Text = asStatusText;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdLogDebug1LogItem(TComponent *ASender,
AnsiString &AText)
{
DebugListBox->ItemIndex = DebugListBox->Items->Add(AText);
Application->ProcessMessages();
}
//---------------------------------------------------------------------------
간단하게 다음과 같이 짠 후 디버그창에 접속 결과를 모두 볼려고 하는데
나오지가 않더군요. 인디 ftp소스에서 따온건데 어째서 거긴 되고
저는 안될까요? IdLogDebug1LogItem쪽 함수로 아예 가지를 않네요..
|