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

[Common]

ServerVisible=1

EventReport=1

Листинг 11.22.

Обновление формы при присоединении к серверу

procedure Connect();

begin

with frmClient do

begin

cmbConnect.Caption := \'Отключиться\

txtUser.Enabled := False;

txtServer.Enabled := False;

Caption := \'Разговорник [\' + txtUser.Text + \' подключен к \' +

txtServer.Text + \']\

lstUsers.Enabled := True;

cmbSend.Enabled := True;

txtMessage.Enabled := True;

txtChat.Enabled := True;

end;

end;

Листинг 11.23.

Обновление формы при отсоединении от сервера

procedure Disconnect();

begin

with frmClient do

begin

cmbConnect.Caption := \'Подключиться\

txtUser.Enabled := True;

txtServer.Enabled := True;

Caption := \'Разговорник\

lstUsers.Enabled := False;

lstUsers.Clear;

cmbSend.Enabled := False;

txtMessage.Enabled := False;

txtChat.Enabled := False;

end;

end;

Листинг 11.24.

Обработка строки, полученной от сервера

procedure ProcessMessage(strMessage: string);

var

strAction: string; //Тип сообщения (префикс сообщения)

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

begin

//Определим тип сообщения и выполним соответствующие действия

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

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

Delete(strMessage,1,len);

if (strAction = \'ok\') then

begin

//Регистрация пользователя завершена – можно отправлять

//сообщения

Connect;

end

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

begin

//Ошибка!!!

frmClient.TCPClient.Disconnect;

Disconnect;

MessageDlg(strMessage, mtError, [mbOK], 0);

end

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

begin

//К разговору присоединился новый пользователь

frmClient.lstUsers.Items.Add(strMessage);

end

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

begin

//Какой-то пользователь отсоединился

frmClient.lstUsers.Items.Delete(

frmClient.lstUsers.Items.IndexOf(strMessage));

end

else begin

//Покажем принятое сообщение

frmClient.txtChat.Lines.Add(strMessage);

end;

end;

Листинг 11.25.

Присоединение/отсоединение от сервера

procedure TfrmClient.cmbConnectClick(Sender: TObject);

begin

if (cmbConnect.Caption = \'Подключиться\') then

begin

//Проверим, чтобы были введены имя сервера

//и имя пользователя

if (txtServer.Text = \'\')then

begin

MessageDlg(\'Введите имя сервера в текстовое поле.\',

mtInformation, [mbOK], 0);

Exit;

end

else if (txtUser.Text = \'\')then

begin

MessageDlg(\'Введите имя пользователя в текстовое поле.\',

mtInformation, [mbOK], 0);

Exit;

end;

//Пытаемся подключиться к серверу

try

TCPClient.Host := txtServer.Text;

TCPClient.Connect;

except

MessageDlg(\'Не удается соединиться с сервером\',mtError,

[mbOK], 0);

end;

end

else

//Отключаемся от сервера

TCPClient.Disconnect;

end;