各位大大﹕ 我現在有一電子訂單方面的難題向大家請教﹕ 當客人通過ftp的方式上傳訂單檔案(*.txt)到我的ftp服務器,要求我這邊立即將訂單資料導入到我的數據庫的訂單table中。 我現的想法是使用delphi indyFtpServer來做一個自已的ftpServer,參照本論壇的文章﹐我已完成﹐但是現在的問題是﹐當客戶端put一個a.txt檔案的時候﹐我如何得知這個檔案已經上傳完畢??我查看了IDftpServer的事件表﹐只有一個onStoreFile,但是﹐好像這個事件中沒有辦法得知a.txt已經傳送完成 以上請大家指教﹗﹗ 不勝感激﹗﹗

可試試直接寫在StoreFile,參考以下片段程式碼 只post重點,其它省略

procedure FTPServer.IdFTPServerStoreFile(ASender: TIdFTPServerThread;
  const AFileName: string; AAppend: Boolean; var VStream: TStream);
//省略
begin
//省略
  
  VStream := TFileStream.Create(FileName, fmCreate or fmOpenReadWrite);
  VStream.Position := 0;      ASender.Connection.ReadStream(VStream, VStream.Size, false);
//省略
end;

首先感謝您的回復﹕ 我有試過直接寫在StoreFilekh中﹐ procedure FTPServer.IdFTPServerStoreFile(ASender: TIdFTPServerThread; const AFileName: string; AAppend: Boolean; var VStream: TStream); //省略 begin //省略 VStream := TFileStream.Create(FileName, fmCreate or fmOpenReadWrite); VStream.Position := 0; ASender.Connection.ReadStream(VStream, VStream.Size, false); 當我在這個位置講取這個文件的時候﹐發現這個文件還只是一個空文件 end; 我現在是想知道這個檔案什么上傳完成。 能幫幫我嗎??

引言: 首先感謝您的回復﹕ 我有試過直接寫在StoreFilekh中﹐ procedure FTPServer.IdFTPServerStoreFile(ASender: TIdFTPServerThread; const AFileName: string; AAppend: Boolean; var VStream: TStream); //省略 begin //省略 VStream := TFileStream.Create(FileName, fmCreate or fmOpenReadWrite); VStream.Position := 0; ASender.Connection.ReadStream(VStream, VStream.Size, false); 當我在這個位置講取這個文件的時候﹐發現這個文件還只是一個空文件 end; 我現在是想知道這個檔案什么上傳完成。 能幫幫我嗎??

yuch_sheng 您好 : OnStoreFile 是ㄧ個 Event trigger 的 procedure,且並不是代表 FTP Server 端接收 File 的 "完整" 動作 ... 請 trace 原始碼下 Indy/TIdFTPServer.pas 搜尋 FOnStoreFile , Indy FTP Server 設計上的概念是以符合 RFC 959 (File Transfer Protocol) 規範為主,所以,以 RFC 定義的 FTP Command 出發,去看待每個 Event Procedure 會比較順手一點 ... procedure TIdFTPServer.CommandSSAP(ASender: TIdCommand); 這才是真正利用 FOnStoreFile 去完成接收檔案的動作 .. 所以最快的方式,可能是直接修改這邊的 code (這邊要做點實驗了..) 由於 Indy 元件大量使用 Thread 技術,所以需要小心 Thread 所產生的邊際效應... 提供您一個方向,因為近日轉換領域,所以無瑕對此議題做些 Code 實驗,若您有些心得或結果,請不吝與眾家兄弟姐妹分享 .... 感恩 .. ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----

請您: 在裡面判斷接收的檔案大小是與預期的File Size相同(>=)即可得知... 應該不難,請試試看...

提問者您好:


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


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


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

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