Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сообщение по сети [D5, Win95/98, NT4, Win2k]

samson © (2002-07-22 19:20:00)
Как послать сообщение по локальной сети , что-бы
на другом компьютере высветилось диалоговое окно с
этим сообщением ? И можно ли программно выявить IP-адреса
других компьютеров ?

Vagrant (2002-07-29 02:51:00) [1]
У меня тоже возник вопросик по NetMessageBufferSend. С ее помощью я без проблем отправляю сообщение на другой комп, а вот как эту функцию заставить послать сообщение некоторому домену сети (как это делает NET SEND /DOMAIN: HOME)?

KIRILL_2 (2002-07-27 00:57:00) [2]
Здесь исходник-пример для WinNT : http://www.linder.hpg.com.br/arqs/Mensagem.zip

KIRILL_2 (2002-07-27 00:52:00) [3]
WinExec(Pchar("Net send "+"(ИМЯ КОМПА ПОЛУЧАТЕЛЯ)"+" "+"(ТЕКСТ СООБЩЕНИЯ)"),SW_HIDE);

ZZ (2002-07-24 20:25:00) [4]
Смотрим пример.
Находим строчку Implementation в примере
Находим строчку Implementation в твоем исходнике
Все, что в примере выше Implementation вставляем выше Implementation в исходнике
Это и будет недостающее описание функции.

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

goliaph (2002-07-24 18:33:00) [5]
> ZZ © (24.07.02 17:35)
> http://delphi.xonix.ru/faq/?m=lan&n=2

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

ZZ (2002-07-24 17:35:00) [6]
http://delphi.xonix.ru/faq/?m=lan&n=2

goliaph (2002-07-24 17:24:00) [7]

> Kirill_ © (24.07.02 00:21)

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

Kirill_ (2002-07-24 00:25:00) [8]
дополнение - функция берется из netapi32.dll
в NT работает точно, а в Win9x есть программка Winpopup

Kirill_ (2002-07-24 00:21:00) [9]
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;

goliaph (2002-07-23 20:19:00) [10]
> ZZ © (23.07.02 06:20)
> 1. NetMessageBufferSend (NT/2000)

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

ZZ (2002-07-23 06:20:00) [11]
1. NetMessageBufferSend (NT/2000)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »