Практика и примеры

Пример 1. Посылка/прием текстовых сообщений по сокетам

{... Здесь идет заголовок файла и определение формы TForm1 и ее экземпляра Form1} {В форму нужно поместить две кнопки TButton и три TEdit. При нажатии на первую кнопку вызывается обработчик события OnClick - Button1Click. Перед этим в первый из TEdit-ов нужно ввести хост-имя, а во второй - порт удаленного компьютера. После установления соединения можно посылать текстовые сообщения, вводя текст в третий TEdit и нажимая вторую кнопку TButton. Чтобы отсоединиться, нужно еще раз нажать первую TButton. Еще нужно добавить TListBox, в который будем помещать принятые и отправленные сообщения. НЕ ЗАБУДЬТЕ ПОМЕСТИТЬ В ФОРМУ КОМПОНЕНТ TClientSocket!} procedure Button1Click(Sender: TObject); begin   {Если соединение уже установлено - прерываем его.}   if ClientSocket1.Active then begin     ClientSocket1.Close;     Exit; {...и выходим из обработчика}   end;   {Присваиваем свойствам Host и Port нужные значения}   ClientSocket1.Host := Edit1.Text;   ClientSocket1.Port := StrToInt(Edit2.Text);   {Пытаемся открыть сокет и установить соединение}   ClientSocket1.Open; end; procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin   {Как только произошло соединение - посылаем приветствие}   Socket.SendText('Hello!');   ListBox1.Items.Add('< Hello!'); end; procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); begin   {Если пришло сообщение - добавляем его в ListBox}   ListBox1.Items.Add('> '+Socket.ReceiveText); end; procedure Button2Click(Sender: TObject); begin   {Нажата кнопка - посылаем текст из третьего TEdit}   ClientSocket1.Socket.SendText(Edit3.Text);   ListBox1.Items.Add('< '+Edit3.Text); end;