Bug bei Indy 9 und IdFTP

Mr_Sven · Beiträge: 38 D7 Prof., C# (VS 2008)

Beim TIdFTP.DirectoryListing tritt bei manchen FTP Servern ein Fehler auf, Speziell bei Linux.
TIdListFormat erkennt den Listentyp nicht, wenn die Übertragene Liste so aussieht:

markieren

Quelltext

1:
2:
3:

drwx---r-t  14 u7649049 ftpusers     4096 Nov  7 13:53 .
drwx---r-t  14 u7649049 ftpusers     4096 Nov  7 13:53 ..
-rw-r--r--   1 u7649049 ftpusers    38318 Aug 21  2003 40159m.gif

Es wird hier keine Gesammtgröße übertragen und in der ersten Zeile ist bei den Rechten ein "t",
dass hat zur Folge, dass das Format nich erkannt wird.
Um das Problem zu Lösen muss die Datei "IdFTPList.pas" angepasst werden:

Bei Zeile 211:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function TIdFTPListItems.CheckListFormat(Data: string; const ADetails: Boolean = false): IdFTPListFormat;
  function IsUnixItem(SData: string): Boolean;
  begin
    result := (SData[1] in ['L', 'D', '-']) and
    (SData[2] in ['R','W','X','-']) and
    (SData[3] in ['R','W','X','-']) and
    (SData[4] in ['R','W','X','-']) and
    (SData[5] in ['R','W','X','-']) and
    (SData[6] in ['R','W','X','-']) and
    (SData[7] in ['R','W','X','-']) and
    (SData[8] in ['R','W','X','-']) and
    (SData[9] in ['R','W','X','-']) and
 //   (SData[10] in ['R','W','X','-']);     //  Old
    (SData[10] in ['R','W','X','T','-']);   //  New
  end;

Moderiert von UGrohne: Code- durch Delphi-Tags ersetzt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme