//---------------------------------------------------------------------------
#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)
{
if (CheckBox1->Checked)
{
NMFTP1->Proxy = Edit5->Text;
NMFTP1->Proxy = StrToInt(Edit6->Text);
}
NMFTP1->Host = Edit1->Text;
NMFTP1->Port = StrToInt(Edit2->Text);
NMFTP1->UserID = Edit3->Text;
NMFTP1->Password =MaskEdit1->Text;
NMFTP1->Connect();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
exit(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
NMFTP1->Disconnect();
Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1Disconnect(TObject *Sender)
{
if (StatusBar1!= 0)
{ StatusBar1->SimpleText = "Disconnected";
Button4->Enabled=0;
Button3->Enabled=0;
} }
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1Connect(TObject *Sender)
{
StatusBar1->SimpleText="Connected";
Button3->Enabled=1;
Button4->Enabled=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
NMFTP1->List();
Button3->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="211.84.208.10";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1InvalidHost(bool &Handled)
{
AnsiString NewHost;
if (InputQuery("Invalid Host", "Please Choose another host", NewHost))
{
NMFTP1->Host = NewHost;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1ListItem(AnsiString Listing)
{
Memo1->Lines->Add(Listing);
Button3->Enabled=false;
}
//---------------------------------------------------------------------------
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";return; 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";return;
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 TForm1::Button4Click(TObject *Sender)
{
// Edit4->Text=NMFTP1->FTPDirectoryList->name[0].Text;
Edit4->Text=NMFTP1->FTPDirectoryList->name->IndexOf("数据库软件");
// Edit4->Text=NMFTP1->FTPDirectoryList->name->IndexOfName("猫烧香病毒专杀.scr");
// NMFTP1->Download("熊猫烧香病毒专杀.scr","猫烧香病毒专杀.scr");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1PacketRecvd(TObject *Sender)
{
StatusBar1->SimpleText = IntToStr(NMFTP1->BytesRecvd)+" bytes of "+IntToStr(NMFTP1->BytesTotal)+" received";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1Error(TComponent *Sender, WORD Errno,
AnsiString Errmsg)
{
ShowMessage("Error "+IntToStr(Errno)+": "+Errmsg);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMFTP1HostResolved(TComponent *Sender)
{
StatusBar1->SimpleText = "Host Resolved";
}
//---------------------------------------------------------------------------
FTP.zip_BCB NMFTP_FTP CLIENT_ftp
版权申诉
171 浏览量
2022-09-21
03:51:37
上传
评论
收藏 634KB ZIP 举报
寒泊
- 粉丝: 75
- 资源: 1万+