欢迎来到天天文库
浏览记录
ID:17858447
大小:42.50 KB
页数:28页
时间:2018-09-07
《ftp文件上传源代码》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
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
2、"#include"UMsg.h"#include"UNewFloder.h"#include"UReName.h"//---------------------------------------------------------------------------#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=="连接服务器"){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;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);
此文档下载收益归作者所有