ftp_c.cpp

BCB编写的使用SMTP、POP3和FTP的例子

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Ftp_c.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFtpForm *FtpForm;
//---------------------------------------------------------------------------
__fastcall TFtpForm::TFtpForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFtpForm::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;
  StatusBar1->SimpleText = "Please waiting for connecting";
  NMFTP1->Connect();
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button2Click(TObject *Sender)
{
  NMFTP1->Disconnect();	        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button3Click(TObject *Sender)
{
  NMFTP1->Nlist();        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button4Click(TObject *Sender)
{
  NMFTP1->List();        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button5Click(TObject *Sender)
{
  NMFTP1->ChangeDir(DirTxt->Text);        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button6Click(TObject *Sender)
{
  NMFTP1->Download(RemoteTxt->Text, LocalTxt->Text);        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button7Click(TObject *Sender)
{
  NMFTP1->Abort();        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button8Click(TObject *Sender)
{
  NMFTP1->DownloadRestore(RemoteTxt->Text, LocalTxt->Text);        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button18Click(TObject *Sender)
{
  NMFTP1->Rename(Edit8->Text, Edit9->Text);        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button17Click(TObject *Sender)
{
  NMFTP1->Reinitialize();
  UserTxt->Text = "";
  PassTxt->Text = "";
  PageControl1->ActivePage = TabSheet1;
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button16Click(TObject *Sender)
{
  NMFTP1->Delete(Edit5->Text);
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button14Click(TObject *Sender)
{
  NMFTP1->MakeDirectory(Edit1->Text);        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button15Click(TObject *Sender)
{
  NMFTP1->RemoveDir(Edit2->Text);        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button11Click(TObject *Sender)
{
  NMFTP1->UploadAppend(Edit3->Text, Edit4->Text);        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button12Click(TObject *Sender)
{
  NMFTP1->UploadUnique(Edit3->Text);        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button13Click(TObject *Sender)
{
  NMFTP1->UploadRestore(Edit3->Text, Edit4->Text, StrToInt(PosTxt->Text));
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button10Click(TObject *Sender)
{
  NMFTP1->Upload(Edit3->Text, Edit4->Text);
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::Button9Click(TObject *Sender)
{
  NMFTP1->Abort();
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1Connect(TObject *Sender)
{
  StatusBar1->SimpleText = "Connected";        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1ConnectionFailed(TObject *Sender)
{
  StatusBar1->SimpleText = "Connection Failed";
  ShowMessage("Connection Failed");
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1Disconnect(TObject *Sender)
{
  if (StatusBar1 != 0)
    StatusBar1->SimpleText = "Disconnected";        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1Error(TComponent *Sender, WORD Errno,
      AnsiString Errmsg)
{
  ShowMessage("Error "+IntToStr(Errno)+": "+Errmsg);        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::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 TFtpForm::NMFTP1HostResolved(TComponent *Sender)
{
  StatusBar1->SimpleText = "Host Resolved";        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1InvalidHost(bool &handled)
{
  AnsiString NewHost;
  if (InputQuery("Invalid Host", "Please Choose another host", NewHost))
  {
    NMFTP1->Host = NewHost;
    handled = true;
  }
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1ListItem(AnsiString Listing)
{
  Memo1->Lines->Add(Listing);
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1PacketRecvd(TObject *Sender)
{
  StatusBar1->SimpleText = IntToStr(NMFTP1->BytesRecvd)+" bytes of "+IntToStr(NMFTP1->BytesTotal)+" received";
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1PacketSent(TObject *Sender)
{
  StatusBar1->SimpleText = IntToStr(NMFTP1->BytesSent)+" bytes of "+IntToStr(NMFTP1->BytesTotal)+" sent";        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1Status(TComponent *Sender, AnsiString Status)
{
  if (StatusBar1 != 0)
    StatusBar1->SimpleText = Status;        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::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 TFtpForm::NMFTP1TransactionStart(TObject *Sender)
{
  StatusBar1->SimpleText = "Starting data transaction";        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::NMFTP1TransactionStop(TObject *Sender)
{
  StatusBar1->SimpleText = "Transaction Complete";        
}
//---------------------------------------------------------------------------
void __fastcall TFtpForm::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 TFtpForm::Button19Click(TObject *Sender)
{
        if(OpenDialog1->Execute())
                Edit3->Text = OpenDialog1->FileName;
        else
                Edit3->Text = "";
}
//---------------------------------------------------------------------------

void __fastcall TFtpForm::Button20Click(TObject *Sender)
{
        Memo1->Clear();
}
//---------------------------------------------------------------------------