Директории в FTP

[HTTqp]

Написал ftp сервер, как сделать чтобы он давал можно было открывать все логические диски, т.е. у меня получается так что он дает право ходить по одной например C:\ а надо чтобы и на D:\ разрешал заходить и на остальные.

[FaTaL]

Э-э-э-э-э. Что Вы написали? Сами хоть понимаете?

[Stilet]

HTTqp

А можно код увидеть?

[HTTqp]

ИСХОДНИК

вобщем AppDir это дериктория к которой имеет доступ пользователь зашедший на этот ftp сервер, а нужно сделать чтобы пользователь имел возможность доступа ко всем дискам как к D:\ так и C:\ и т.д

Простите скинул исходником так как превышаю допустимое количество знаков если писать в посте.

[HTTqp]

пробую так но в переменную подставляется последний нашедшейся диск

procedure TForm1.FormCreate(Sender: TObject);
var p:pchar;i:byte;
begin
getmem(p,100);
GetLogicalDriveStrings(100,p);
for i:=ord('A') to ord('Z') do
 if pos(chr(i),p)=0 then ;
 AppDir :=(chr(i)+':\');
end;

[FaTaL]

Да не придумывай ты чушь. FTP сделан не для этого.

[Stilet]

Я для этого завел себе вот такую функу:

function Drives:integer;
var s,e:ansiString;i:integer;
begin
  SetLength(s,100);
  GetLogicalDriveStringsA(Length(s),@s[1]);
  i:=0;      e:='';
  while (i<100)and(copy(s,i,2)<>#0#0) do begin
    if s[i]=#0 then begin inc(i); e:=e+#13#10;end;
    if s[i]<>'\' then    e:=e+s[i];
    inc(i);
  end;
  DriversList.Text:=e;
  //DriversList.Text:=StringReplace(s,#0,#13#10,[rfReplaceAll]);
  SetLength(s,0);
  Result:=DriversList.Count-1;
end;

DriversList глобальная переменка типа TStringList
А далее в FtpServerListDirectory:

  if (APath='/') or (APath='') then begin
   for i := 0 to f.Drives do
      with ADirectoryListing.Add do begin
       FileName:=DriversList[i];
       ItemType:=ditDirectory;
      end;

И все. Тогда корнем будет список дисков в системе.

Да, кстати - это не сработает, если сервер настроен не пукать юзера в корень
Имей это ввиду.

[HTTqp]

Stilet спасибо но у меня вопрос, DriversList и f.Drives это что? у меня он выдает ошибку как неизвестный идентификатор.

[Пепел Феникса]

Сообщение от HTTqp

Stilet спасибо но у меня вопрос, DriversList и f.Drives это что? у меня он выдает ошибку как неизвестный идентификатор.

DriversList глобальная переменка типа TStringList

а в f.Drives надо убрать f.

[HTTqp]

Пепел Феникса, спасибо но теперь возникает ошибка при конекте:
550 Access violation at address 00577F6D in module 'FTPServer.exe'. Read of address 00000000

Посмотрите код может я в нем ошибся, буду очень благодарен)