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

Листинг 11.5. Соединение с сервером

procedure TForm1.cmbConnectClick(Sender: TObject);

begin

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

begin

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

//Не введено имя сервера

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

mtInformation, [mbOK], 0)

else begin

//Подключаемся к серверу

IdTCPClient1.Host := txtServer.Text;

try

IdTCPClient1.Connect;

except

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

mtError, [mbOK], 0);

Exit;

end;

end

end

else begin

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

IdTCPClient1.Disconnect;

end;

end;