Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Ftpserver список клиенту почемуто не полный почему

Автор: Sanchezzz 22.5.2007, 19:52

Чет не чего не пойму здел под себя фтп сервак но при получение списка для клиента некоторые папки пусты... в чем траб.
вот как получаю список фаилов и папок как по старинки.
использую компонент из indy v10.1.5 idFtpServer

Код


var
AppDir:string // путь к папке например C:\

procedure TForm1.FTPSListDirectory(ASender: TIdFTPServerContext;
  const APath: string; ADirectoryListing: TIdFTPListOutput; const ACmd,
  ASwitches: string);
var
LFTPItem :TIdFTPListItem;
 SR : TSearchRec;
 SRI : Integer;
begin
  //ADirectoryListing.DirFormat := doUnix; 
  SRI := FindFirst(AppDir + APath + '\*.*', faAnyFile - faHidden - faSysFile, SR);
  While SRI = 0 do
  begin
    LFTPItem := ADirectoryListing.Add;
    LFTPItem.FileName := SR.Name;
    LFTPItem.Size := SR.Size;
    LFTPItem.ModifiedDate := FileDateToDateTime(SR.Time);
    if SR.Attr = faDirectory then
     LFTPItem.ItemType   := ditDirectory
    else
     LFTPItem.ItemType   := ditFile;
    SRI := FindNext(SR);
  end;
  FindClose(SR);
  SetCurrentDir(AppDir + APath + '\..');
end;

болие быстрый способ получения списка файлов и папок..

Автор: Sanchezzz 10.6.2007, 01:17

так я и не полуил ответо думаю что сам компонент не может загрузить большое количество информации... всем спосиб кто смотрел этот топик smile

Автор: Gelios 16.6.2007, 14:50

Привет!
Слушай можешь помочь с написанием ftpServer?
я вот компонент инди не использовал я использую ICS билиотеку...
Но влюбом случае я хотел бы получить помощь....