не отрабатывает try clientsocket.Open; finally

← →
redlord (2005-03-23 19:48) [0]

всем привет
народ подскажите почему в приведенном примере,
вслучае неудачного коннекта, молчит бипер
а вот сообщение об ошибке выдается
(10061 комп отверг зпрос на подключение)

client:=Tclientsocket.Create(nil);
client.Host:="127.0.0.1";
client.Port:=80;
client.ClientType:=ctblocking;
try client.Open; finally beep; end;

← →
redlord (2005-03-23 22:46) [1]

народ ну что ни кто не знает как отловить ошибку при конекте
блокированного клиента к серверу ??

← →
Alexander Panov © (2005-03-23 22:51) [2]

Используй событие OnError

← →
redlord (2005-03-23 23:58) [3]

TO Alexander Panov

В блокираванном режиме ONERROR ??????? :))

← →
Digitman © (2005-03-24 08:27) [4]

> молчит бипер

выкинь свой "бипер", это дилетантский способ "отладки" (тем паче под НТ), для таких целей есть полноценный встроенный отладчик

client:=Tclientsocket.Create(nil);
client.Host:="127.0.0.1";
client.Port:=80;
client.ClientType:=ctblocking;
try
client.Open;
except
on e.exception do
ShowMessage("Исключение " + e.classname + " " + e.message);
end;

← →
redlord (2005-03-24 11:36) [5]

To digitman
приведенный вами код почемуто не отрабатывается
тоже. оба исключения e:exception и e:esocketerror молчат
как партизаны может в компиляторе чтото включать надо чтоб они отработали ,но в книгах которые у меня есть про ето нигде не сказано

← →
Digitman © (2005-03-24 12:59) [6]

> redlord (24.03.05 11:36) [5]
> приведенный вами код почемуто не отрабатывается

врешь ведь ...
либо сервис заведомо доступен, либо ctNonblocking ..

третьего не дано.

← →
redlord (2005-03-24 15:14) [7]

to digitman
я вам на мыло исходник бросил 10кило
чтото он на отрез пахатьотказывается если он у вас отработает тогда будет совсем не смешно

← →
Digitman © (2005-03-24 15:33) [8]

> на мыло исходник бросил 10кило

мыло я твое получил, ставлю БП на строчке on e:exception do и прекрасно этот ВР ловлю, как и ожидаю.

не было никакого резона слать бестолковое мыло.

← →
redlord (2005-03-24 16:01) [9]

я тоже ставил ешо до отправки мыла
и не разу туда управление небыло передано
может в компиляторе какие галки стоят или наоборот не стоят ??

← →
Digitman © (2005-03-24 16:18) [10]

> и не разу туда управление небыло передано

а хоть где-нибудь (в ином месте) ловил ВР ?
если ловил, то с галками все в порядке - тгочно так же и здесь поймаешь, как я поймал

← →
redlord (2005-03-24 22:11) [11]

похоже что и правду чтото гдето отключено
потомучто ниже приведенный код без всяких
исключений (передает) данные даже при закрытом
слиентском сокете

try
//clientsocket1.Open;
for n:=1 to 100 do
begin
sleep(500);
clientsocket1.Socket.SendText("12345");
memo1.Lines.Add(inttostr(n));
application.ProcessMessages;
if n = 10 then
serversocket1.Socket.Connections[0].Close;
end;
except
on e:exception do
ShowMessage("E R R O R" + e.classname + " " + e.message);
end;

> redlord (24.03.05 22:11) [11]

не верю, что при закрытом.
попытка выполнить передачу по неактивному (не установленному на этот момент) соединению обязательно приведет к исключению, вне зависимости от режима работы гнезда - блокирующего или неблокирующего

← →
redlord (2005-03-27 01:53) [13]

похоже в моей версии просто отключена возможность перехвата сообщений об ошибках как ее включить ???

У меня примерно то же самое...Там вся фишка в том,что при запуске
кода внутри дельфи,все ошибки показываются,а конструкции try...except...finally...end;
не срабатывают.Ты откомпиль прогу,а потом запусти сам exe.Даю свой кабель от выделенки на отсечение,что комп бипнет...

не отрабатывает try clientsocket.Open; finally Найти похожие ветки