- erledigt - TidFTPServer - Kurrioses ListDirectory

[xSkaschY]

Zitat von xSkaschY:

@ IngoD, verzeihung!
Sollte natürlich TidFTPServer sein, da es um eine FTP-Server programmierung geht.

Delphi-Quellcode:

Bist du auch bei beiden Browsern an der gleichen Position ?
Bei deinem Firefox sieht es laut Adresszeile so aus, als befändest du dich in der dummy.txt !?

Ja gleiche Position, das mit der dummy.txt erklärt sich dadurch, das wenn ich die anklicke ich nicht die Datei bekomme, sondern im Verzeichniss bleibe.

[IngoD7]

Oha ... es ist nicht meine Nacht.

Ich muss ins Bett ...

[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!