📄 ftptst1.cpp
字号:
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
ExecuteCmd(FtpClient1->Get, FtpClient1->GetAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::ReceiveAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->Binary = cbBinary->Checked;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Receive, FtpClient1->ReceiveAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::AbortAsyncButtonClick(TObject *Sender)
{
ExecuteCmd(FtpClient1->Abort, FtpClient1->AbortAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::DirAsyncButtonClick(TObject *Sender)
{
DeleteFile(TEMP_FILE_NAME);
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = TEMP_FILE_NAME;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Dir, FtpClient1->DirAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::DirectoryAsyncButtonClick(TObject *Sender)
{
DeleteFile(TEMP_FILE_NAME);
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = TEMP_FILE_NAME;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Directory, FtpClient1->DirectoryAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::LsAsyncButtonClick(TObject *Sender)
{
DeleteFile(TEMP_FILE_NAME);
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = TEMP_FILE_NAME;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Ls, FtpClient1->LsAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::ListAsyncButtonClick(TObject *Sender)
{
DeleteFile(TEMP_FILE_NAME);
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = TEMP_FILE_NAME;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->List, FtpClient1->ListAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::SystAsyncButtonClick(TObject *Sender)
{
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Syst, FtpClient1->SystAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::SystemAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->System, FtpClient1->SystemAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::FileSizeAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->FileSize, FtpClient1->FileSizeAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::SizeAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Size, FtpClient1->SizeAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::MkdAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Mkd, FtpClient1->MkdAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::MkdirAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Mkdir, FtpClient1->MkdirAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::RmdAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Rmd, FtpClient1->RmdAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::RmdirAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Rmdir, FtpClient1->RmdirAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::RenAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Ren, FtpClient1->RenAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::RenameAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Rename, FtpClient1->RenameAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::DeleAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Dele, FtpClient1->DeleAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::DeleteAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Delete, FtpClient1->DeleteAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::PwdAsyncButtonClick(TObject *Sender)
{
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Pwd, FtpClient1->PwdAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::QuoteAsyncButtonClick(TObject *Sender)
{
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Quote, FtpClient1->QuoteAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::DoQuoteAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->DoQuote, FtpClient1->DoQuoteAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::PutAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->Binary = cbBinary->Checked;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Put, FtpClient1->PutAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::TransmitAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->Binary = cbBinary->Checked;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Transmit, FtpClient1->TransmitAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::TypeSetAsyncButtonClick(TObject *Sender)
{
FtpClient1->Binary = cbBinary->Checked;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->TypeSet, FtpClient1->TypeSetAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::RestGetAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
ExecuteCmd(FtpClient1->RestGet, FtpClient1->RestGetAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::RestartGetAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->Binary = cbBinary->Checked;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->RestartGet, FtpClient1->RestartGetAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::CDupAsyncButtonClick(TObject *Sender)
{
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->CDup, FtpClient1->CDupAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::ClearButtonClick(TObject *Sender)
{
DisplayMemo->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::AppendAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->Binary = cbBinary->Checked;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->Append, FtpClient1->AppendAsync);
}
//---------------------------------------------------------------------------
void __fastcall TFtpReceiveForm::AppendFileAsyncButtonClick(TObject *Sender)
{
FtpClient1->HostName = HostNameEdit->Text;
FtpClient1->Port = PortEdit->Text;
FtpClient1->UserName = UserNameEdit->Text;
FtpClient1->PassWord = PassWordEdit->Text;
FtpClient1->HostDirName = HostDirEdit->Text;
FtpClient1->HostFileName = HostFileEdit->Text;
FtpClient1->LocalFileName = LocalFileEdit->Text;
FtpClient1->Binary = cbBinary->Checked;
FtpClient1->DisplayFileFlag = cbDisplay->Checked;
FtpClient1->OnDisplay = Display;
ExecuteCmd(FtpClient1->AppendFile, FtpClient1->AppendFileAsync);
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -