FTP取得文件列表的问题 - 怎么正确的提取文件大小及时间?(300分)

  • 主题发起人 主题发起人 ysai
  • 开始时间 开始时间
Y

ysai

Unregistered / Unconfirmed
GUEST, unregistred user!
IIS,FTP站点属性里的 主目录 -> 目录列表样式
设置为UNIX时用IdFTP的List命令得到的是
-r-xr-xr-x 1 owner group 140288 May 7 1999 COMDLG32.OCX
-r-xr-xr-x 1 owner group 109410 Oct 24 2002 df.rm
-r-xr-xr-x 1 owner group 3901444 Oct 30 2002 dm.mpg
设置为MS-DOS时用IdFTP的List命令得到的是
05-07-99 01:00AM 140288 COMDLG32.OCX
10-24-02 05:49PM 109410 df.rm
10-30-02 02:38AM 3901444 dm.mpg

问题:如何正确的得知文件的大小及时间?或者有除List之外的其它方法?
注意:组件为D7的TIdFTP
 
访问NMFTP的FTPDirectoryList属性:
The FTPDirectoryList property is used only when the ParseList property is set to TRUE.

下面是ONSuccess的例子。
procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
var
I: Integer;
begin
case Trans_Type of
cmdList:
begin
for I := 0 to (StringGrid1.ColCount - 1) do

StringGrid1.Cols.Clear;
StringGrid1.RowCount := NMFTP1.FTPDirectoryList.name.Count;
StringGrid1.ColCount := 4;
StringGrid1.Cells[0, 0] := 'Filename';
StringGrid1.Cells[1, 0] := 'File Size';
StringGrid1.Cells[2, 0] := 'Modified Date';
StringGrid1.Cells[3, 0] := 'Attributes';
for I := 0 to (NMFTP1.FTPDirectoryList.name.Count - 1) do
with NMFTP1.FTPDirectoryList do
begin
StringGrid1.Cells[0, I+1] := name;

StringGrid1.Cells[1, I+1] := Size;
StringGrid1.Cells[2, I+1] := ModifDate;
StringGrid1.Cells[3, I+1] := Attribute;
end;
end;
end;
end;
 
俺用的是TIdFTP,不过也有个DirectoryListing属性,另外要List后才有数据
 
后退
顶部