TCPServer и завершение виндовс98

← →
avakss (2003-12-15 13:49) [0]

Я кинул на форму TCPServer и при запуске tcpserver.listen. Как остановить этот сервер при завершении виндовс?
У меня код

function TForm1.KOLFormMessage(var Msg: tagMSG;
var Rslt: Integer): Boolean;
begin
result:=false;
if msg.message=messages.WM_QUERYENDSESSION then
begin
tcpserver1.Disconnect;
rslt:=0;
form.Close;
end;
end;

Так вот disconnect и rslt:=0 или 1 не даёт виндовс завершиться.

← →
Boguslaw (2003-12-15 21:13) [1]

What is KOL Version ? Try the newest !

← →
BelchonokH © (2003-12-15 21:55) [2]

Вместо форм.клоус мне помогало terminateProcess(form1.form.Handle,1);

← →
avakss (2003-12-16 12:11) [3]

проблема скорее в TCPServer я не знаю как его правильно закрыть при завершении виндовс -- к серверу не конектился, а просто TCPServer.listen

← →
avakss (2003-12-16 12:12) [4]

проблема скорее в TCPServer я не знаю как его правильно закрыть при завершении виндовс -- к серверу не конектился, а просто TCPServer.listen . Версия КОЛ 1.86,1.87, винд98, дельфи7

← →
Avenger (2003-12-16 13:27) [5]

QueryEndSession обработай это событие, там и останавливай сервер

← →
Vladimir Kladov (2003-12-16 15:11) [6]

Может, Free ему сказать, а дальше он сам уйдет?

← →
avakss (2003-12-16 19:29) [7]

ни Free, ни Disconnect не помогает --всё равно окно висит на экране, может у кого есть TCPServer рабочий?

← →
SPeller © (2003-12-17 05:27) [8]

Ну до чегоже народ ленивый! Там же в самом архиве демка есть, и всё там прекрасно закрывается! :)

← →
avakss (2003-12-17 10:05) [9]

так в том то и дело, что и демка при завершении виндовс висит и не закрывается. windows98, TCPServer от Vorobets Roman

← →
Aug (2004-01-27 23:37) [10]

Люди, а есть под КОЛ МСК компоненты TCP/UDP клиента и сервера????

KOLICS

← →
Fighter2 (2004-01-23 13:16) [12]

В 3.14#ду кролика!
Для остановки TCPServer надо Active:=false;
И все :)))

to Fighter2

если такой умный, то сначала поищи в KOLTCPServer команду Active
Если найдёш--значит тебе к Билу Гейтсу на работу нужно устраиваться, а то зря мозги париш по мелочам.

TCPServer и завершение виндовс98 Найти похожие ветки