我使用DELPHI5的TNMFTP元件寫了一個FTP文字檔上下傳的程式(FTP主機是linux),我上下傳文字檔的登錄帳號不一樣但是主機是同一部,我先下載文字檔到本機端的某個目錄下(C:\TEMP)然後再用另一個帳號登入FTP上傳文字檔到FTP主機上,問題出現了一個奇怪的問題,我下載文字檔一直沒發生問題,問題是上傳文字檔回主機時常常會發生無法連結到ftp主機的問題,我一直找不到問題的因為這隻程式時好時壞....可以麻煩各位大大幫我看一下我哪裡出錯嗎還是有什麼地方我沒注意到的 謝謝.

從FTP下載文字檔程式省略....    try
  NMFTP1.UserID:=m_sDBUser;
  NMFTP1.Password:=m_sDBPWD;
  NMFTP1.Host:=m_sDBIP;
  Writeln('查詢登入db server資料  ip:' m_sDBIP ' user:' m_sDBUser ' pwd:' m_sDBPWD);
  try
    NMFTP1.Connect; //錯誤都發生在這一行
    Writeln('登入db server 成功,開始準備上傳文字檔');
  except
    on E:Exception do begin
      ShowMessage(E.Message #10#13 '無法連線至DB IP:' m_sDBIP #10#13 'user:' m_sDBUser #10#13 'pwd' m_sDBPWD);
      isSuccess:=false;
      exit;
    end;
  End;
            
  try
    NMFTP1.ChangeDir('/home/oracle/work');
  except
    on E:Exception do begin
      ShowMessage(E.Message #10#13 '無法變更DB端目錄');
      isSuccess:=false;
      exit;
    end;
  end;
            
  NMFTP1.Upload('C:\temp\TMP\EosPma.txt','EosPma.txt');
  Writeln('上傳文字檔EosPma.txt成功');
  NMFTP1.Upload('C:\temp\TMP\EosProd.txt','EosProd.txt');
  Writeln('上傳文字檔EosProd.txt成功');
  NMFTP1.Upload('C:\temp\TMP\EosOnSale.txt','EosOnSale.txt');
  Writeln('上傳文字檔EosOnSale.txt成功');
except
  on E:Exception do begin
    ShowMessage(E.Message #10#13 '無法從local端將文字檔上傳至DB');
    isSuccess:=false;
    exit;
  end;
end;
...................

人心惟微，道心惟危，惟精唯一，允執厥中。 新手上路，請各位前輩多多指導。

提問者您好:


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


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


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

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