отправка и приём UDP
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Delphi 7. Нужно написать программу дл отправки по локальной сети сообщений (длина до 61 байта) и программу которая убдет эти сообщения принимать.
Нашёл в палитре TUdpSocket, но хелп по нему необильный и в Сети почти ничего нет. Мне очень нужны примеры работы с TUdpSocket.
Я бы воспользовался Indy, но тогда программа получится слишком большой по объёму, а я хочу её на Upload выложить.
Нашёл в палитре TUdpSocket, но хелп по нему необильный и в Сети почти ничего нет. Мне очень нужны примеры работы с TUdpSocket.
Я бы воспользовался Indy, но тогда программа получится слишком большой по объёму, а я хочу её на Upload выложить.
Код: Выделить всё
ShellExecute(handle,'','net send * Кто увидит Иванова, передать ему чтобы зашел к руководителю','','',0)
А если серьезно то со работал с коммерческими компонентами для сетки, так все было элементарно. Два приложения. Одно клиент, другое сервер. Оба могут посылать и принимать сообщения. Парочка компонентов на форме и все ништяк. Копай в сторону Инди, потом ASPack-ом сожмешь и усе.
The trurh is out there...
Спасибо за совет. Попробую Indy. НО обидно, что стандартній компонент так и остался загадкой.
P.S. А как программно перехватывать сообщения, посылаемые net send?
вот это х.з. На компах в сетке есть служба которая их ловит, но как-то можно, полазий по гуглу, можь найдешь.
The trurh is out there...
-
- Сообщения: 30
- Зарегистрирован: 12 апр 2005, 14:57
- Откуда: РБ, Стерлитамак
- Контактная информация:
Код: Выделить всё
ShellExecute(handle,'','net send * Кто увидит Иванова, передать ему чтобы зашел к руководителю','','',0)
rootpro писал(а):Код: Выделить всё
ShellExecute(] А где указать адрес, для отправки?[/quote] Так там же звёздочка стоит вместо адреса.
rootpro, используй имя компьютера, а не IP.
Даже самый дурацкий замысел можно воплотить мастерски
Не в имени должно быть дело. Все должно работать. Скорее с именем не будет работать, если DNS не настроен, чем с айпишником. Может просто соответствующая служба не запущена? Ты случаем не на локальном компе это дело проверяешь?
The trurh is out there...