Проверка FTP

[}{oт@бь)ч]

Здраствуйте!
Хотел узнать вот что
Хочу написать FTP програмку!
Например у меня есть 10 FTP доступов но я незнаю работают они или нет
и мне надо их проверить по одному проверять долго
А вот бы как зделать програмку которая бы проверяла рабочий FTP или нет
Тоесть я беру вставляю в програмку текстовой документ
и нажимаю старт и она мне потом показывает какие рабочие FTP
Извеняюсь если выразился непонятно но как мог!

[KORN]

ну так пиши программу которая логиниться на FTP серваке, далее автоматизируем процесс.. добавляем цикл и чтение хоста, логина и пароля из файла/бд и начинаем по очереди проверять... если конект прошел то в файле дописываем OK иначе FAILED

[}{oт@бь)ч]

Поподробнее можно
как это все зделать?

[KORN]

http://www.delphisources.ru/pages/so...p_cl_serv.html

качаем и дописываем

так сложно поставить компонент ввести host, login, password и connect далее если конектед тогда ok, что такого сложного то7 да и в гугле это все находится... тебе блин только цикл приписать и работу с файлом

[}{oт@бь)ч]

И всетаки я непонемаю мне же не по одному проверять!
Мне надо чтобы я туда засовывал тхт лист
такого вида
fff:4535345@ftp.freehostia.com
и таких много!
На подобие такого вида и после того как програма их проверит она должна
вывести что сохранить ли рабочие фтп!

[KORN]

тогда юзай ini файл показываю его структуру

[FTP Servers]
Host_1=ftp.freehostia.com // string
Login_1=login // string
Pass_1=Pass // string
Result_1=0 // String

и до
Host_n=host // string
Login_n=login // string
Pass_n=Pass // string
Result_n=0 // String


для считывания берем цикл

i:=0;
while ini.valueexists('FTP Servers', 'Host_'+inttostr(i)) do
begin
FTP.host:=ini.readstring('FTP Servers', 'Host_'+inttostr(i), '');
FTP.login:=ini.readstring('FTP Servers', 'Login_'+inttostr(i), '');
FTP.Pass:=ini.readstring('FTP Servers', 'Pass_'+inttostr(i), '');
FTP.Connect;
if FTP.Connected then
ini.writestring('FTP Servers', 'Result_'+inttostr(i), 'OK')
else
ini.writestring('FTP Servers', 'Result_'+inttostr(i), 'Failed');

inc(i);
end;

это алгоритм чтения из файла, осталось тебе только дописать работу с компонентом IdFTP или каким нить еще

либо результаты выводи в другой файл