資源描述：
《ftp文件上傳源代碼》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。
1、FTP文件上傳源代碼（部分，原發(fā)）信息發(fā)布：[218.89.161.3]???????發(fā)布日期：2006-4-190:00:00???????閱讀次數(shù)：563//---------------------------------------------------------------------------#include#pragmahdrstop#include"UMFTP.h"#include"ULogin.h"#include"UUpLoad.h"#include"UAttr.h"#include"UAbout.h
2、"#include"UMsg.h"#include"UNewFloder.h"#include"UReName.h"http://---------------------------------------------------------------------------#pragmapackage(smart_init)#pragmalink"SUIButton"#pragmalink"SUIForm"#pragmalink"SUIImagePanel"#pragmalink"SUIListView"#pragmalink"SUIStatu
3、sBar"#pragmalink"SUIToolBar"#pragmalink"SUITreeView"#pragmalink"SUIPopupMenu"#pragmaresource"*.dfm"TFFTP*FFTP;//---------------------------------------------------------------------------__fastcallTFFTP::TFFTP(TComponent*Owner)???????:TForm(Owner){}//----------------------
4、-----------------------------------------------------void__fastcallTFFTP::suiButton1Click(TObject*Sender){if(suiButton1->Caption=="連接服務(wù)器"){if(LoginToServer())suiButton1->Caption="斷開(kāi)服務(wù)器";}else{F->Disconnect();?Connected=false;?suiButton1->Caption="連接服務(wù)器";}}//---------------
5、------------------------------------------------------------void__fastcallTFFTP::FormShow(TObject*Sender){FileList=newTList();P->Panels->Items[0]->Text="未連接";P->Panels->Items[1]->Text="";P->Panels->Items[2]->Text="";suiListView1->Enabled=false;suiButton2->Enabled=false;sui
6、Button3->Enabled=false;suiButton4->Enabled=false;suiButton5->Enabled=false;suiButton6->Enabled=false;suiButton7->Enabled=false;suiButton9->Enabled=false;suiButton10->Enabled=false;Connected=false;IsBusy=false;}//-------------------------------------------------------------
7、--------------bool__fastcallTFFTP::LoginToServer(void){?bools;??s=false;??FLogin=newTFLogin(NULL);??if(FLogin->ShowModal()==mrOk)//用戶登錄???{ZuoYe=Trim(FLogin->suiEdit1->Text);????StuName=Trim(FLogin->suiEdit3->Text);????if(!Connected){F->Connect();Connected=true;}????F->Cha
8、ngeDir("/");????ClearList();F->List();????if(CkZuoYe())??????{F->ChangeDir("/"+ZuoYe);???
