3 respuestas en este tema

[sir.dev.a.lot]

[Truco Delphi] Alternativa a NET SEND.

delphi

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;
 
	function NetSend(Dest, msg: string): longint; overload;
	begin
	  Result := NetSend(Dest, '', msg);
	end;
 
	function NetSend(msg: string): longint; overload;
	begin
	  Result := NetSend('', '', msg);
	end;

Ejemplo de Uso:

delphi

NetSend('egostar','Hello World');

Saludos!

[egostar]

A mi siempre me han gustado estas llamadas al API y aquí tenemos a varios compañeros amantes del API

 

Saludos

[sir.dev.a.lot]

Hey, egostar.

 

Mas adelante, publicare algo con PIPEs y MailSlots.

 

estoy trabajando con un proyecto donde esto es muy util en un Red de Area Local para notificar sobre cambios cuando una Base de datos es actualizada, funciona como las Alertas en Firebird / Interbase.

 

Saludos!

[egostar]

Hey, egostar.

 

Mas adelante, publicare algo con PIPEs y MailSlots.

 

estoy trabajando con un proyecto donde esto es muy util en un Red de Area Local para notificar sobre cambios cuando una Base de datos es actualizada, funciona como las Alertas en Firebird / Interbase.

 

Saludos!

 

 

Me parece muy interesante, hasta ahora he usado los eventos de base de datos para actuar en consecuencia, ya espero tu publicación que será (estoy seguro) por demás ilustrativa.

 

Saludos