Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как отправить сообщение по IP-шнику 
:(
    Опции темы
RoMka
  Дата 22.9.2004, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.9.2004

Репутация: нет
Всего: нет
Подскажите, как отправить стандартное виндузовское сообщение по IP адресу клиента?

sample.gif
PM MAIL ICQ   Вверх
p0s0l
Дата 22.9.2004, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Наваял примерчик:
Код
function NetMessageBufferSend(servername: LPCWSTR; msgname: LPCWSTR;
 fromname: LPCWSTR; buf: Pointer; buflen: DWORD): DWORD; stdcall; external 'netapi32.dll' name 'NetMessageBufferSend';

function SendMessageToIP (const IP, msg : string) : DWORD;
begin
 Result := NetMessageBufferSend (nil, PWideChar(WideString(IP)), nil, PWideChar(WideString(msg)), Length(msg)*2)
end;

Пример использования:
Код
 SendMessageToIP('192.168.0.1', 'Test string');




--------------------
С уважением, г-н Посол.
PM   Вверх
Гость_Garabar
Дата 22.9.2004, 16:39 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
А как принять)))
  Вверх
p0s0l
Дата 22.9.2004, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Я думал, что надо сделать программно net send ...
А оно само принимается виндой...
Если нужен обмен между двумя своими прогами, то это делается по-другому...



--------------------
С уважением, г-н Посол.
PM   Вверх
RoMka
Дата 23.9.2004, 07:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.9.2004

Репутация: нет
Всего: нет
p0s0l Нет, нужно именно без клиентской проги. А он гарантированно примется - я имею ввиду net send ни от каких служб не зависит?

sample.gif

PM MAIL ICQ   Вверх
p0s0l
Дата 27.9.2004, 19:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
Должна быть запущена служба Messenger:
Цитата
Transmits net send and Alerter service messages between clients and servers. This service is not related to Windows Messenger. If this service is stopped, Alerter messages will not be transmitted. If this service is disabled, any services that explicitly depend on it will fail to start.



--------------------
С уважением, г-н Посол.
PM   Вверх
Medved
Дата 28.9.2004, 00:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154
Открываешь DRKB и читаешь главу про сокеты. Потом читаешь еще раз. После этого смотришь примеры, которые есть в сети (не все, их там масса). И в следующий раз, сам будешь отвечать на такие вопросы.


--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
WinSer
Дата 16.6.2007, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.6.2007

Репутация: нет
Всего: нет
Цитата

Пример использования:
код Pascal/Delphi    
Код

1:  SendMessageToIP('192.168.0.1', 'Test string');



Пробую отослать сообщение таким способом, а оно не отображается на екране. При этом прога не выдает никаких ошыбок.  В чем может быть проблема? Чего я делаю нетак?

Это сообщение отредактировал(а) WinSer - 16.6.2007, 12:47
PM MAIL   Вверх
Snowy
Дата 16.6.2007, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Возможно на указанном компьютере не запущена служба сообщений.
PM MAIL   Вверх
WinSer
Дата 16.6.2007, 14:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.6.2007

Репутация: нет
Всего: нет
Да нет, в службах указано, что работает. Я перезапустил, но непомогло. 
PM MAIL   Вверх
WinSer
Дата 16.6.2007, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 15.6.2007

Репутация: нет
Всего: нет
Код

winexec('net send 192.132.6.53 Привіт Сонце!!!',0);

Эта команда почемуто не хочет отправлять на WindowsXP сообщение. Под 2000 работает. Можно как то это исправить?  smile 
PM MAIL   Вверх
Sunvas
Дата 17.6.2007, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
WinSer, а при Пуск-Выполнить... это будет работать?


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Alexeis
Дата 17.6.2007, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(WinSer @  16.6.2007,  14:36 Найти цитируемый пост)
Эта команда почемуто не хочет отправлять на WindowsXP сообщение. Под 2000 работает. Можно как то это исправить?

  В 2000 служба отправки по дефолту включена, а в XP по дефолту выключена. Исправить можно только включив ее на всех компах.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0925 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.