六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

用Delphi7設計FTP上傳軟件

發表時間：2024-01-08 來源：明輝站整理相關軟件相關文章人氣：

[摘要]隨著寬帶的不斷普及，自己動手做網站的朋友也更多了。主頁完工了，當然就要選擇合適的免費空間，用FTP軟件進行上傳了。在這方面，可選擇的上傳軟件有很多。那么有沒有想過自己動手做一個呢?其實用Delphi就可以很方便地完成這項工作。Let’s go!　　界面設計　　首先,添加NMftp1、Edit、op...

　　隨著寬帶的不斷普及，自己動手做網站的朋友也更多了。主頁完工了，當然就要選擇合適的免費空間，用FTP軟件進行上傳了。在這方面，可選擇的上傳軟件有很多。那么有沒有想過自己動手做一個呢?其實用Delphi就可以很方便地完成這項工作。Let’s go!

　　界面設計

　　首先,添加NMftp1、Edit、opendialog1、meno1、label等控件，按下圖放置。


　　控件代碼

　　1.“連接”代碼：

procedure TForm1.Button2Click(Sender: TObject);
begin
nmftp1.Host :=edit3.Text ;
nmftp1.UserID :=edit1.text;
nmftp1.Password :=edit2.text;
nmftp1.Connect ;
end;


　　2.“上傳”代碼：

procedure TForm1.Button5Click(Sender: TObject);
var s:string;
begin
s:=label5.caption;
nmftp1.Upload('s',null);


　　3.“中止”代碼：

procedure TForm1.Button4Click(Sender: TObject);
begin
NMFTP1.Abort ;
end;


　　收尾工作

　　1.“退出”代碼：

procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate ;
end;


　　2.“刷新列表”代碼：

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.lines.clear;
nmftp1.nlist;
end;
procedure TForm1.NMFTP1ListItem(Listing: String);
begin
memo1.lines.add(listing);
end;


　　3.“打開文件”代碼：

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if opendialog1.execute then
label5.Caption :=opendialog1.filename;


　　終于完工了，選擇相應的文件后，單擊“上傳”按鈕。看看在遠程文件的框架中是不是有此文件啊。怎樣，自己做一個也很簡單吧?

　　此程序在Win2000,Delphi6下編譯通過。

　　本文給出了一個FTP上傳軟件的雛形，核心只利用了NMftp一個控件，充分體現了Delphi作為一款優秀的RAD工具在VCL上的強大。值得注意的是，在Delphi7之后，Borland公司已經不推薦使用FASTNET控件包了。所以，在默認情況下，它不再出現在工具條上。對其還難以割舍的朋友可以選擇手動安裝FASTNET控件包。
主站蜘蛛池模板： 午夜快播| 四虎性 | 亚洲综合色就色手机在线观看 | 天天干天天狠 | 中文字幕视频不卡 | 亚洲高清在线播放 | 四虎影视在线影院4hu | 欧美亚洲综合一区 | 天天做天天爱天天操 | 一级黄色免费观看 | 啪啪网站视频 | 青草下载| 一二三四影视手机在线观看视频 | 色88888久久久久久影院 | 日本aⅴ在线观看 | 污污的视频在线观看 | 一国产一级淫片a免费播放口 | 午夜毛片在线观看 | 亚洲国产另类久久久精品小说 | 青娱乐在线免费视频 | 天天射天天草 | 欧美在线国产 | 婷婷深爱 | 最近最新的日本中文字幕 | 天天干夜夜夜操 | 欧美一区二区激情三区 | 青青青免费高清在线观看视频在线 | 欧美午夜精品 | 日韩福利视频一区 | 亚洲欧洲中文 | 日韩永久在线观看免费视频 | 在线婷婷 | 亚洲国产美女精品久久 | 武则天一级淫片免费 | 日本天堂在线 | 青青久久久国产线免观 | 婷婷综合七月激情啪啪 | 天天干天天爽天天射 | 最近中文字幕无吗高清免费视频 | 欧洲毛片真人 | 欧美亚洲视频在线观看 |