Скачать: CL | DM;

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

← →
Story_   (2002-04-18 00:37) [0]

Помогите пожалуйста !!
Дайте пример или хотя бы название апи функции, с помощью которой можно посылать сообщения с комсервера на все машины в локальной сети. Заранее большое спасибо !

---

← →
Song ©   (2002-04-18 08:21) [1]

NetMessageSend() ?

---

← →
Romul ©   (2002-04-18 14:20) [2]

Попробуй...
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c