Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 4 517

/ вопрос открыт /

Здравствуйте, эксперты!
Есть клиент/сервер. Есть массив с портами(ип адрес один). Я буду брать элементы массива, и пробовать подключится. Вопрос: из 1000 портов будет открыт только один(не известно какой), поэтому при закрытом порте будет возникать ошибка подключения, как мне "выловить" её? Если ошибка, то беру следующий элемент и пытаюсь подключится и т.д.

padonak Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: padonak (статус: Посетитель)
Вопрос отправлен: 19 августа 2010, 16:31
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 19 августа 2010, 16:54; участников в обсуждении: 2.
padonak

padonak (статус: Посетитель), 19 августа 2010, 16:41 [#1]:

Socket Error # 10061 <-- вроде бы оно... только как бы сделать то что я хочу? если использовать исключения, плиз, помогите!!!
Вадим К

Вадим К (статус: Академик), 19 августа 2010, 16:48 [#2]:

а может чуточку кода показать, что бы было видно как подключаемся и какими компонентами?
Галочка "подтверждения прочтения" - вселенское зло.
padonak

padonak (статус: Посетитель), 19 августа 2010, 16:50 [#3]:

Вадим К: подключаюсь через клиент/сервер'сокеты.
padonak

padonak (статус: Посетитель), 19 августа 2010, 16:54 [#4]:

Извинтиляюсь, проблема решена...

procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin

if ErrorCode = 10061 then
begin
Client.Active := False;
showmessage('Сервер не найден.');
ErrorCode := 0;
end;

end;

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:36
Выполнено за 0.02 сек.