| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
посылка сообщения [D5, D6, NT4, WinXP]
Story_ © (2002-04-18 00:37:00)Помогите пожалуйста !!
Дайте пример или хотя бы название апи функции, с помощью которой можно посылать сообщения с комсервера на все машины в локальной сети. Заранее большое спасибо !
Romul (2002-04-18 14:20:00) [1]Попробуй...
Function NetMessageBufferSend (
servername: LPCWSTR;
msgname: LPCWSTR;
fromname: LPCWSTR;
buf: Pointer;
buflen: DWORD
): longint; stdcall; external "netapi32.dll";
Implementation
// процедура посылки сообщения
Procedure SendLanMessage;
Var
HostName: LPCWSTR;
RName: LPCWSTR;
buf: Pointer;
text: String;
size: Integer;
Begin
HostName := Nil;
RName := "User";
text := "Тестик";
// Перевод String в WideString
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
//HostName-имя компа с которого посылаешь
//RName-имя компа которому посылаешь
then ShowMessage ("Error");
End;
Song (2002-04-18 08:21:00) [2]NetMessageSend() ?
| |
