unit1.cpp

C++Builder网络应用例程. C++Builder网络应用例程.

//---------------------------------------------------------------------------
#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->ReportLevel=Status_Basic;
 NMFTP1->Host=Edit1->Text;
 NMFTP1->Port=StrToInt(Edit2->Text);
 NMFTP1->UserID=Edit3->Text;
 NMFTP1->Password=Edit4->Text;
 NMFTP1->Connect();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Memo1->Text="";
 NMFTP1->List();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Memo1->Text="";
  NMFTP1->ChangeDir(Edit5->Text);
  NMFTP1->List();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 OpenDialog1->Title="Select File path to load file";
 if(OpenDialog1->Execute())
   NMFTP1->Download(Edit5->Text,OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
 OpenDialog1->Title="Select file to Upload";
 if(OpenDialog1->Execute())
   NMFTP1->Upload(OpenDialog1->FileName,Edit5->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
 NMFTP1->Disconnect();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
 NMFTP1->MakeDirectory(Edit5->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
 NMFTP1->RemoveDir(Edit5->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
 NMFTP1->Delete(Edit5->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1Connect(TObject *Sender)
{
 StatusBar1->SimpleText="Connected!";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1ConnectionFailed(TObject *Sender)
{
 StatusBar1->SimpleText="Connection failed!";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1Disconnect(TObject *Sender)
{
 StatusBar1->SimpleText="Disconnected!";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1ListItem(AnsiString Listing)
{
 Memo1->Lines->Add(Listing);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1Failure(bool &handled, TCmdType Trans_Type)
{
 switch (Trans_Type)
   {
    case cmdChangeDir:
      StatusBar1->SimpleText = "ChangeDir failure";
      break;
    case cmdMakeDir:
      StatusBar1->SimpleText = "MakeDir failure";
      break;
    case cmdDelete:
      StatusBar1->SimpleText = "Delete failure";
      break;
    case cmdRemoveDir:
      StatusBar1->SimpleText = "RemoveDir failure";
      break;
    case cmdList:
      StatusBar1->SimpleText = "List failure";
      break;
    case cmdRename:
      StatusBar1->SimpleText = "Rename failure";
      break;
    case cmdUpRestore:
      StatusBar1->SimpleText = "UploadRestore failure";
      break;
    case cmdDownRestore:
      StatusBar1->SimpleText = "DownloadRestore failure";
      break;
    case cmdDownload:
      StatusBar1->SimpleText = "Download failure";
      break;
    case cmdUpload:
      StatusBar1->SimpleText = "Upload failure";
      break;
    case cmdAppend:
      StatusBar1->SimpleText = "UploadAppend failure";
      break;
    case cmdReInit:
      StatusBar1->SimpleText = "ReInit failure";
      break;
    case cmdAllocate:
      StatusBar1->SimpleText = "Allocate failure";
      break;
    case cmdNList:
      StatusBar1->SimpleText = "NList failure";
      break;
    case cmdDoCommand:
      StatusBar1->SimpleText = "DoCommand failure";
      break;
    default:
      ShowMessage("Unrecognized command failed.");
      break;
  }
  handled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1Success(TCmdType Trans_Type)
{
 switch (Trans_Type)
   {
    case cmdChangeDir:
      StatusBar1->SimpleText = "ChangeDir success"; Form1->Caption = NMFTP1->CurrentDir;
      break;
    case cmdMakeDir:
      StatusBar1->SimpleText = "MakeDir success";
      break;
    case cmdDelete:
      StatusBar1->SimpleText = "Delete success";
      break;
    case cmdRemoveDir:
      StatusBar1->SimpleText = "RemoveDir success";
      break;
    case cmdList:
      StatusBar1->SimpleText = "List success";
      break;
    case cmdRename:
      StatusBar1->SimpleText = "Rename success";
      break;
    case cmdUpRestore:
      StatusBar1->SimpleText = "UploadRestore success";
      break;
    case cmdDownRestore:
      StatusBar1->SimpleText = "DownloadRestore success";
      break;
    case cmdDownload:
      StatusBar1->SimpleText = "Download success";
      break;
    case cmdUpload:
      StatusBar1->SimpleText = "Upload success";
      break;
    case cmdAppend:
      StatusBar1->SimpleText = "UploadAppend success";
      break;
    case cmdReInit:
      StatusBar1->SimpleText = "ReInit success";
      break;
    case cmdAllocate:
      StatusBar1->SimpleText = "Allocate success";
      break;
    case cmdNList:
      StatusBar1->SimpleText = "NList success";
      break;
    case cmdDoCommand:
      StatusBar1->SimpleText = "DoCommand success";
      break;
    default:
      ShowMessage("Unrecognized command success.");
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit5KeyPress(TObject *Sender, char &Key)
{
 if(Key==VK_RETURN)
   {
     Button3Click(Sender);
   }
}
//---------------------------------------------------------------------------