新手求助关于indy10中idftpserver和idftp的问题

[nuptwzp]

控件idftpserver和idftp究竟应该怎么获得目录呢？我在ListDirectory（）函数里面仿造indy10中给的例子写了个程序，可是只能得到文件夹，要怎么样才能获得文件并支持上传下载呢，在线等答案，谢谢高手- -

[fengshuling2]

up

[Waiting4you]

给一个Indy9的，不知道和Indy10有没有区别:

void __fastcall TForm1::IdFTPServer1ListDirectory(
      TIdFTPServerThread *ASender, const AnsiString APath,
      TIdFTPListItems *ADirectoryListing)
{
        TSearchRec f;
        ADirectoryListing->DirectoryName = APath;
        AnsiString Path=IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(ASender->HomeDir)+Utf8ToAnsi(APath));
        if (FindFirst(Path + "*.*", faAnyFile, f ) == 0)
        {
                do
                {
                        TIdFTPListItem *listitem=ADirectoryListing->Add();
			listitem->ItemType = (f.Attr & faDirectory)?ditDirectory:ditFile;
                        listitem->FileName = AnsiToUtf8(f.Name);                         
                        listitem->Size = f.Size;
                        listitem->ModifiedDate = FileDateToDateTime( f.Time );
                        listitem->OwnerName = "anonymous";
                        listitem->GroupName = "all";
                        listitem->OwnerPermissions = "rwx";
                        listitem->GroupPermissions = "rwx";
                        listitem->UserPermissions = "rwx";
                } while (FindNext(f) == 0);
                FindClose(f);
        }
}

[constantine]

最好先看看indy9的例子，indy9有比较完善的demo的
然后试试看有什么改动。