Net Send ohne Absender

[Duffy]

Hallo Hagen,
stammt aus einer alten Sammlung ... funktioniert aber im Gegesatz zu der anderen Funktion auch mit Auflösung des IP-Adresse.
bye

[Duffy]

Hallo Hagen,
bins nochmal. Hast Du die Funktion auch so getestet?
bye

[negaH]

:) jo hab ich, scheinst aber über die kleine Falle für Copy&Paste Programmierer gestolpert zu sein ;)

Delphi-Quellcode:

var
  NetLib: THandle;
  NetMessageBufferSend: function(ServerName, MsgName, FromName: PWideChar;
                           Buffer: PWideChar; BufferLen: DWord): Integer; stdcall;

ist richtig.

Gruß Hagen

[negaH]

Zitat:

funktioniert aber im Gegesatz zu der anderen Funktion auch mit Auflösung des IP-Adresse.

Das verstehe ich nicht, welche andere Funktion ?
Deine NetSend() funktion sollte fast die gleichen Features ermöglichen wie meine NetSendMsg() function.

Der Unterschied ist das bei meiner Funktion jeder Parameter wahlweise leer=nil='' oder eben gefüllt sein kann. Will man also keinen Absender benutzen muß man NetMsgSend('', '*', '', 'Message'); benutzen.

Gruß Hagen

[Duffy]

Hallo Hagen,
den meinte ich ..

Zitat:

Zitat von sakura

Also das ist doch ganz einfach... Du startest ein neues Delphi-Projekt, kopierst den Code aus folgendem Thread hinein: http://www.delphipraxis.net/internal...ect.php?t=7078

und dann rufst Du die Funktion einfach auf:

Delphi-Quellcode:

  NetMessageBufferSendSubstA('Empfaenger-PC', 'Ist eh egal', 'DerAbsender', 'Die Nachricht');

...:cat:...

bye

[Duffy]

Hallo Hagen,
habe den Code getestet. Dein Code ist schön kompakt. Ich liebe es wenn Code kurz und prägnant ist. :thuimb:
bye

[negaH]

Ich bin mir auch nicht so sicher ob Sakuras Code absolut gleichwertig mit NetMessageBufferSend() ist.

Gruß Hagen

[H4ndy]

Hmm bei mir funzt der Code nicht von Hagen...
Es kommt einfach keine Nachricht an.

Kann jemand mal ein Codebeispiel posten?

[Duffy]

Hallo H4ndy

Code:

NetMsgSend('', '192.168.1.2', '', 'Bingo 1 ...');

Der Empfänger der Nachricht muß gültig sein.
bye

[negaH]

Delphi-Quellcode:

NetMsgSend('', '*', '', 'Bingo 1 ...');

Sollte im LAN auch gehen. Falls denoch keine Nachrichten ankommen, dann liegt das nicht am Code von mir. Überprüfe deine Firewall und ob der Windows Messanger Service aktiv ist.

Bei mir kommen auch keine Nachrichten an weil
1.) die FireWall es absichtlich blockt
2.) der Windows Messagner Dienst manuell deaktiviert wurde

Gruß hagen