想請教各位先進
我利用TIdFTPServer這個元件
架設了一個簡單的FTP Server
但是我有一些額外的需求

1. 該如何取得使用者的 IP Address？
2. 該如何計算使用者抓取檔案的總時間？
3. 該如何即時計算使用者下載檔案的進度、瞬間速度、平均速度？

我在版上有找到一篇文章
http://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=90595
文章的內容也正是我的需求
可是讓我好奇的是
IdFTP1Work 與 IdFTP1WorkBegin 這兩個 function
我在 TIdFTPServer 的 event 中找不到
如果我想利用 TIdFTPServer 來達成上面的三點目標
該寫在哪一個 event function 中??

自問自答一下

關於3的問題
我自己宣告一個TStream的物件指標去等於VStream
然後用Timer去讀我宣告的物件的 Position 和 Size 這兩個 property
Position / Size 就可以計算出當前的進度

只是這樣子用有一個很大的問題
當VStream傳送完畢而delete掉的時候
我宣告的物件就會因為指不到東西而出現 Access Violation

我知道我解決問題得方式很鳥
可是這是我找了很多資料
試了很久試出來的結果
現在卡在不知道該怎麼得知VStream已經被delete
(找不到VStream之中有什麼event之類東西)

如果有方法得知VStream將被delete
那第二點也迎刃而解

只是關於第一點問題
我還是找不到哪邊可以得到相關的資料

一點點心得的分享

請先進前輩們不吝指導


===================引 用 dadai 文 章===================
想請教各位先進
我利用TIdFTPServer這個元件
架設了一個簡單的FTP Server
但是我有一些額外的需求

1. 該如何取得使用者的 IP Address？
2. 該如何計算使用者抓取檔案的總時間？
3. 該如何即時計算使用者下載檔案的進度、瞬間速度、平均速度？

我在版上有找到一篇文章
http://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=90595
文章的內容也正是我的需求
可是讓我好奇的是
IdFTP1Work 與 IdFTP1WorkBegin 這兩個 function
我在 TIdFTPServer 的 event 中找不到
如果我想利用 TIdFTPServer 來達成上面的三點目標
該寫在哪一個 event function 中??