VPF::IdFTP - Не находит каталог - Форум программистов

SL1CK

Дата 27.8.2009, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 17.3.2009

Репутация: нет
Всего: нет

Вобщем делаю программку чат через фтп, есть сервер игровой на котором есть чат, я делаю программу чтобы можно было не захоодить на сервер , а чатиться через фтп с помощью программы..
Программа должна заходить на сервер используя веденные Логин, пароль, каталог на фтп

Проьлемма в том что когда ввожу каталог на фтп допустим 'katalog' то при коннекте вылетает ошибка говорящая что такого каталога не существует, хотя он существует!.. Как это исправить??

Вот код:

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
IdFTP1.Host:=Edit1.Text;//Адресс сервера
IdFTP1.Port:=21;// Порт сервера
IdFTP1.Username:=Edit2.Text;//Логин юзера
IdFTP1.Password:=Edit3.Text;//Пароль юзера
IdFTP1.Connect();//Коннект к серверу
IdFTP1.ChangeDir(Edit4.Text);//Установка директории
end;

Cyanide

Дата 27.8.2009, 23:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.8.2009

Репутация: нет
Всего: нет

Твой код:

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
IdFTP1.Host:=Edit1.Text;//Адресс сервера
IdFTP1.Port:=21;// Порт сервера
IdFTP1.Username:=Edit2.Text;//Логин юзера
IdFTP1.Password:=Edit3.Text;//Пароль юзера
IdFTP1.Connect();//Коннект к серверу
IdFTP1.ChangeDir(Edit4.Text);//Установка директории
end;

Попробуй изменить порядок таким:

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
IdFTP1.Host:=Edit1.Text;//Адресс сервера
IdFTP1.Port:=21;// Порт сервера
IdFTP1.Username:=Edit2.Text;//Логин юзера
IdFTP1.Password:=Edit3.Text;//Пароль юзера
IdFTP1.ChangeDir(Edit4.Text);//Установка директории
IdFTP1.Connect;//Коннект к серверу
end;

И, самое главное, Edit4 не должен иметь текст "katalog". Придётся ставить префикс '/'. Таким образом Edit4.Text := '/katalog'

M
THandle

Модератор: используйте подсветку кода!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »