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:

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? :gruebel:

[Xipe]

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

[Luckie]

Zitat:

Zitat von Xipe

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

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

[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 :roll:) ist eine Funktion in einer Funktion.

[Xipe]

die function von mir da oben is it von mir :roll:

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?