[Дельфин]

hi all
Я уже наверно на 3ем форуме с этой просьбой отписываюсь, может тут поможите!
Сканер ФТП с анонимном доступом на делфи в локалке, исходники с комментами это был бы лучший вариант, но всячиские хелпы связанные с опирированием фтп протоколом в Делфи были бы очень кстати
Надеюсь на помощь

ПИСИ: Всячиские поиски по форумам, гуглам и яндаксам не помогли, попрошу туда меня не отпровлять

[Майняк]

можно чуть подробнее объяснить суть проекта? Что значит сканер?...

[Дельфин]

Мне надо проверить диапазон IP адресов, например xxx.xxx.0.1 - xxx.xxx.100.255 на наличие ФТП с анонимным доступом. Так яснее?

[Майняк]

ОК. Вариант - возьми TIdTrivialFtp и работай с ним. Иначе - подумаю как лучше.
//анонимный доступ - в смысле? Не надо логиниться?

[Дельфин]

Вообщем вот мои начинания, начал я с малого, в этом коде должна просканится 75 подсеть моей сети на анонимной доступ ФТП, но прога не компилится, а вылетает причём не выдавая никаких ошибок, в чём может быть дело?

Код:

procedure TMainForm.ConnectButtonClick(Sender: TObject);	
var	
  A: Integer;	
  B: Integer;	
  C: Integer;	
  D: Integer;	
begin	
 A:=192;	
 B:=168;	
 C:=75;	
 for D:=StrToInt(GOEdit.Text) to StrToInt(ENDEdit.Text) do	
  begin	
 IdFTP1.Host:= IntToStr(A) + '.' + IntToStr(B) + '.' + IntToStr(C) + '.' + IntToStr(D);	
 IdFTP1.Username:=UserIDEdit.Text;	
 IdFTP1.Password:=PasswordEdit.Text;	
 IdFTP1.Connect;	
 if  IdFTP1.Connected then	
 Memo1.Lines.Add(IntToStr(A) + '.' + IntToStr(B) + '.' + IntToStr(C) + '.' + IntToStr(D) + 'открыт для анонимного доступа');	
 IdFTP1.Disconnect;	
  end;	
 end;	
end.	

P.S. За глупости в коде, если они присутствуют сильно не ругайте, это моя первая прога

[Decoding]

У меня этот код откомпилировался и нормально работает. Единственное, я исправил IdFTP1.Username на IdFTP1.User (ну и диапазон адресов).