Скачать: CL | DM;

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 клиента и сервера????

---

← →
Gandalf ©   (2004-01-28 12:07) [11]

KOLICS

---

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

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

---

← →
avakss ©   (2004-01-30 17:23) [13]

to Fighter2

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c