21.09.2019, 13:18 [+3 UTC]
в нашей команде: 3 833 чел. | участники онлайн: 3 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
12.09.2019, 08:17

Последний вопрос:
21.09.2019, 03:42
Всего: 150360

Последний ответ:
21.09.2019, 10:10
Всего: 259042

Последняя рассылка:
21.09.2019, 11:45

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

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

Наша кнопка:

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

Отзывы о нас:
06.06.2010, 21:11 »
Поттер Г.
Большое спасибо за помощь [вопрос № 178891, ответ № 261895]
19.12.2011, 14:03 »
Андрей Валерьевич
Советы, в большинстве своем, грамотные, а повторенье мать ученья.
27.05.2011, 08:59 »
Виталий
Супер.) Слов нету. Широко развернутый и понятный ответ. ЗЫ. Админам портала просьба.. Сделайте пожалуйста еще одну оценку справа от "отлично" с пометкой "совсем отлично" и баллов 6 чтобы.) Просто иногда голову сломаешь, пока решишь задачу, обратишься к специалистам, тебе найдут решение.) Вот за такие моменты просто "отлично" мало.) [вопрос № 183304, ответ № 267404]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 92
zdwork
Статус: 3-й класс
Рейтинг: 73
puporev
Статус: Профессионал
Рейтинг: 28

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

Консультация онлайн # 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.17337 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.77 от 31.05.2019
Версия JS: 1.34 | Версия CSS: 3.35