Не могу понять в чем ошибка? idFTP.

[саша40]

Привет. Пишу довольно громадную программу. Для работы программы используется FTP-сервер сайта. В общем вот код:

var
i: integer; //счетчик цыкла
sp: TStrings; //список папок
login: string; //то что мы ищем
begin
idFTP1.Host:='fortergo.3dn.ru'; //сайта. Вопрос: задавать с http:// или без?
idFTP1.Username:='4fortergo'; //логин 
idFTP1.Password:='********'; //пароль, зашифрован для защиты данных
Account:=false; //переменая глобальная!
sp:=TStrings.Create; //создаем список
login:=edit1.Text; //получаем, то что будем искать
if login='' then exit; //проверочка
idFTP1.Connect(); //соеденение
idFTP1.ChangeDir('http://fortergo.3dn.ru/'); //Открываем главную папку сайта
if idFTP1.Connected=false then exit; //проверка
idFTP1.List(sp,'Users',false); //получаем папки и файлы в директории
for i:=0 To sp.Count-1 do 
begin
if  sp.Strings[i]=login then
begin
Account:=true; //нашли :)
break; //выход из цыкла
end;
end;
idFTP1.Disconnect; //рассоеденение

Смысл в том, что всё это выдает ошибку(не кодовую!):
Pronibited file name: http://fortergo.3dn.ru.
И теперь вопрос: Что не так?

[Lardes]

Сообщение от саша40

Вопрос: задавать с http:// или без?

Без.

Сообщение от саша40

[/CODE]idFTP1.ChangeDir('http://fortergo.3dn.ru/'); //Открываем главную папку сайта[/CODE]

Неверно выбираешь каталог. Почитай про работу с ftp.

Сообщение от саша40

Pronibited file name

P.S. И не "Pronibited file name", а "Prohibited file name", что значит "запрещенное имя файла"

[саша40]

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

Без.



Неверно выбираешь каталог. Почитай про работу с ftp.



P.S. И не "Pronibited file name", а "Prohibited file name", что значит "запрещенное имя файла"

а как решить такую ошибку? Но всё равно спасибо хоть за это.

[Lardes]

Если это корневая папка, то

IdFTP1.ChangeDir('/');

[саша40]

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

Если это корневая папка, то

IdFTP1.ChangeDir('/');

помогло. Спасибо, но вот ещё. Пишет это:
'I wonot open connection to 0.0.0.0(only to мой ip)'. Пишет что не может открыть соеденение с 0.0.0.0. Думаю ошибка в том, что я не указал параметра для

id.FTP1.Connect();

. Но какой указывать?
P.S. Ошибка цитирована не до конца. слова "мой ip"=текущий ip.

[Lardes]

idFTP1.Host:='fortergo.3dn.ru';

Скорее дело в этом. Уточни какой FTP-адрес должен быть

[саша40]

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

idFTP1.Host:='fortergo.3dn.ru';

Скорее дело в этом. Уточни какой FTP-адрес должен быть

адрес: http://fortergo.3dn.ru/
Ай, значит по адресу надо.
Поиск производится тут: http://fortergo.3dn.ru/Users
Могу указать имя сервере и ip, если надо.

[саша40]

Посмотрел в админ панели фтп и получил так:
FTP host: fortergo.3dn.ru
FTP login: 4fortergo
FTP password: ***** тот который использую
Может мешает бранбраузер. Так как порт стоит 21. Может поставить на 1021?

[саша40]

Всё исправил:

var
i: integer;
sp: TStringList;
login: string;
begin
idFTP1.Host:='***';
idFTP1.Username:='****';
idFTP1.Password:='****';
idFTP1.Passive:=true;
Account:=false;
sp:=TStringList.Create;
login:=edit1.Text;
if login='' then exit;
if idFTP1.Connected then idFTP1.Disconnect;
idFTP1.Connect(True);
if idFTP1.Connected=false then
begin
ShowMessage('Не удалось соедененится с сервером');
exit;
end;
idFTP1.ChangeDir('/Users/');
idFTP1.List(sp);
for i:=0 To sp.Count-1 do
begin
if  sp.Strings[i]=login then
begin
Account:=true;
break;
end;
end;
if Account=false then
ShowMessage('Аккаунт не найден')
else
ShowMessage('Аккаунт найден');
FreeAndNil(sp);
idFTP1.Disconnect;