Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 417

•  TDictionary Custom Sort  5 633

•  Fast Watermark Sources  5 397

•  3D Designer  7 837

•  Sik Screen Capture  5 693

•  Patch Maker  6 180

•  Айболит (remote control)  6 190

•  ListBox Drag & Drop  5 063

•  Доска для игры Реверси  94 064

•  Графические эффекты  6 358

•  Рисование по маске  5 407

•  Перетаскивание изображений  4 574

•  Canvas Drawing  4 954

•  Рисование Луны  4 690

•  Поворот изображения  4 238

•  Рисование стержней  2 984

•  Paint on Shape  2 217

•  Генератор кроссвордов  3 067

•  Головоломка Paletto  2 410

•  Теорема Монжа об окружностях  3 188

•  Пазл Numbrix  2 092

•  Заборы и коммивояжеры  2 738

•  Игра HIP  1 715

•  Игра Go (Го)  1 632

•  Симулятор лифта  1 953

•  Программа укладки плитки  1 685

•  Генератор лабиринта  2 121

•  Проверка числового ввода  1 809

•  HEX View  2 070

•  Физический маятник  1 808

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Отправляет сообщение по локальной сети (как команда Net Send)



Автор: Num Lock

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Отправляет сообщение по локальной сети (как команда Net Send)

function NetSend(const sTo, sMessage: string): Boolean;
- Отправляет сообщение по локальной сети (делает тоже что и Net Send)
sTo - Кому (Имя пользователя, рабочей группы или компьютера).
Можно использовать '*', чтобы отправить всем.
sMessage - Text сообщения.

Зависимости: Windows, ActiweX
Автор:       Num Lock
Copyright:   Num Lock
Дата:        13 марта 2003 г.
***************************************************** }

function NetSend(const sTo, sMessage: string): Boolean;
type
  PNetMessageBufferSend = ^TNetMessageBufferSend;
  TNetMessageBufferSend = function(
    servername: PWideChar;
    msgname: PWideChar;
    fromname: PWideChar;
    buf: PBYTE;
    buflen: DWORD
    ): Integer; stdcall;
var
  wMessage, wTo: PWideChar;
  i, hLib: Integer;
  NetMessageBufferSend: TNetMessageBufferSend;
begin
  Result := False;
  hLib := LoadLibrary('NetApi32.dll');
  if hlib > 0 then
  try
    @NetMessageBufferSend := GetProcAddress(hLib, 'NetMessageBufferSend');
    if @NetMessageBufferSend <> nil then
    begin
      wMessage := CoTaskMemAlloc((Length(sMessage) + 1) * sizeof(WideChar));
      try
        wTo := CoTaskMemAlloc((Length(sTo) + 1) * sizeof(WideChar));
        try
          StringToWideChar(sMessage, wMessage, Length(sMessage) + 1);
          StringToWideChar(sTo, wTo, Length(sTo) + 1);
          i := NetMessageBufferSend(nil, wTo, nil, PBYTE(wMessage),
            (Length(sMessage) + 1) * sizeof(WideChar));
          Result := i = ERROR_SUCCESS;
          if not Result then
            MessageBox(GetForegroundWindow, 'Сообщение не отправлено.', nil,
              $1010);
        finally
          CoTaskMemFree(wTo);
        end;
      finally
        CoTaskMemFree(wMessage);
      end;
    end
    else
      MessageBox(GetForegroundWindow,
        'Функция NetMessageBufferSend не обнаружена.', nil, $1010);
  finally
    FreeLibrary(hLib);
  end
  else
    MessageBox(GetForegroundWindow, 'NetApi32.dll не загружена.', nil, $1010);
end;

Пример использования:

procedure TForm1.NetSendBtnClick(Sender: PObj);
begin
  if NetSend(combobox1.Text, Memo1.Text) then
  begin
    Memo1.Clear;
    MessageBox(Form.Handle, 'Отправка сообщения.', 'Сообщение отправлено',
      MB_ICONINFORMATION);
  end;
end;




Похожие по теме исходники

Учет посетителей интернет-салона

Автонастройщик сети

Передача видео по сети

Передача удаленного экрана по сети (Remote Screen)

 

Benchmark LineTo

Net Send

Enum Net Interfaces

Чат I Net

 

Netstat

Internet Walker (браузер)

Net Module

NetView 2.3

 

Telnet Chat

Send UDP

DeNiAll Send SMS for Beeline

Windows API (SendMessage)

 



Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте