www.pudn.com > C++ Builder 6 编程实例教程.zip > FTP.CPP, change:2002-04-14,size:9512b

//--------------------------------------------------------------------------- 
#include <vcl.h> 
#pragma hdrstop 
 
#include "FTP.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TFormMain *FormMain; 
//--------------------------------------------------------------------------- 
__fastcall TFormMain::TFormMain(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TFormMain::Button1Click(TObject *Sender) 
{ 
  if (CheckBox1->Checked) 
  { 
    NMFTP1->Proxy = Edit6->Text; 
    NMFTP1->Proxy = StrToInt(Edit7->Text); 
  } 
  NMFTP1->Host = HostTxt->Text; 
  NMFTP1->Port = StrToInt(PortTxt->Text); 
  NMFTP1->UserID = UserTxt->Text; 
  NMFTP1->Password = PassTxt->Text; 
  NMFTP1->Connect(); 
  if(NMFTP1->Connected==true) 
  { 
  TabSheet2->TabVisible=true; 
  TabSheet3->TabVisible=true; 
  } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::Button2Click(TObject *Sender) 
{ 
  NMFTP1->Disconnect(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::Button3Click(TObject *Sender) 
{ 
  NMFTP1->Nlist(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::Button4Click(TObject *Sender) 
{ 
  NMFTP1->List(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::Button5Click(TObject *Sender) 
{ 
  NMFTP1->ChangeDir(DirTxt->Text); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::Button6Click(TObject *Sender) 
{ 
  NMFTP1->Download(RemoteTxt->Text, LocalTxt->Text); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::Button7Click(TObject *Sender) 
{ 
  NMFTP1->Abort(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::Button8Click(TObject *Sender) 
{ 
  NMFTP1->DownloadRestore(RemoteTxt->Text, LocalTxt->Text); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::Button17Click(TObject *Sender) 
{ 
  NMFTP1->Reinitialize(); 
  PageControl1->ActivePage = TabSheet2; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::Button9Click(TObject *Sender) 
{ 
  NMFTP1->Abort(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1Connect(TObject *Sender) 
{ 
  StatusBar1->SimpleText = "Connected"; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1ConnectionFailed(TObject *Sender) 
{ 
  ShowMessage("Connection Failed");         
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1Disconnect(TObject *Sender) 
{ 
  if (StatusBar1 != 0) 
    StatusBar1->SimpleText = "Disconnected";         
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1Error(TComponent *Sender, WORD Errno, 
      AnsiString Errmsg) 
{ 
  ShowMessage("Error "+IntToStr(Errno)+": "+Errmsg);         
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::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; 
  } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1HostResolved(TComponent *Sender) 
{ 
  StatusBar1->SimpleText = "Host Resolved";         
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1InvalidHost(bool &handled) 
{ 
  AnsiString NewHost; 
  if (InputQuery("Invalid Host", "Please Choose another host", NewHost)) 
  { 
    NMFTP1->Host = NewHost; 
    handled = true; 
  } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1ListItem(AnsiString Listing) 
{ 
  Memo1->Lines->Add(Listing); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1PacketRecvd(TObject *Sender) 
{ 
  StatusBar1->SimpleText = IntToStr(NMFTP1->BytesRecvd)+" bytes of "+IntToStr(NMFTP1->BytesTotal)+" received"; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1PacketSent(TObject *Sender) 
{ 
  StatusBar1->SimpleText = IntToStr(NMFTP1->BytesSent)+" bytes of "+IntToStr(NMFTP1->BytesTotal)+" sent";         
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1Status(TComponent *Sender, AnsiString Status) 
{ 
  if (StatusBar1 != 0) 
    StatusBar1->SimpleText = Status;         
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1Success(TCmdType Trans_Type) 
{ 
  switch(Trans_Type) 
  { 
    case cmdChangeDir: StatusBar1->SimpleText = "ChangeDir success"; 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; 
  } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1TransactionStart(TObject *Sender) 
{ 
  StatusBar1->SimpleText = "Starting data transaction";         
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1TransactionStop(TObject *Sender) 
{ 
  StatusBar1->SimpleText = "Transaction Complete";         
} 
//--------------------------------------------------------------------------- 
void __fastcall TFormMain::NMFTP1UnSupportedFunction(TCmdType Trans_Type) 
{ 
  switch(Trans_Type) 
  { 
    case cmdChangeDir: ShowMessage("ChangeDir not supported"); break; 
    case cmdMakeDir: ShowMessage("MakeDir not supported"); break; 
    case cmdDelete: ShowMessage("Delete not supported"); break; 
    case cmdRemoveDir: ShowMessage("RemoveDir not supported"); break; 
    case cmdList: ShowMessage("List not supported"); break; 
    case cmdRename: ShowMessage("Rename not supported"); break; 
    case cmdUpRestore: ShowMessage("UploadRestore not supported"); break; 
    case cmdDownRestore: ShowMessage("DownloadRestore not supported"); break; 
    case cmdDownload: ShowMessage("Download not supported"); break; 
    case cmdUpload: ShowMessage("Upload not supported"); break; 
    case cmdAppend: ShowMessage("UploadAppend not supported"); break; 
    case cmdReInit: ShowMessage("ReInit not supported"); break; 
    case cmdAllocate: ShowMessage("Allocate not supported"); break; 
    case cmdNList: ShowMessage("NList not supported"); break; 
    case cmdDoCommand: ShowMessage("DoCommand not supported"); break; 
  } 
} 
//--------------------------------------------------------------------------- 
 
 
 
void __fastcall TFormMain::FormCreate(TObject *Sender) 
{ 
  TabSheet2->TabVisible=false; 
  TabSheet3->TabVisible=false; 
        
} 
//---------------------------------------------------------------------------