| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как послать Message админу в виде всплывающего окна??? [D6]

Zemal ©   (2003-01-08 13:02:00) 

В общем в сабж всё сказано. Нужны API функции посылки сообщения на конкретную машину, так как это делает сервер при переходе на аварийное питание. В общем нужно чтоб мой сервис сообщал об ошибке админу, безо всяких серверов на клиенте. Помогите, плиз! Заранее благодарен!

---

Zemal   (2003-01-08 15:47:00) [1]

Спасибо большое... кажется уже светлеет :). Только что-то у меня нифига сообщения непроходят :(...
Код ошибки: RPC_X_NULL_REF_POINTER = 1780;
Что бы это значило? Может что с сеткой нетак?

---

bak   (2003-01-08 14:00:00) [2]

Вот. Выдрал из проги. Лови.

Function NetMessageBufferSend
(
servername: LPCWSTR;
msgname: LPCWSTR;
fromname: LPCWSTR;
buf: Pointer;
buflen: DWORD
): longint; stdcall; external "netapi32.dll";

Procedure SendLanMessage(Host, CompName, Msg: string);
Var
HostName: PWideChar;
RName: LPCWSTR;
buf: Pointer;
text: String;
size: Integer;
Begin
HostName := StringToOleStr(Host);
RName := StringToOleStr(CompName);
text := Msg;

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 sending message :(");
End;

---

Verg   (2003-01-08 13:53:00) [3]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netmgmt/netmgmt/netmessagebuffersend.asp

---

Zemal   (2003-01-08 13:53:00) [4]

Пробовал уже везде искать... :( нифига :(... и в Делфи эта функция не инкапсулирована :(

---

bak   (2003-01-08 13:49:00) [5]

я попробую конечно порыться, но и в SDK можны подглядети ;)

---

Zemal   (2003-01-08 13:47:00) [6]

Эт конечно хорошо и спасибо! Но я незнаю синтаксиса этой функции, т.к. MSDN нет :(. Нельзя ли кусок из MSDN с описанием бросить? Плиз!

---

bak   (2003-01-08 13:39:00) [7]

NetMessageBufferSend ???

---

Наверх