Mam problem.
Chcę napisać prosty serwer ftp. Używam do tego indy 9.
Obsłużyłem wydarzenie OnListDirectory w taki sposób
var
SR : TSearchRec;
Found : Integer;
Lista : TidFTPListItem;
begin
ADirectoryListing.ListFormat := flfCustom;
Found := FindFirst('C:*.*',faAnyFile - faDirectory- faSysFile,SR);
while Found = 0 do
begin
Lista := ADirectoryListing.Add;
Lista.FileName := SR.Name;
Lista.Size := SR.Size;
Lista.ModifiedDate := FileDateToDateTime(SR.Time);
if SR.Attr = faDirectory then
Lista.ItemType := ditDirectory
else
Lista.ItemType := ditFile;
Found := FindNext(SR);
end;
FindClose(SR);
Ale jak odpalam ten serwer i próbuję się zalogować to wywala mi błąd CWD Command not implemented.
Pomożecie??