Проблемма с TClientSocket - Работа с сетью в Delphi

SlashMan · 14.07.2009, 14:59

Доброе время суток
у меня такая проблемма
в данном коде

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 try
   ClientSocket1.Open;
 except
   Memo1.Lines.Add('cant connect');
   Timer1.Enabled:=False;
   Timer1.Enabled:=True;
 end;

вылетает ошибка , если сервер, к которому подключается клиент, недоступен

Asynchronus Socket error 10061

хотя по идее она должна обрабатываться оператором except..
дебаггер отключен.
подскажите пожалуйста ,в чем может быть проблемма?
Спасибо.

Квэнди · 14.07.2009, 15:13

запускайте вне IDE.

SlashMan · 14.07.2009, 17:25

Цитата:

Сообщение от Квэнди

запускайте вне IDE.

я так и делаю... все равно ошибка выскакивает

Пепел Феникса · 14.07.2009, 17:35

помоему у TClientSocket есть событие OnError попробуйте использовать

SlashMan · 14.07.2009, 18:38

Цитата:

Сообщение от Пепел Феникса

помоему у TClientSocket есть событие OnError попробуйте использовать

Попробовал.. выполняется код в событии OnError + Выскакивает та же ошибка (Asynchronus Socket error 10061), как сделать так чтобы она не вылезала?

Пепел Феникса · 14.07.2009, 19:05

значит плохо делали.

Код:

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
 Socket.Close;
 ErrorCode:=0;
end;

и никакой ошибки нет.

SlashMan · 14.07.2009, 19:20

Пепел Феникса
Да, все работает)
Спасибо вам большое, очень помогли.

14.07.2009, 14:59	#1
SlashMan Пользователь Регистрация: 14.07.2009 Сообщений: 30	Проблемма с TClientSocket Доброе время суток у меня такая проблемма в данном коде Код: `procedure TForm1.Timer1Timer(Sender: TObject); begin try ClientSocket1.Open; except Memo1.Lines.Add('cant connect'); Timer1.Enabled:=False; Timer1.Enabled:=True; end;` вылетает ошибка , если сервер, к которому подключается клиент, недоступен Asynchronus Socket error 10061 хотя по идее она должна обрабатываться оператором except.. дебаггер отключен. подскажите пожалуйста ,в чем может быть проблемма? Спасибо.

14.07.2009, 15:13	#2
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	запускайте вне IDE. ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

14.07.2009, 17:35	#4
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	помоему у TClientSocket есть событие OnError попробуйте использовать Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

14.07.2009, 19:05	#6
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	значит плохо делали. Код: `procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin Socket.Close; ErrorCode:=0; end;` и никакой ошибки нет. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Прикол с TClientSocket	Avel	Работа с сетью в Delphi	1	27.11.2008 22:48
TClientSocket - сохранение	JRcoker	Общие вопросы Delphi	4	03.08.2008 00:37
TClientSocket в потоке	BlackOmen	Работа с сетью в Delphi	8	27.04.2008 22:19
Проблемка с TClientSocket	Yoger	Работа с сетью в Delphi	3	20.09.2007 10:40
Проблема с TClientSocket, TServerSocket	PLOT_HD	Работа с сетью в Delphi	4	11.08.2007 17:03

14.07.2009, 19:20	#7
SlashMan Пользователь Регистрация: 14.07.2009 Сообщений: 30	Пепел Феникса Да, все работает) Спасибо вам большое, очень помогли.