TazaqProg.ru
Главная » Файлы » Delphi » Статьи
Сокеты. Часть 2. Настройка, первый запуск.
[ Скачать проект (5.5 Kb) ] 26.04.2014, 18:26
В этой части статьи я расскажу и покажу как создать минимальный обмен данными с помощью сокетов.

Минимальная настройка:
ServerSocket ClientSocket
Active=True(по желанию) Active=True(по желанию)
Port=3000(1025-65535)  

  1. Address=127.0.0.1(если на 1 ПК)

  2. Host=Имя ПК-сервера






    3.  
  3.  
  4.  
  5.  
  6.  
Выбор 1 или 2 зависит от сети, в локальной домашней сети надежней использовать Host, т.к. вероятность изменения имени ПК-сервера намного меньше вероятности изменения IP
  Port=3000

И на клиенте и на сервере будем использовать процедуру OnRead.
Вспомогательно добавим по 2 компонента Memo, Edit, Button.
Для удобства переименуем их ClientMemo, ClientEdit, ClientButton, аналогично для сервера.
Для кнопок ClientButton и ServerButton создаем процедуры OnClick.
В итоге весь проект будет состоять из четырех процедур: 
 
 procedure TForm1.ServerSocket1ClientRead(Sender: TObject; 
   Socket: TCustomWinSocket); 
 begin 
 ServerMemo.Lines.Add(Socket.ReceiveText); 
 end;
  
 
 procedure TForm1.ClientSocket1Read(Sender: TObject; 
   Socket: TCustomWinSocket); 
 begin 
 ClientMemo.Lines.Add(Socket.ReceiveText); 
 end;
  
 
 procedure TForm1.ServerButtonClick(Sender: TObject); 
 begin 
 ServerSocket1.Socket.Connections[0].SendText(ServerEdit.Text); 
 end;
  
 
 procedure TForm1.ClientButtonClick(Sender: TObject); 
 begin 
 ClientSocket1.Socket.SendText(ClientEdit.Text); 
 end;

Само приложение работает без проблем:

Дополнительно можно поэкспериментировать с другими событиями, также следует посмотреть на событие OnError, в котором можно отлавливать ошибки, при ErorrCode=0; ошибки игнорируются.
Категория: Статьи | Добавил: TAdm | Теги: XE3, сокет, rad studio, Studio, Rad, Socket, XE2, xe, свойства, Delphi
Просмотров: 905 | Загрузок: 396 | Рейтинг: 0.0/0
Всего комментариев: 0
ComForm">
Войдите:
avatar