UNIX間資料傳遞 in BCB program |
答題得分者是:RaynorPao
|
yuying8834
一般會員 發表:2 回覆:1 積分:0 註冊:2003-10-31 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 我想使用BCB開發一程式,將UNIX1上的某個檔案拷貝至UNIX2的某個目錄上 並能偵測檔案傳輸完成(像ftp軟體) 請教各位大大們,在檔案傳輸上該如何撰寫呢? yuying8834 你好: (1)假設現在有三台電腦 UNIX1, UNIX2, BCB,先分別在 UNIX1, UNIX2 架設 FTP Server,然後在 BCB 利用一個 FTP Client (用現成的或自己寫),達 到 UNIX1, UNIX2 兩台電腦的檔案交換 ( > >Host="192.168.1.1">Username="UserName"; IdFTP1->Password="Password"; IdFTP1->Connect(true, 3000); IdFTP1->ChangeDir("/Test"); IdFTP1->Get("Test.txt", ms, true); IdFTP1->Disconnect(); IdFTP1->Host="192.168.1.2"; IdFTP1->Username="UserName"; IdFTP1->Password="Password"; IdFTP1->Connect(true, 3000); IdFTP1->ChangeDir("/Test"); IdFTP1->Put(ms, "Test.txt", false); IdFTP1->Disconnect(); delete ms; } void __fastcall TForm1::IdFTP1WorkBegin(TObject *Sender, TWorkMode AWorkMode, const int AWorkCountMax) { CGauge1->Progress=0; giWorkCountMax=AWorkCountMax; } void __fastcall TForm1::IdFTP1Work(TObject *Sender, TWorkMode AWorkMode, const int AWorkCount) { CGauge1->Progress=AWorkCount*100/giWorkCountMax; } (3)以上的範例程式碼是以 Indy 元件 TIdFTP 為例 (版本 9.0.13),有關 Indy 元件的注意事項,建議你善用本站的搜尋功能,就可以找到很多這方面 的相關文章 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25182 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38861-- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/10/31 14:47:45
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
yuying8834
一般會員 發表:2 回覆:1 積分:0 註冊:2003-10-31 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |