Як пропілінгувати сервак

Драсті! вона стежила й інформувала як клієнтів у тому що сервер у мережі і сервер у тому скільки в нього клієнтів.

procedure Delay(ms : longint); var TheTime : LongInt; begin TheTime := GetTickCount + ms; while GetTickCount

> як клієнтів про те, що сервер у мережі

простіше не займатися нісенітницею, а "навчити" кожного клієнта визначати цей факт

> так і сервер про те, скільки у нього клієнтів

ну як же! а то сервер не знає, скільки у нього активних клієнтів!

а TClientSocket.ClientType, треба розуміти, ctBlocking?

Можна залізти всередину цих компонентів, видаляти всі Exeptions. Потім підключаємося до сервера, і перевіряємо чи є підключення чи ні, і ніяких помилок.

Exceptions то навіщо видаляти?

> Digitman > простіше не займатися нісенітницею, а "навчити" кожного клієнта > визначати цей факт

а можна докладнішемережі тільки учу

почни з конкретного та обґрунтованого тобою вибору значення св-ва ClientType

>Digitman> почни з конкретного та обґрунтованого тобою вибору значення > св-ва ClientType

ну у мене ClientType --- ctNonBlocking а ServerType --- stNonBlocking

а що від цього щось залежить мені треба типу контри якщо сервера немає то далі шукаємо якщо є показуємо або даємо команду

> а ServerType --- stNonBlocking

до кл.стороні це не має жодного відношення

обробляй подію OnError,його збудження після Open зазвичай є фактом недоступності сервера

в тому те і прикол що віконце вилазить до onError

> SergeySEM (21.09.04 15:26) [8]> віконце вилазить до onError

зараз перевірив точно все в порядку дякую за допомогу