FTP文件上传源代码.doc

《FTP文件上传源代码.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、FTP文件上传源代码（部分，原发）信息发布：[218.89.161.3]       发布日期：2006-4-190:00:00       阅读次数：563//---------------------------------------------------------------------------#include#pragmahdrstop#include"UMFTP.h"#include"ULogin.h"#include"UUpLoad.h"#include"UAttr.h"#include"UAbout.h"#include"UMsg.

2、h"#include"UNewFloder.h"#include"UReName.h"//---------------------------------------------------------------------------#pragmapackage(smart_init)#pragmalink"SUIButton"#pragmalink"SUIForm"#pragmalink"SUIImagePanel"#pragmalink"SUIListView"#pragmalink"SUIStatusBar"#pragmalink"SUIToolBar"#p

3、ragmalink"SUITreeView"#pragmalink"SUIPopupMenu"#pragmaresource"*.dfm"TFFTP*FFTP;//---------------------------------------------------------------------------__fastcallTFFTP::TFFTP(TComponent*Owner)       :TForm(Owner){}//-------------------------------------------------------------------

4、--------void__fastcallTFFTP::suiButton1Click(TObject*Sender){if(suiButton1->Caption=="连接服务器"){if(LoginToServer())suiButton1->Caption="断开服务器";}else{F->Disconnect(); Connected=false; suiButton1->Caption="连接服务器";}}//---------------------------------------------------------------------------

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;suiButton3->Enabled=false;suiButton4->Enabled=false;suiButton5->Enabled=false;

6、suiButton6->Enabled=false;suiButton7->Enabled=false;suiButton9->Enabled=false;suiButton10->Enabled=false;Connected=false;IsBusy=false;}//---------------------------------------------------------------------------bool__fastcallTFFTP::LoginToServer(void){ bools;  s=false;  FLogin=newTFLogi

7、n(NULL);  if(FLogin->ShowModal()==mrOk)//用户登录   {ZuoYe=Trim(FLogin->suiEdit1->Text);    StuName=Trim(FLogin->suiEdit3->Text);    if(!Connected){F->Connect();Connected=true;}    F->ChangeDir("/");    ClearList();F->List();    if(CkZuoYe())      {F->ChangeDir("/"+ZuoYe);