02.06.2020, 00:17 [+3 UTC]
в нашей команде: 4 582 чел. | участники онлайн: 1 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.89 (25.04.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
31.05.2020, 09:51

Последний вопрос:
01.06.2020, 20:36
Всего: 152547

Последний ответ:
01.06.2020, 23:15
Всего: 260235

Последняя рассылка:
01.06.2020, 20:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
18.09.2009, 10:56 »
Rem88-72
Отличный ответ на мой вопрос! Весь ответ представленн в полном виде. Огромное спасибо! [вопрос № 172285, ответ № 254321]
16.08.2019, 17:33 »
dar777
Это самое лучшее решение! [вопрос № 196104, ответ № 278514]
28.03.2010, 19:10 »
MrSpencer
Спасибо за подробное объяснение! [вопрос № 177498, ответ № 260403]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 460
Delph
Статус: 3-й класс
Рейтинг: 315
puporev
Статус: Профессор
Рейтинг: 194

Перейти к консультации №:
 

Консультация онлайн # 143682
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: SHERRY
Отправлена: 11.09.2008, 22:12
Поступило ответов: 1

Доброго времени суток!
Предстал перед задачей написать небольшую программку удалённого контроля.
Объясните пожалуйста следующий момент: как в Borland Delphi 7 осуществить передачу сообщения от серверного приложения клиентскому по сети, если известен IP-адрес удалённой машины? Компьютеры находятся в одной рабочей группе.
Зараннее благодарен.

Состояние: Консультация закрыта

Ответ # 229057 от Олекса aka SoW

Здравствуйте, SHERRY!
Самый простой способ - использовать компоненты TServerSocket и TClientSocket. Они располагаются на закладке Internet.
Если там нет етих компонентов, то Вам нужно их установить (в Делфи 6 и 7 они по умолчанию не устанавливаются). Для єтого найдите на установочном диске Делфи файл dclsocketsXX.bpl, где ХХ - номер версии Делфи. Скопируйте его куда-нибудь на жесткий диск, например в поддиректорию bin директории, куда установлен Делфи. В этой папке находятся все bpl-файлы и вполне разумно поместить туда и этот.

После этого в Делфи нужно выбрать пункт Install Package в меню Component. Откроется окно, в нем нажмите кнопку Add, и перед Вами появится стандартное окн открытия файла. Выберите скопированный файл dclsocketsXX.bpl. После етого можете закрывать все открытые окна кнопками OK.

Теперь непосредственно к тому, как передать сообщение:

1) Серверная часть, которая получает сообщение и соответственно его обрабатывает.
- На форму нужно поместить компонент TServerSocket. В его свойстве Port задаем нужный порт (Любое значение от 1024 до 65000).
- При запуске программы пишем строчку ServerSocket1.Activate:=true; - она запускает сервер и открывает указанный порт в ожидании соединения.
- Теперь в событии OnClientRead обрабатываем полученное сообщение, например:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
s:String;
begin
s:= Socket.ReceiveText;
if s='R' then ExitWindowsEx(EWX_SHUTDOWN,0);
end;

2) Клиентская часть: ставим на форму компонент TClientSocket. Пример его использования:
procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.host:='172.27.8.100';
clientsocket1.active:=true;
clientsocket1.Socket.SendText('Текст сообщения');
clientsocket1.active:=false;
end;

Если что-то непонятно, пишите в ЛС


Консультировал: Олекса aka SoW
Дата отправки: 11.09.2008, 23:07

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.15915 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.89 от 25.04.2020
Версия JS: 1.45 | Версия CSS: 3.39