VPF::Как отправить сообщение по имени кмпьютера?

MakNik

Дата 12.5.2010, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Подскажите, пожалуйста, как отправить сообщение пользователю, если известно только имя компьютера в формате: ДОМЕН\ИМЯ_КОМПА?

Данкинг

Дата 12.5.2010, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

В смысле, сообщение - через Net Send ?

--------------------

There's nothing left but silent epitaphs.

MakNik

Дата 12.5.2010, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Вот, нашел такой пример, пытаюсь с ним разобраться:

Код


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;

когда отправляю по IP (руками подставляю) - все работает, по имени компа - не для всех срабатывает...
Возможно проблема в том, что компы в разных доменах...

Проблема в том, что есть только имена компов и домены в формате: ДОМЕН\ИМЯ_КОМПА

Подскажите, как решить проблему?

Это сообщение отредактировал(а) bems - 2.10.2010, 15:47

MakNik

Дата 14.5.2010, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Возникла другая проблема:
Отправляю сообщения используя выше упомянутый пример, по имени пользователя и все работает. Но когда в сети залогинено несколько одинаковых пользователей - сообщение получает только один. Подскажите, плз., как заставить передавать сообщение сразу всем одинаковым пользователям?

labvictx

Дата 1.10.2010, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

смотри "http://files.codes-sources.com/fichier.aspx?id=34749&f=main.pas&lang=en"
тут реализован пример раюочий.

Плиз парни, дайте пример на оборот, на получение сообщения приходящие по локальной сети на мой комп, плиз!

Akella

Дата 2.10.2010, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 36
Всего: 329

Значит не используйте net send, используйте свой способ, например, через компоненты TCP в Delphi

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »