Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как отправить сообщение по имени кмпьютера?

Автор: MakNik 12.5.2010, 13:26

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

Автор: Данкинг 12.5.2010, 14:56

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

Автор: MakNik 12.5.2010, 16:03

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

Код


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 (руками подставляю) - все работает, по имени компа - не для всех срабатывает...
Возможно проблема в том, что компы в разных доменах...

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

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

Автор: MakNik 14.5.2010, 15:58

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

Автор: labvictx 1.10.2010, 22:59

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

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

Автор: Akella 2.10.2010, 10:04

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