Среда, 22.08.2018, 01:02
Программы,исходники и статьи от a.SOFT
Главная | Каталог статей | Регистрация | Log in
Меню:
Категории каталога
Сеть/Интернет [1]
Графика [1]
Форма доступа
Логин:
Пароль:
Главная » Статьи » Delphi программирование » Сеть/Интернет

Передача и приём строки посредством сокетов
На форуме както раз прозвучало вот такое:

Quote
Задание разработать два приложения: «Сервер» и «Клиент».
По нажатию «кнопки» на «Клиенте» содержание первой строки поля «Memo» «Сервера» должно отобразиться в «Edit» «Клиента»


Вот собственно и решение...

Создаём приложение сервер,на него кидаем Button,ServerSocket и Memo...

Code

procedure TForm1.Button1Click(Sender: TObject);
  var s: string;
begin
  s := InputBox('Старт сервера','Введите адресс порта:','1001');
  if s = '' then
  Exit;
  ServerSocket1.Port := StrToInt(s);
  ServerSocket1.Open;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var s: string;
  i: Integer;
begin
s := Socket.ReceiveText;
  if Copy(s,1,2) = '#M' then begin
  ServerSocket1.Socket.Connections[0].SendText(Memo1.Lines.Strings[0]);
end;  

Создаём клиент, кидаем туда 2 Button и Edit и не забываем про ClientSocket...

Code

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket1.Socket.SendText('#M');
end;

procedure TForm1.Button2Click(Sender: TObject);
  var s: string;
begin
  s := InputBox('Соединение с сервером','Введите адресс порта:','1001');
  if s = '' then
  Exit;
  ClientSocket1.Port := StrToInt(s);
  ClientSocket1.Open;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
Edit1.text := Socket.ReceiveText;
end;  

Вот собственно и всё,никакой сложности...Отсылаем запрос от клиента-серверу,а тот в ответ отсылает нужную нам строку...

ааа...забыл...у ClientSocke в настройках выставить Host=localhost

Категория: Сеть/Интернет | Добавил: admin (06.12.2008)
Просмотров: 1059 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Дополнительные ссылки
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Copyright a.SOFT © 2018