Сообщение по сети

← →
samson (2002-07-22 19:20) [0]

Как послать сообщение по локальной сети , что-бы
на другом компьютере высветилось диалоговое окно с
этим сообщением ? И можно ли программно выявить IP-адреса
других компьютеров ?

← →
ZZ (2002-07-23 06:20) [1]

1. NetMessageBufferSend (NT/2000)

← →
goliaph (2002-07-23 20:19) [2]

> ZZ © (23.07.02 06:20)
> 1. NetMessageBufferSend (NT/2000)

А какие параметры у етой функции?
И каой модуль подключать если надо?

← →
Kirill_ (2002-07-24 00:21) [3]

procedure TForm1.Button5Click(Sender: TObject);
Var
HostName: PWideChar;
RName: PWideChar;
buf: Pointer;
text: String;
size: Cardinal;
begin
HostName := nil; //local host name
RName := "ORION"; //remote host name
text := "Testing lan messenger"; //text of message

size := SizeOf (WideChar) * Length (text)+1;
GetMem (buf, Size);
PWideChar (Buf) := StringToWideChar (text, buf, Length (text) + 1);
If NetMessageBufferSend (HostName, RName, Nil, buf, size) <> NO_ERROR
then ShowMessage ("Error");
end;

← →
Kirill_ (2002-07-24 00:25) [4]

дополнение - функция берется из netapi32.dll
в NT работает точно, а в Win9x есть программка Winpopup

← →
goliaph (2002-07-24 17:24) [5]

> Kirill_ © (24.07.02 00:21)

Я исппользовал ету процедуру, но на NetMessageBufferSend
сообщение:Undeclared identifer:"NetMessageBufferSend " ,тоисть неизвестный ыдентификатор NetMessageBufferSend. Как его описать или какой модуль подключить?

← →
ZZ (2002-07-24 17:35) [6]

http://delphi.xonix.ru/faq/?m=lan&n=2

← →
goliaph (2002-07-24 18:33) [7]

> ZZ © (24.07.02 17:35)
> http://delphi.xonix.ru/faq/?m=lan&n=2

Всетаки я немогу понять описание функции,
вернее где и как ее описать в моей проге.
И где записываеться stdcall; external "netapi32.dll";

← →
ZZ (2002-07-24 20:25) [8]

Смотрим пример.
Находим строчку Implementation в примере
Находим строчку Implementation в твоем исходнике
Все, что в примере выше Implementation вставляем выше Implementation в исходнике
Это и будет недостающее описание функции.

Если ОЧЕНЬ нужны эти описания всех Net функций - ищи на http://www.delphi-jedi.org

← →
KIRILL_2 (2002-07-27 00:52) [9]

WinExec(Pchar("Net send "+"(ИМЯ КОМПА ПОЛУЧАТЕЛЯ)"+" "+"(ТЕКСТ СООБЩЕНИЯ)"),SW_HIDE);

← →
KIRILL_2 (2002-07-27 00:57) [10]

Здесь исходник-пример для WinNT : http://www.linder.hpg.com.br/arqs/Mensagem.zip

← →
Vagrant (2002-07-29 02:51) [11]

У меня тоже возник вопросик по NetMessageBufferSend. С ее помощью я без проблем отправляю сообщение на другой комп, а вот как эту функцию заставить послать сообщение некоторому домену сети (как это делает NET SEND /DOMAIN: HOME)?

Сообщение по сети Найти похожие ветки