VPF::Отправка сообщения или всплывающего окна

phenix83

Дата 9.10.2013, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 2.5.2012
Где: Украина

Репутация: нет
Всего: нет

Добрый день ув. форумчане. Нужна ваша помощь!!!! Имеется программа написана на Delphi 7 с применением базы данных Oracle. Стоит задача после определенных действий пользователя, необходимо чтоб у конкретного пользователя появлялось сообщение или всплывающее окно с текстом. Проблема в том что сама программа может не запущенна. Сообщения только по локальной сети и плюс используется Novell.
Устанавливать другие программы на машины пользователей не вариант.
1. Пользователь в программе согласовывает заявку(проставляет акцепт).
2. После того как он поставил галочку программа должна на компьютер другого пользователя отправить сообщение или вызвать всплывающее окно с текстом.
Спасибо всем за советы.

CynicRus

Дата 9.10.2013, 12:30 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: 1
Всего: 5

Если под Windows, то с помощью NetSend:

Код


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;

А вот под Novell, если мне память не изменяет там IPX протокол, незнаю насчёт внутренних механизмов, но думается мне что нужно писать свой велосипед на местных сокетах.

phenix83

Дата 9.10.2013, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 2.5.2012
Где: Украина

Репутация: нет
Всего: нет

Цитата(CynicRus @ 9.10.2013, 10:30)

Если под Windows, то с помощью NetSend:

Код


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;

большое спасибо попробую

phenix83

Дата 9.10.2013, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 2.5.2012
Где: Украина

Репутация: нет
Всего: нет

Цитата(CynicRus @ 9.10.2013, 10:30)

Если под Windows, то с помощью NetSend:

Код


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;

Подскажите пожалуйста как правильно вызвать функцию, делаю так не работает
NetSend('HELLOWORK', 'Kacilo-ws');

Poseidon

Дата 9.10.2013, 14:56 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Цитата(CynicRus @ 9.10.2013, 12:30

)

Если под Windows, то с помощью NetSend:

По умолчанию NetSend уже лет 10 как отключен из-за распространяемого в то время спама. Нужно не забыть включить эту службу у пользователей (даже и не знаю точно, не отказались ли от нее в последних версиях Windows).

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »