Re: net send API

From

Vyacheslav Shubin ()

To

Vasily Titsky ()

Date

2001-10-21T17:50:13Z

Area

SU.WINDOWS.NT.PROG

From: "Vyacheslav Shubin" <shubin@krista.ru>


Нарезка из реально работающей программы. (Только WNT)

type
  TNetMessageBufferSend = function(servername,msgname,fromname,buf :
pointer;buflen : dword): integer;stdcall;

var
  SendProc : TNetMessageBufferSend;

  hLib := LoadLibrary('NetApi32.Dll');
  if hLib > 32 then begin
    SendProc := GetProcAddress(
      hLib, 'NetMessageBufferSend');

  sz := GlobalSize(Msg1);
  if SendProc(nil,GlobalLock(MsgTo),GlobalLock(MsgFrom),GlobalLock(Msg1),sz)
<> 0 then

Надеюсь все понятно :)
Удачи. Вчеслав Шубин.


"Vasily Titsky" <winner@tsure.ru> сообщил/сообщила в новостях следующее:
news:1003578014.413760@main.tsure.ru...
> Hello, All!
>
>   Народ! Требуется реализовать функциональность net send из программы.
> Подскажите, в какую сторону копать. Приветсвуются исходники, примеры,
> компоненты.
>
> --
>
>           С уважением, Василий.
>

--- ifmail v.2.15dev5
 * Origin: Krista NPO (2:5020/400)