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

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

[?]NET SEND [D7, WinXP]

Юрий Ж. ©   (2006-01-22 14:21:00) 

Нашел в нете функцию отправки сообщений по NET SEND, но она почему-то не работает...Кто может что-то подсказать???

function NetSend(Dest, Source, Msg: string): Longint; overload;
type
 TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar;
   buf: PWideChar; buflen: Cardinal): Longint; stdcall;
var
 NetMessageBufferSend: TNetMessageBufferSendFunction;
 SourceWideChar: PWideChar;
 DestWideChar: PWideChar;
 MessagetextWideChar: PWideChar;
 Handle: THandle;
begin
 Handle := LoadLibrary('NETAPI32.DLL');
 if Handle = 0 then
 begin
   Result := GetLastError;
   Exit;
 end;
   @NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
 if @NetMessageBufferSend = nil then
 begin
   Result := GetLastError;
   Exit;
 end;

 MessagetextWideChar := nil;
 SourceWideChar      := nil;
 DestWideChar        := nil;

 try
   GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
   GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);
   StringToWideChar(Msg, MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
   StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);

   if Source = '' then
     Result := NetMessageBufferSend(nil, DestWideChar, nil,
       MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1)
   else
   begin
     GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);
     StringToWideChar(Source, SourceWideChar, 20 * SizeOf(WideChar) + 1);
     Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,
       MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
     FreeMem(SourceWideChar);
   end;
 finally
   FreeMem(MessagetextWideChar);
   FreeLibrary(Handle);
 end;
end;

---

Rouse_   (2006-01-23 11:56:00) [1]

попробуй сначала через Net Send, а потом как пройдет, этоже имя впиши к себе...

---

Fay   (2006-01-23 11:12:00) [2]

2 Юрий Ж.   (23.01.06 10:44) [7]
> Как правильно получить имя компьютера???
Какого?

---

Fay   (2006-01-23 11:11:00) [3]

2 Юрий Ж.   (23.01.06 10:44) [7]
>  в Delphi тогда '\' или я не прав???
Не прав.

---

Юрий Ж.   (2006-01-23 10:44:00) [4]

Теперь выдает:
The filename, directory name, or volume label syntax is incorrect.
Пишу имя своего компьютера (так как пишется в удаленном доступе и как я настраивал в настройках подключения...)
> Windows NT:  This string must begin with \\.- это в C++??? А в Delphi тогда '\' или я не прав??? Эксперементировал с обоими - результат обин и тот-же :(

Как правильно получить имя компьютера???

---

Rouse_   (2006-01-23 09:30:00) [5]

> Как отправить сообщение всей рабочей группе???

Ставь звездочку вместо иени пользователя.
А пользователю не отправляет, потомучто не правильно пишешь его имя:
servername
[in] Pointer to a constant string that specifies the DNS or NetBIOS name of the remote server on which the function is to execute. If this parameter is NULL, the local computer is used.
Windows NT:  This string must begin with \\.

---

Юрий Ж.   (2006-01-22 23:18:00) [6]

А может нужно получать какие-то права???
>> WinExec('net send CompName Message');- это будет на крайний случай =)

---

Wistler   (2006-01-22 22:31:00) [7]

Я делал проще:

WinExec('net send CompName Message');

---

Юрий Ж.   (2006-01-22 19:07:00) [8]

Эта функция также не работате :(
Возможно это связвно с тем, что операционка WinXP?
Возвращает результат 2273 - это вроде "Имя пользователя не можут быть найдено"....
И еще вотпрос:
Как отправить сообщение всей рабочей группе???
Вместь AToComputer писать имя рабочей группы???

---

Lamer@fools.ua   (2006-01-22 18:26:00) [9]

function NetSend(const AMessage, AToComputer: AnsiString): LongWord;
type
 TNetMessageBufferSend = function (ServerName, ToName, FromName: PWideChar;
 Buffer: Pointer; BufLen: DWORD): LongWord stdcall;
var
 NetApi32: HMODULE;
 NetMessageBufferSend: TNetMessageBufferSend;
 MessageW, ToComputerW: WideString;
begin
 Windows.SetLastError(NO_ERROR);
 NetApi32 := LoadLibrary('NetApi32.dll');
 if NetApi32 <= HINSTANCE_ERROR then
 begin
   Result := Windows.GetLastError;
   Exit;
 end;
 try
   NetMessageBufferSend := GetProcAddress(NetApi32, 'NetMessageBufferSend');
   if @NetMessageBufferSend = nil then
   begin
     Result := ERROR_INVALID_FUNCTION;
     Exit;
   end;
   MessageW := WideString(AMessage);
   ToComputerW := WideString(AToComputer);
   Result := NetMessageBufferSend(nil, PWideChar(ToComputerW), nil,
     PWideChar(MessageW), Length(MessageW) * SizeOf(WideChar));
 finally
   FreeLibrary(NetApi32);
 end;
end;


---

Lamer@fools.ua   (2006-01-22 18:24:00) [10]

с какого потолка взято число 20?

---

Наверх