IdFTP Dateien auflisten mit Zusatzinfos?

[himitsu]

Zitat von Jamah:

Hm. Ich bekomm da wieder einen Error. Warum??

Mit 'ner Architect in der Tasche hätt ich etwas mehr Ahnung erwartet.

Lösung: Du mußt die nötige Unit mit einbinden.

Tipp: (für D2009/D2010 ... geht auch schon früher, nur dann ein bissl anders)
- Strg+Shift+F
- Dateifilter "*.pas;*.inc"
- Verzeichnisse z.B. "C:\Programme\Embarcadero\RAD Studio\7.0"
- "Unterverzeichnisse durchsuchen" auf Ja
- und nun einfach mal nach "TIdFTPListItem" suchen
(die Punkte 2-4 merkt sich Delphi)

[schöni]

Zitat von jfheins:

Zitat von Jamah:

Woher kommt das GetFileInfo(), was du da benutzt? Ich hab einiges dazu gefunden, ist aber meißtens eine funktion zum Auslesen des Herstellers...

Das ist eine eigene Funktion, die dann auch das Icon ausliest und so. Solltest du ohne Probleme Weglassen können. (Dann halt direkt auf TIdFTP.DirectoryListing zugreifen)

Also den Code so ändern:

Delphi-Quellcode:

procedure TFtpBrowser.CreateDirectoryListing;
var
  i: Integer;
begin
    FFtp.SendCmd('TYPE A');

    FFtp.List (nil, '-a', True);

    for i := 0 to Pred (FFtp.ListResult.Count) do
      CreateItemFromFileInfo (FTP.DirectoryListing[i]);
end;

procedure TFtpBrowser.CreateItemFromFileInfo(const FileInfo: TIdFTPListItem);
var
  ListItem: TListItem;
begin
  // Mach was mit FileInfo
end;

Trotzdem hier noch der Code (bitte nicht schlagen^^)

Delphi-Quellcode:

type 
 TFileInfo = record
    Directory: Boolean;
    Filename,
    Date,
    FileType: String;
    Size: Integer;
  end;

-------------------

function TFtpBrowser.GetFileInfo(Index: Integer): TFileInfo;
var
  Registry: TRegistry;
  Filename, Filedetails, TempType, TempSize: String;
begin
  Filename := FFtp.DirectoryListing[Index].FileName;
  Filedetails := FFtp.DirectoryListing[Index].Text;

  Result.Directory := Filedetails[1] = 'd';
  Result.Filename := Filename;

  if Result.Directory then
    Result.FileType := 'Ordner'
  else
  begin
    Result.FileType := ReverseString (copy (ReverseString (Filename), 1, pos ('.', ReverseString (Filename))));

    Registry := TRegistry.Create(KEY_READ);
    try
      Registry.RootKey := HKEY_CLASSES_ROOT;
      if Registry.OpenKey (Result.FileType, False) then
      begin
        TempType := Registry.ReadString('');
        Registry.CloseKey;
        if Registry.OpenKey (TempType, False) then
        begin
          TempType := Registry.ReadString('');
        end;
      end;
    finally
      Registry.Free;
    end;

    if (TempType = '') then
      Result.FileType := Trim (AnsiUpperCase (copy (Result.FileType, 2, length (Result.FileType) - 1)) + ' Datei')
    else
      Result.FileType := TempType;
  end;

  Filedetails := ReverseString(Filedetails);
  Delete (Filedetails, 1, length (Filename));

  Result.Date := ReverseString (Trim (copy (Filedetails, 1, 14)));

  try
    TempSize := Trim (copy (Filedetails, 14, 10)) + ' ';
    TempSize := Trim (copy (TempSize, 1, pos (' ', TempSize)));
    Result.Size := StrToInt (ReverseString (TempSize));
  except
    Result.Size := 0;
  end;
end;

Welche Aufgabe haben die Registryzugriffe in GetFileInfo im Zusammenhang mit FTP Zugang?

[jfheins]

Zitat von schöni:

Welche Aufgabe haben die Registryzugriffe in GetFileInfo im Zusammenhang mit FTP Zugang?

Das sorgt dafür, dass z.B. bei einer .bat Datei da steht "Windows Batch File"

[himitsu]

Das sucht aus der Registry, anhand der Dateiendung, die Beschreibung raus.
= das, welches im Exlorer in der Spalte "Typ" steht.