Delphi. Трюки и эффекты

Регистрация нового клиента

procedure RegisterClient(Connection: TIdTCPServerConnection;

strName: string);

var

i: Integer;

begin

//Проверим, чтобы имя клиента еще не использовалось

for i:=1 to MAX_CLIENT do

begin

if (clients[i].fNamed) then

if (clients[i].strName = strName) then

begin

//Дублирование имени – придется разрывать соединение

Connection.WriteLn(\'error:Пользователь с именем "\' +

strName + \'" уже участвует в разговоре.’);

DeleteClient(Connection);

Connection.Socket.Close;

Exit;

end;

end;

//Поиск записи о нужном клиенте и присвоение ему имени

for i:=1 to MAX_CLIENT do

begin

if (not clients[i].fNamed and clients[i].fUsed) then

if (clients[i].Connection = Connection) then

begin

//Вот он, наш клиент…

clients[i].fNamed := True;

clients[i].strName := strName;

//Сообщим другим о появлении нового участника

SendAll(\'adduser:\' + strName);

SendAll(\'text:К нам присоединился "\' + strName +

\'". Поприветствуем!\');

//Отсылаем новому книенту список остальных участников

//разговора

SendClientList(Connection);

//Разрешим новому клиенту отсылать сообщения

Connection.WriteLn(\'ok:\');

//Если нужно, то добавим событие в список

if (REPORT) then AddEvent(\'Присоединен клиент "\' +

strName + \'" на компьютере "\' +

Connection.Socket.Binding.PeerIP + \'"\');

end;

end;

end;