- erledigt - TidFTPServer - Kurrioses ListDirectory

[xSkaschY]

Zitat von MrKnogge:

[Add]
@xSkaschY
Hast du dir die obigen Variablen mal im Debugger angesehen ?

Jup,

habe das gefühl der IE kommt mit dem ModifiedDate nicht zurecht, der nimmt dieses welches nämlich als Filesize.

Wie auch zusehen ist, ist UserPermition '???' was aber verständlich ist da, breakpoint hier ist:

Delphi-Quellcode:

procedure Tmain.ftpServerListDirectory(ASender: TIdFTPServerThread;
  const APath: string; ADirectoryListing: TIdFTPListItems);
var LFTPItem : TIdFTPListItem;
    SR : TSearchRec;
    path : string;
begin
     path := nolastslash(APath);
     serverLog.Lines.Add('APath = '+ path);
     serverLog.Lines.Add('Files:');

     if FindFirst(path + '*.*', faAnyFile - faHidden - faSysFile, SR) = 0 then begin
        try
           repeat
               if ((SR.Name <> '.') and (SR.Name <> '..')) then begin
                 LFTPItem := ADirectoryListing.Add;
                 LFTPItem.FileName := SR.Name;
                 LFTPItem.Size := SR.Size;
                 LFTPItem.OwnerName := ASender.Username;
                 LFTPItem.GroupName := '[ ALL FTP-User ]';
                 //LFTPItem.ModifiedDate := FileDateToDateTime(SR.Time);
                 LFTPItem.OwnerPermissions := 'rwx';
                 LFTPItem.GroupPermissions := 'rwx';
                 // BEAKPOINT LFTPItem.UserPermissions := 'rwx';
                 if SR.Attr = faDirectory then LFTPItem.ItemType   := ditDirectory
                    else LFTPItem.ItemType   := ditFile;
                 serverLog.Lines.Add('- [' + SR.Name + ']');
               end;
           until FindNext(SR) <> 0;

        finally
            FindClose(SR);
        end;
     end;
     //SetCurrentDir(path + '\..');
end;

Auskommetierung takes no effect.






[Update]

Problem gelöst, der Groupname war dran schuld!

Änderung zu "ftpusers" hat gereicht und alles ist perfekt!


Danke nochmal an alle!