使用NMFTP控件。下面是我写的一个小程序,你可以参考一下:
procedure TTranForm.GetInfo();
var
i:Integer;
begin
try
FtpMainForm.NMFTP1.List;
except
end;
for i:=0 to (FtpMainForm.NMFTP1.FTPDirectoryList.name.Count-1) do
with FtpMainForm.NMFTP1.FTPDirectoryList do
begin
NewItem:=TranForm.ListView.Items.Add;
NewItem.Caption:=FtpMainForm.NMFTP1.FTPDirectoryList.name;//文件名
NewItem.SubItems.Add(FtpMainForm.NMFTP1.FTPDirectoryList.Size);//文件大小
NewItem.SubItems.Add(FtpMainForm.NMFTP1.FTPDirectoryList.ModifDate);//修改日期
NewItem.SubItems.Add(FtpMainForm.NMFTP1.FTPDirectoryList.Attribute);//文件属性
end;
ListView.AlphaSort;
end;