NetSend mit empfangs bestätigung ?

[Xipe]

Hi !

mit folgendem code sende ich netsend nachrichten:

Code:

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;

ist es mit diesem code irgendwie möglich ne meldung zu erhalten, ob der empfänger die Nachricht erhalten hat, bzw ob er online is oder so?

danke vielmals fürs reinschauen !

[Luckie]

Mit meiner Klasse für NetSend (TNetSend) erhältst du einen Fehlercode von GetLastError zurück, den du auswerten kannst.

[Xipe]

Zitat von Luckie:

Mit meiner Klasse für NetSend (TNetSend) erhältst du einen Fehlercode von GetLastError zurück, den du auswerten kannst.

aber ich raff deine Klasse ehrlich gesagt nicht.......*schäm*

deshalb hab ich ja auch extra diese Variante genommen......gibts keinen anderen weg?

Gruß Xipe

[Luckie]

Was gibt es da nicht zu raffen?

[Xipe]

bei mir bringt er mir 100000 fehler.....

[Luckie]

Zitat von Xipe:

bei mir bringt er mir 100000 fehler.....

Tja. Und jetzt? Wenn du sie mir nicht nennst kann ich dir kaum helfen.

[glunzl]

Moin!
Zum ersten Posting habe ich mal eine Frage.

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;

Wieso steht denn dort 2 mal untereinander "function" und nicht

Delphi-Quellcode:

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

function WC(const Name: WideString): PWideChar;
  begin
    ...
  end ;

oder kann man mit dem Gebilde einer Funktion (Codestück) 2 Aufrufmöglichkeiten verpassen?

Gruss
glunzl

[MathiasSimmack]

Die Funktion "WC" (toller Name, btw ) ist eine Funktion in einer Funktion.

[Xipe]

die function von mir da oben is it von mir

bin halt noch it so erfahren in Sachen Delphi. Ich frage mich sowieso, wie man so ne procedure "von hand" programmieren kann ! bin LEIDER noch en bisserl en copy&pase programmierer......

wisst ihr, wie man auf solche procedures kommt, ohne irgendwo nachzuschlagen?