Форум: "Сети";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
ВнизУважаемые Мастера, помогите, Плз! Найти похожие ветки
← →
NavySerge (2002-06-26 15:16) [0]Уже писал на эту тему вопрос, но ответа нет. :( Попробую расширить постановку вопроса.
Имеется список FTP адресов, к которым необходимо коннектится без регистрации, а потом отключаться.
Текст проги:
num:=LB1.Items.Count;
while num1<num do
begin
hos:=LB1.Items.Names[num1];
FTP.Host:=LB1.Items.Names[num1];
ftp.Connect(false);
num1:=num1+1;
end;
end;
procedure TForm1.FTPConnected(Sender: TObject);
begin
LB.Items.Insert(lin,LB1.Items.Strings[num1]+" Connect Ok");
lin:=lin+1;
ftp.DisconnectSocket;
end;
т.е. перебираются адреса из списка, коннектимся, если коннект есть, то в втором списке это указывается и разрываем связь. Но проблема в том, что если адрес не работает, то выдается ошибка и прога дальше не работает. Если коннект успешный, то при разрыве связи вылетает сообщение об успешном разрыве, которое так же требует подтвержения. Как мне убрать эти сообщения, чтобы прога не реагировала на отсутствие коннекта с адресом и разрыв связи?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c