Как сделать переключение?

← →
новенький (2006-04-06 19:44) [0]

Здраствуйте, возникла небольшая проблема, в приложении надо реализовать такую схему: есть два компонента ServerSocket и ClientSocket, при старте приложении нужно сделать чтобы сначала клиент коннектился к серверу и если через время Random(10мс) он не приконнектился, то клиент останавливался и запускался сервер и т.д., как это реализовать?

← →
Жуков Олег (2006-04-06 20:39) [1]

наверное так:
const TimeOut = 3000; //3000 msec var SavedTime: Integer SavedTime:= GetTickCount(); ClientSocket.Open(); while not ClientSocket.Socket.Connected and (GetTickCount() - SavedTime < TimeOut) do Application.ProcessMessages(); if not ClientSocket.Socket.Connected then StartServer()

мне кажется 10 мс мало будет...

← →
tesseract © (2006-04-06 21:40) [2]

по какому протоколу коннектишься? В UDP есть таймаут соединения, после которого выдаётся ошибка подключения.
TCP без организации подключения вообще не сработает. Разница между клиентом и сервером практически чисто в определениях.

← →
новенький (2006-04-07 17:38) [3]

поставил 100мс, и немного доработал код, но за идею огромное спасибо!!!!!!

Как сделать переключение? Найти похожие ветки