Валерий Борисок - Delphi. Трюки и эффекты

Листинг 11.20.

Обработка сообщения от клиента

procedure ProcessMessage(Connection: TIdTCPServerConnection;

strMessage: string);

var

strName: string; //Имя отправителя сообщения

strAction: string; //Строка с обозначением действия (префикс)

len: Integer; //Длина строки strAction

begin

//Определим действие, которое хочет выполнить клиент

len := Pos(\':\', strMessage);

strAction := Copy(strMessage,1,len-1);

Delete(strMessage,1,len);

if (strAction = \'name\') then

begin

//Клиент сообщает свое имя – пытаемся его зарегистрировать

RegisterClient(Connection, strMessage);

end

else if (strAction = \'text\') then

begin

//Клиент передает сообщение всем – подпишем сообщение и отошлем

strMessage := GetClientName(Connection) + \': \' + strMessage;

SendAll(\'text:\' + strMessage);

//Если надо, то сохраняем сообщение в списке событий

if (REPORT) then AddEvent(\'Сообщение от \' + strMessage);

end

else

begin

//Клиент передает сообщение определенному собеседнику

//(строка strAction содержит имя собеседника)

strName := GetClientName(Connection);

SendTo(\'text:\' + strName + \': \' + strMessage, strAction);

if (strName <> strAction) then

//Передадим копию сообщения отправителю

Connection.WriteLn(\'text:\' + strName + \' для \' +

strAction + \': \' + strMessage);

//Если надо, то сохраняем сообщение в списке событий

if (REPORT) then AddEvent(\'Сообщение для \' + strAction +

\' от \' + strName + \': \' + strMessage);

end;

end;

type

client = record

fUsed: Boolean; {Ячейка занята}

fNamed: Boolean; {Клиент сообщил свое имя}

strName: string; {Имя пользователя}

strIP: string; {IP-адрес клиента}

Connection: TIdTCPServerConnection; {Соединение клиента с сервером}

end;

Листинг 11.21. Изменения в модуле Server

program Server;

uses

Forms,

Unit1 in \'Unit1.pas\' {frmServer},

IniFiles, Dialogs;

{$R *.res}

var

{Переменные из INI-файла}

config: TIniFile;

strPath: string;

begin

//Грузим информацию из INI-файла

strPath :=

Copy(Application.ExeName,1,Length(Application.ExeName)–3) +

\'ini\

config := TIniFile.Create(strPath);

SERVERVISIBLE := config.ReadBool(\'Common\', \'ServerVisible\',

False);

REPORT := config.ReadBool(\'Common\',’EventReport’, False);

config.Free ;

try

//Запуск сервера

Application.Initialize;

Application.CreateForm(TfrmServer, frmServer);

Application.Run;

except

MessageDlg(\'Не удается запустить сервер сообщений. \' +

\'Возможно, он был запущен ранее.\', mtError, [mbOK], 0);

end;

end.