Чат[Delphi]

[Stilet]

Нет. Ты наверное не понял
Смотри. Я имел ввиду что при запуске твоя программа сканирует сеть на наличие уже запущенных таких же программ.
Если ничего не найдено, значит она запустилась первая, и пусть берет на себя функции сервера, если такие программы существуют, она посылает им запрос "Кто из них сервер".

Если она стала сервером, то начинает прослушивать порт.
При подключении другой программы, она передает ей ответ "Я сервер" и ставит ее в список подключенных.

Теперь если она отключается - на первый адрес в списке посылает просьбу взять на себя серверные обязанности. Если с адреса ответили согласием - пересылает текушие настройки, а та прога которая согласилась настроийки принимает, и выбрав из них список уже подключенных клиентов, рассылает им сообщение "Переподключитесь ко мне"

Это один из возможных сценариев.

[начинающий кодер]

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

[Stilet]

как проверить сеть на наличие таких же запущенных программ?

Например через TIdUDPClient - IdUDPClient1.Broadcast('Кто здесь?',245);
Тогда не забудь прикрутить к проге TIdUDPServer.

А вообще, зачем тебе сервер? У тебя же простой чат.
Сделай его наподобие SEChat, где либо сообщения посылаются через IdUDPClient1.Broadcast, либо используется TCPMulticast. И не парься с серверной частью.

[начинающий кодер]

Udp же не дает гарантии что пакет 100% дойдет до адресата? Но я попробую.спасибо.

[Stilet]

Udp же не дает гарантии что пакет 100% дойдет до адресата?

Не дает. Но зато он прост в обращении.