NET SEND ANONYME VIA LES MAILSLOTS
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
-
20 avril 2006 à 17:06
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 15 oct. 2008 à 17:28
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 15 oct. 2008 à 17:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37153-net-send-anonyme-via-les-mailslots
https://codes-sources.commentcamarche.net/source/37153-net-send-anonyme-via-les-mailslots
15 oct. 2008 à 17:28
je suis passé en debug et rien ne laisse penser que ça l'envoie 2 fois ..
help ?
15 nov. 2007 à 20:12
9 nov. 2007 à 20:33
T'as plus qu'à copier ma fonction dans ton programme (ne pas oublier le Uses Windows) et l'appeler.
Emetteur: Tu mets ce que tu veux on s'en fou..
Destinataire: Nom de la machine à laquelle tu veux poster le message
LeMessage : Le message que tu veux envoyer...
Finger in The Noze !
9 nov. 2007 à 20:01
Mais euh le paraméttre destinataire, ce n'est pas plutot le nom de la machine plutot ?
9 nov. 2007 à 19:34
Déja tu sais ce que c'est un net send ?
8 nov. 2007 à 14:24
Si vous pouviez m'éclairer ...
Merci
23 avril 2006 à 10:05
21 avril 2006 à 12:33
De même pour la fonction API MessageBoxA(), je caste les arguments avec des PChar, alors qu'il n'est pas necessaire de le faire avec des chaines constantes.
Mais merci pour toutes ses précisions ;-)
21 avril 2006 à 11:10
on peu donc en toute logique ecrire :
CreateFile( '\\' + Destinataire + '\MAILSLOT\MESSNGR', {est convertie directement en PAnsiChar}
GENERIC_WRITE, FILE_SHARE_READ, nil,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 );
c'est comme les Array of char qu'on peut assigner ou transmettre directement aux strings :
var
S : string;
const
C1 : array[0..5] of char = '012345';
begin
S := C1;
end;
21 avril 2006 à 09:59
Je fais la modif, et je repost !
20 avril 2006 à 17:06
function SendMessage(const Emetteur, Destinataire, LeMessage : string) : Boolean;
var
HWNDSlot : THandle;
Buffer : String;
lpNumberOfBytesWritten : Cardinal;
begin
result := false;
lpNumberOfBytesWritten := 0;
HWNDSlot := CreateFile( PChar('\\' + Destinataire + '\MAILSLOT\MESSNGR'),
GENERIC_WRITE, FILE_SHARE_READ, nil,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 );
Buffer := Emetteur + #0 + Destinataire + #0 + LeMessage + #0;
try
result := (HWNDSlot <> INVALID_HANDLE_VALUE);
if result then
result := WriteFile( HWNDSlot, PChar(Buffer)^, Length(Buffer),
lpNumberOfBytesWritten, nil );
finally
CloseHandle( HWNDSlot );
end;
n'oublis pas que le compilateur convertis automatiquement les LongBool ou WordBool en Boolean.
car dans un LongBool, False = Null, donc dés qu'un Bool n'est pas Null c'est qu'il est a True.