Вобщем делаю программку чат через фтп, есть сервер игровой на котором есть чат, я делаю программу чтобы можно было не захоодить на сервер , а чатиться через фтп с помощью программы..
Программа должна заходить на сервер используя веденные Логин, пароль, каталог на фтп
Проьлемма в том что когда ввожу каталог на фтп допустим '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;
|
|