我依照此篇文章的程式http://delphi.ktop.com.tw/topic.php?topic_id=45723寫了上傳檔案的程式 不過上傳或是下載檔案時都會出現以下的錯誤訊息 我用FTP軟體測試可以上傳，所以ftp server沒有問題，不知道此錯誤訊息是什麼意思？ 以下是程式碼： ﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦ 上傳檔案部份： ﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦ void __fastcall TForm1::Button2Click(TObject *Sender) { gbAbort=false; IdFTP2->Host="127.0.0.1"; IdFTP2->Username="username"; IdFTP2->Password="password"; IdFTP2->Port=2857; IdFTP2->Connect(true, 3000); IdFTP2->ChangeDir("/upload"); IdFTP2->Put("C:\\test.jpg", "test.jpg", false); IdFTP2->Disconnect(); } 發表人 - jamlee 於 2004/12/31 14:23:33

引言: 我依照此篇文章的程式http://delphi.ktop.com.tw/topic.php?topic_id=45723寫了上傳檔案的程式 不過上傳或是下載檔案時都會出現以下的錯誤訊息 我用FTP軟體測試可以上傳，所以ftp server沒有問題，不知道此錯誤訊息是什麼意思？ 以下是程式碼： ﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦ 上傳檔案部份： ﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦﹦ void __fastcall TForm1::Button2Click(TObject *Sender) { gbAbort=false; IdFTP2->Host="127.0.0.1"; IdFTP2->Username="username"; IdFTP2->Password="password"; IdFTP2->Port=2857; IdFTP2->Connect(true, 3000); IdFTP2->ChangeDir("/upload"); IdFTP2->Put("C:\\test.jpg", "test.jpg", false); IdFTP2->Disconnect(); }

jamlee 你好: 你先試試看 FTP Server 用預設的 Port (21)，而不用自己定義的 Port (2857) ，IdFTP2->Port 屬性不要設定，看看這樣子是否可行？ < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --

我在家用IIS架FTP server測試的結果,port不用21,可以上傳,不知道為何之前測試朋友架的的FTP server不行?難道跟FTP server類型有關? 上傳檔案可以之後,下傳檔案又遇到問題了,以下是錯誤訊息: 下載檔案的程式碼: ============================================================= void __fastcall TForm1::Button1Click(TObject *Sender) { TFileStream *strm; strm = new TFileStream("C:\\test.jpg", fmCreate); IdFTP2->Host="127.0.0.1"; IdFTP2->Username="anonymous"; IdFTP2->Password="anonymous"; IdFTP2->Port=2857; IdFTP2->Connect(true,3000); IdFTP2->ChangeDir("/upload"); IdFTP2->Get("test.jpg",strm,false); IdFTP2->Disconnect(); delete strm; }

引言: 我在家用IIS架FTP server測試的結果,port不用21,可以上傳,不知道為何之前測試朋友架的的FTP server不行?難道跟FTP server類型有關? 上傳檔案可以之後,下傳檔案又遇到問題了,以下是錯誤訊息: 下載檔案的程式碼: ============================================================= void __fastcall TForm1::Button1Click(TObject *Sender) { TFileStream *strm; strm = new TFileStream("C:\\test.jpg", fmCreate); IdFTP2->Host="127.0.0.1"; IdFTP2->Username="anonymous"; IdFTP2->Password="anonymous"; IdFTP2->Port=2857; IdFTP2->Connect(true,3000); IdFTP2->ChangeDir("/upload"); IdFTP2->Get("test.jpg",strm,false); IdFTP2->Disconnect(); delete strm; }

jamlee 你好: 有關這個問題，以前曾經被討論過，請參考以下的連結文章 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --

我在程式中加上Application->ProcessMessages();為什麼CGauge都不會動, 上傳的時候程式好像當掉一樣呢?以下是參考版主的程式為什麼還是不行? Label1都不會變成"Begin"或是"Work",IdFTP2WorkBegin和IdFTP2Work好像沒有觸發 void __fastcall TForm1::IdFTP2WorkBegin(TObject *Sender, TWorkMode AWorkMode, const int AWorkCountMax) { Label1->Caption="Begin"; Application->ProcessMessages(); CGauge2->Progress=0; gdWorkCountMax=AWorkCountMax; } //--------------------------------------------------------------------void __fastcall TForm1::IdFTP2Work(TObject *Sender, TWorkMode AWorkMode, const int AWorkCount) { Label1->Caption="Begin"; Application->ProcessMessages(); if(gbAbort) { IdFTP2->Abort(); IdFTP2->Disconnect(); } else { double dWorkCount=AWorkCount; CGauge2->Progress=(int)(dWorkCount*100/gdWorkCountMax); } } 發表人 - jamlee 於 2005/01/01 23:57:34

引言: 我在程式中加上Application->ProcessMessages();為什麼CGauge都不會動, 上傳的時候程式好像當掉一樣呢?以下是參考版主的程式為什麼還是不行? Label1都不會變成"Begin"或是"Work",IdFTP2WorkBegin和IdFTP2Work好像沒有觸發 void __fastcall TForm1::IdFTP2WorkBegin(TObject *Sender, TWorkMode AWorkMode, const int AWorkCountMax) { Label1->Caption="Begin"; Application->ProcessMessages(); CGauge2->Progress=0; gdWorkCountMax=AWorkCountMax; } //--------------------------------------------------------------------void __fastcall TForm1::IdFTP2Work(TObject *Sender, TWorkMode AWorkMode, const int AWorkCount) { Label1->Caption="Begin"; Application->ProcessMessages(); if(gbAbort) { IdFTP2->Abort(); IdFTP2->Disconnect(); } else { double dWorkCount=AWorkCount; CGauge2->Progress=(int)(dWorkCount*100/gdWorkCountMax); } } 發表人 - jamlee 於 2005/01/01 23:57:34

我知道問題在哪了...感謝RaynorPao的回答!

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.