Hi leute,
Mich würde interessieren wie ich mit der
Indy Komponente "IdFtpserver" meine gesamten Files auf der Platte freigeben kann so das ich sie mit einem Client laden löschen kann.
Habe bis jetzt folgendes gemacht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
IDFTPSERVER1.Active:=TRUE;
end;
procedure TForm1.IdFTPServer1ListDirectory(ASender: TIdFTPServerThread;
const APath: String; ADirectoryListing: TIdFTPListItems);
var
list : TIdFTPListItem;
begin
list := ADirectoryListing.Add;
list.Size := 0;
list.ModifiedDate := now;
list.FileName := 'C:\';
list.ItemType := ditDirectory;
end;
Jetzt listet er mir aber nicht C:\ sondern nur ne Verzeichniss was so heisst
will aber alles sehen weiss jemand was ???
Bin für jeden tip dankbar!
[edit=SirThornberry]Delphi-Tag geschlossen - Mfg, SirThornberry[/edit]