unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button1Click(TObject *Sender)
{
        NMFTP1->Vendor = NMOS_AUTO;
        NMFTP1->Host = Edit1->Text;
        NMFTP1->Port = StrToInt(Edit2->Text);
        NMFTP1->UserID = Edit3->Text;
        NMFTP1->Password = Edit4->Text;
        NMFTP1->Connect();
        NMFTP1->List();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        NMFTP1->Disconnect();        
}

//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
        if(CheckBox1->Checked==true)
        {
                Edit3->Enabled=false;
                Edit4->Enabled=false;
                Edit3->Text="Anonymous";
                Edit4->Text="";
        }
        else
        {
                Edit3->Enabled=true;
                Edit4->Enabled=true;
                Edit3->Text="";
                Edit4->Text="";
        }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::NMFTP1Connect(TObject *Sender)
{
        Memo1->Lines->Add("已连接到"+Edit1->Text+"。");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NMFTP1ListItem(AnsiString Listing)
{
        Memo1->Lines->Add(Listing);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1Disconnect(TObject *Sender)
{
        Memo1->Lines->Add("已断开连接。");
}
//---------------------------------------------------------------------------