Использование IdFTP и IdFTPserver в локальной сети

[VAM]

Доброго времени !

Скажите как можно использовать IdFTP и IdFTPserver в локальной сети ? И с помощью них передавать файлы по локальной сети. Большие файлы - около 1-2 Гб.
Или может быть использовать другой метод ?
Прикрепленный исходник вроде работает, НО(!) файл не передается. Ошибки: "Time out" да и "Not logged in" тоже присутствует.

Очень прошу помощи.

[Stilet]

Здесь не полный код. Не хватает обработчиков авторизации для FTPServer.
"Not logged in" значит что твой сервер не принял пользователя и пароль.
"Time out" тоже скорее всего из-за отсутствия описания в коде авторизации, но может быть и брандмауер гасит, его тоже стоит настроить на разрешение работы FTP

Кстати IdFTP.Connect; можно заменить на IdFTP.Login; при этом указать пароль и юзера в соответствующих свойствах компонента.

P.S. под рукой примера нет, если нужно могу позже показать как я подключаюсь

P.P.S. Название AssErt улыбнуло )

[VAM]

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

Здесь не полный код. ....

Дело в том, что у меня нет опыта работы с данными компонентами вообще.

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

....
P.S. под рукой примера нет, если нужно могу позже показать как я подключаюсь
....

Буду с нетерпением ждать !
И заранее благодарю !

[Stilet]

Выкладываю свой FTP сервер. Может кому-то и понадобится.
Он умеет:
1) Обычный ФТП. Создавать папки, удалять файлы, копировать, считывать. Короче я им в тотале коммандере пользую а-ля локалки, но через интернет.
2) Передает сообщение. Команда msg <текст сообщения>. Типа чата одностороннего. Делал для себя
3) Может удаленно запускать процесс и останавливать
exec <имя экзешника> - запускает
term <имя процесса> - тушит

Там конечно напихано всякой гидоты, но говоря в тему, VAM, стоит обратить на следующие моменты:

В модуле FTPServer

rocedure TDataModuleServer.ftpsUserLogin(ASender: TIdFTPServerContext;
  const AUsername, APassword: string; var AAuthenticated: Boolean);
begin
 AAuthenticated:=(AUsername=userview)and(APassword=pass);
 if AAuthenticated then
  log.Add(DateTimeToStr(now)+#9+ASender.Host+' подключен')
 else
  log.Add(DateTimeToStr(now)+#9+ASender.Host+' отвергнут');
end;

Идет проверка аккаунта. Сам пароль жестко прописан в программе в модуле Constant.

Само подключение можно увидеть в модуле FTPClient

function TDataModuleClient.Connect;
begin
 with IdFTP1 do begin
  Host:=AHost;
  //Account:='0';
  Username:=userview;
  Password:=pass;
  Port:=DefServPort;
  DataPort:=DefDataPort;
  try
   Connect;
   Login;
   Result:=true;
  except
   Result:=false;
  end;
 end;
end;

Правда я тут зря connect использую, так как метод Login должен его вызывать, ну да ладно... Дело житейское.

Ну и передача файла описана в модуле FTPClient:

function TDataModuleClient.PostFile;
var  f:TFileStream;
begin
      f:=TFileStream.Create(FileNameFrom,fmOpenRead);
       try
        IdFTP1.Put(f,PathTo+ExtractFileName(FileNameFrom));
        Result:=true;
       except
        Result:=false;
       end;
      f.Free;
end;

Я такие вещи в отдельный класс вынес, удобнее получается.
Если будут вопросы, пиши на почту или в аську. Или сюда. Сразу хочу предупредить - в эфире бываю редко.

[VAM]

Я так понимаю проект на DelphiXE написан или еще чего XE2 ?
Эммм....
Короче вот все что удалось увидеть на экране.




Ничего так и не ясно...
Можно смеяться ...

P.S.
У меня D2010.

P.P.S.
А можно на примере дополнения моего кода ?

Все. Готово.
Работает.

Все работает. Только не на WinXP.
Передача не проходит с Windows7 -> WindowsXP, WindowsXP -> WindowsXP.
Win7 -> Win7, WinXP -> Win7 - все работает !

Почему ?

Операции с брендмауэром, антивирусом, фэйрволом не предлагайте.
Все испробовано.

Пробовалось в локалке с доменом и на виртуальной машине.

--------------------------------------------------------------
Добавил:

IdFTP.Connect; // Не вызывает ошибки
...
...
FTP.Put(StreamToSend, 'FileName', false); // Вот тут ошибка: Could not bind socket. Address and port are already in use.

Решено.
Закройте тему.

[Stilet]

Решено.

Как? Делись секретами, ато обижусь.

[VAM]

У IdFTPServer есть свойства PASVBoundPortMax и PASVBoundPortMin.

1. они должны быть не нулевыми
2. DefaultDataPort и DataPort должны быть в этом диапазоне.

И именно в ХР на приеме.
В Висте и 7-ке все и без этих свойств работает.

[Stilet]

Странно... не замечал. У меня все замечтательно работает по сей день.

[VAM]

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

Странно... не замечал. У меня все замечтательно работает по сей день.

Может потому что Indy версии у нас с тобой разные ?
У меня Д2010 (еще есть ХЕ2), а ты, если не ошибаюсь более ранней версией пользуешься.

[Stilet]

Может быть...