Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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;

т.е. перебираются адреса из списка, коннектимся, если коннект есть, то в втором списке это указывается и разрываем связь. Но проблема в том, что если адрес не работает, то выдается ошибка и прога дальше не работает. Если коннект успешный, то при разрыве связи вылетает сообщение об успешном разрыве, которое так же требует подтвержения. Как мне убрать эти сообщения, чтобы прога не реагировала на отсутствие коннекта с адресом и разрыв связи?


 
NavySerge   (2002-06-26 18:11) [1]

Ребят, ну помогите чайнику... :(
Я уже и обработчик ошибок сокетов нашел, да только не знаю куда его вставить, в справке это выглядит так:
type TSocketErrorProc = procedure(ErrorCode: Integer);
function SetErrorProc(ErrorProc: TSocketErrorProc): TSocketErrorProc;
а как этим пользоваться я не дойду никак :( ПОМОГИТЕ!!!


 
jedi   (2002-06-27 10:41) [2]

nu tak obrabativai oshibki try except...
v delphi 6 est" indy vnem esti TidFTP - samoe lu4she reshenie na moi vzgliad.


 
NavySerge   (2002-06-27 11:45) [3]

to jedi:
я использую именно indy TidFTP, и обработчик ошибок try..except, но вот проблема в том, что после except я указываю
on ESocketError do... , а прога к этой строке не обращается, хотя показывает сообщение об ошибке, которая является именно EIdSocketError... :( Что делать?
И еще вопросик, может кто знает в какой библиотеке находится ошибка EIdProtocolReplyError?


 
jedi   (2002-06-27 19:14) [4]

try
FTP.Connect();
except
on E: EidSocketError do
begin
//tvoi kod obrobotki oshibki
end;
end;


vse clasi oshbok indy nahoditsea v IdException.pas. ne zabud" napisat" v uses.



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];

Наверх















Память: 0.83 MB
Время: 0.028 c
3-13933
Arsen
2002-08-15 16:59
2002.09.05
Поле счетчик в Access


3-13871
NDR
2002-08-12 13:07
2002.09.05
УЖАВАЕМЫЕ МАСТЕРА! Как выйти из цикла?!


1-13998
UWater
2002-08-25 16:36
2002.09.05
Проблемы с установкой RX- компонентов


3-13912
Новый
2002-08-15 10:41
2002.09.05
Соединение с удаленной базой (Interbase 6)


1-14012
Eugene
2002-08-25 23:24
2002.09.05
Как проверить создана ли моя форма, метод assigned не работает





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский