idftpserver - was in die ganzen Ereignisse?

[Neuni]

Hi,
ich hatte schon lange vor nen FTPServer zu proggen, aber es hing immer an der OnListdirectory :wall:
Nun hab ich das Passende gefunden dafür.

JUHUU :party: .....NARF zu früh gefreut :cry:

Jetzt will das Indy-Teil auch noch mit Ereignissen wie z.B. ChangeDir, ondeletefile &co. gefüttert werden :|

Mein Problem ist:

Er listet zwar alle Verzeichnisse schön auf, aber wenn ich auf einen ordner klicke öffnet er den nicht. Runter- / Hochladen geht auch nicht :wall:

Einer ne Idee wie man das hin bekommt? Irgendwie findet man im ganzen Internet nicht eine Person die Ahnung vom IDFTP-Server hat!

Also bei OnListDirectory hab ich jetzt das gemacht (hab ich ausm DF):

Code:

procedure TForm1.IdFTPServer1ListDirectory(ASender: TIdFTPServerThread;
  const APath: String; ADirectoryListing: TIdFTPListItems);
var LItem: TidFTPListItem;
    tmp1: TSearchRec;
    LFileAttribute: Integer;
    LPfad: String;
begin
  LPfad := pfad;
  LFileAttribute := FILE_ATTRIBUTE_DIRECTORY + FILE_ATTRIBUTE_HIDDEN + FILE_ATTRIBUTE_SYSTEM;
  if FindFirst(LPfad + '*', LFileAttribute, tmp1) = 0 then
  begin
    repeat
      if (tmp1.Name <> '.') and (tmp1.Name <> '..') then
      begin
        LItem := ADirectoryListing.Add;
        LItem.FileName := tmp1.Name;
        LItem.Size := tmp1.Size;
        LItem.OwnerName := 'Username';
        LItem.GroupName := 'Groupname';
        LItem.OwnerPermissions := 'rwx';
        LItem.GroupPermissions := 'rwx';
        LItem.UserPermissions := 'rwx';
        if DirectoryExists(LPfad + tmp1.Name) then
           LItem.ItemType := ditDirectory
        else
           LItem.ItemType := idftplist.ditFile;
      end;
    until FindNext(tmp1) <> 0;
  end;
  FindClose(tmp1);
end;

Mit was muss ich den denn noch füttern? Will doch nur Dass ich die Ordner öffnen kann und dass ich was runter-rauf laden kann (CHMod und co. brauch ich ja ganich unbedingt)

[Neuni]

Keiner hier ne Idee? :cry: