Net Send ohne Absender

[Luckie]

Also Hagens Funktion:

Delphi-Quellcode:

function NetMsgSend(const ServerName, MsgName, FromName, Msg: WideString): Integer;

  function WC(const Name: WideString): PWideChar;
  begin
    if Name = '' then Result := nil
      else Result := PWideChar(Name);
  end;

var
  NetLib: THandle;
  NetMessageBufferSend: function(ServerName, MsgName, FromName: PWideChar;
                           Buffer: PWideChar; BufferLen: DWord): Integer; stdcall;
begin
  Result := -1;
  NetLib := LoadLibrary('NETAPI32.DLL');
  if NetLib <> 0 then
  try
    @NetMessageBufferSend := GetProcAddress(NetLib, 'NetMessageBufferSend');
    if Assigned(NetMessageBufferSend) then
      Result := NetMessageBufferSend(WC(ServerName), WC(MsgName), WC(FromName),
                  Pointer(Msg), Length(Msg) * 2);
  finally
    FreeLibrary(NetLib);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  NetMsgSend('', 'hal9000', '', 'hallo');
end;

Funktioniert nei mir nur so. Sobald ich einen Absender eintrage oder den Empfänger als IP geht es nicht mehr.

Gebe ich den Empfänger asl IP an oder geben einen anderen Absender an bekomme ich diese fehlermeldung:

Zitat von Projekt1:

---------------------------
Project1
---------------------------
Der Nachrichtenalias konnte auf dem Netzwerk nicht gefunden werden
---------------------------
OK
---------------------------

Und wenn ich als Empfänger ein "*" angebe bekomme ich:

Zitat von Projekt1:

---------------------------
Project1
---------------------------
Falscher Parameter
---------------------------
OK
---------------------------