Net send mit Delphi

[xpmstos]

danke für den hinweis, habs jetzt gelesen...

gruß xpmstos

[Duffy]

Hallo hummer,
nachfolgender Link wäre auch eine nette Lösung des Problems "net send implementieren"
bye

[joe666sa]

Und wo ist in dem Source der Absender?

[Duffy]

Hallo joe666sa,
versuchs es doch mal herauszufinden
bye

[BungeeBug]

Hi,
wie wärs denn da mit ?

Delphi-Quellcode:

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;

MfG BungeeBug

P.S.: Wehe das gibt nen Bomber ....

[joe666sa]

Ich kapiers immer noch nicht wo der absender ist und wie das funzt. Kann mir das bitte einer erklären.

[CalganX]

Der Absender wird automatisch durch Windows vergeben. Der Absendername ist automatisch der Rechnername (Wie beim einfachen net send)!

Chris

[Luckie]

Man kann aber auch einen beliebigen mit geben, siehe mein NetSend auf meiner Homepage.