Discussion :

[Gruick]

Bonjour a tous ,

je dois avec un prog en delphi réagir à des event lancés par un autre programme à travers windows...

Le probleme est que je n'arrive pas a trouver de documents car je ne connais pas le nom precis de la maniere de faire...

Je sais juste qu'apparement on passe par windows API,

Je sais que c'est pas clair, donc si vous pouviez m'aider a mettre un nom la dessus ca m'arrangerait....

Merci d'avance

[Reisubar]

Tout est pourtant sur MSDN :

http://msdn.microsoft.com/en-us/libr...96(VS.85).aspx

[Gruick]

Merci beacoup pour l'indication,

J'ai lu en plusieurs endroit des pages sur la notion de "hook" est-ce la meme chose ?

Ces fonctions sont directement utilisables dans delphi ?

[Reisubar]

J'ai lu en plusieurs endroit des pages sur la notion de "hook" est-ce la meme chose ?

Non. Un évènement est un objet de synchronisation local ou interprocessus, alors qu'un hook est un moyen de capturer des appels ou des messages à l'aide de fonctions filtres. Ca n'a donc rien à voir.

Ces fonctions sont directement utilisables dans delphi ?

Oui, en incluant Windows.pas. Il est aussi possible d'utiliser des objets Delphi qui encapsulent ces appels en incluant SyncObjs.pas ( sur TEvent, TMutex, etc.).

[remixtech]

Et tu ne chercherais pas à faire ça par hasard ?
En effet j'ai pas tout saisi...

http://jfdeterme.developpez.com/tuto...hi/messagesys/

[Gruick]

Effectivement c'est bien ca Reisubar,merci !

Par contre des que j'utilise un create sur unTEvent, j'ai une exception du genre : "Access violation at adress XXXX in module 'monPROJ.exe'. Write adresss 00000004"

Je l'utilise de la maniere suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure TForm1.FormCreate(Sender: TObject);
var
   EventAttributes: PSecurityAttributes;
begin
mEvent.Create(EventAttributes,false,false,'MOI_Incoming_Data');

sachant que les deux booleens ne doivent pas avoir d'incidence vu que ne fait que prendre la reference d'un event existant.
Cela pourrait-il venir de EventAttributes ?

remixTech : ce n'est pas de messages mais d'event dont je parle. Merci quand meme

[Reisubar]

EventAttributes doit être initialisé. Comme c'est un pointeur, et que ta variable est initialisée sur la pile, elle désigne une adresse invalide : son exploitation par le code de TEvent lève une erreur. Donc sois tu n'en as pas besoin et tu l'assignes à nil (voire tu utilises le constructeur sans ce paramètre s'il existe, je ne sais plus si Borland a daigné améliorer cette unité depuis 10 ans), ou tu l'exploites intentionnellement. Par exemple, le code suivant génère un attribut de sécurité qui rend l'objet global à tout le système :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  LSecurityAttributes: TSecurityAttributes;
  PSecurityDescriptor: PSECURITY_DESCRIPTOR;
begin
  PSecurityDescriptor := AllocMem(SECURITY_DESCRIPTOR_MIN_LENGTH);
  InitializeSecurityDescriptor(PSecurityDescriptor,
    SECURITY_DESCRIPTOR_REVISION);
  SetSecurityDescriptorDacl(PSecurityDescriptor, True, nil, False);
  LSecurityAttributes.nLength := SizeOf(LSecurityAttributes);
  LSecurityAttributes.lpSecurityDescriptor := PSecurityDescriptor;
  LSecurityAttributes.bInheritHandle := True;
  mEvent.Create(@LSecurityAttributes,false,false,'MOI_Incoming_Data');  
  ...
  FreeMem(PSecurityDescriptor);

[Gruick]

Bon en fait c'est tou simplement autre chose :

ce n,est pas mEvent.Create qu'il faut utiliser mais :

CreateEvent()......la, ca ne plante plus que l'on mette nil ou qq chose d'instancie, plus aucun probleme d'ecriture....

mais pour l'instant je n'arrive pas a faire mon programme vu que quand je fait un waitforsingleobject il va jusqu'a la fin du timeout, il n'a pas l'air de 'voir' l'event (SI l'event est bien lance)....

Est-ce normal que delphi m'indique que la valeur retourne est un cardinal alors que le MSDN me dit que c'est un HANDLE ?

Ils indiquent d'utiliser la fonction GetError juste apres pour voir si on a bien l'event en question.... mais ils donnent juste la valeur ERROR_ALREADY_EXISTS,
comment je peux savoir quelle valeur c'est exactement puisque ca n'a pas l'air d'etre dans le MSDN ?

[Reisubar]

CreateEvent()......la, ca ne plante plus que l'on mette nil ou qq chose d'instancie, plus aucun probleme d'ecriture....

Non. CreateEvent est similaire à TEvent.Create, s'il est manipulé correctement.

mais pour l'instant je n'arrive pas a faire mon programme vu que quand je fait un waitforsingleobject il va jusqu'a la fin du timeout, il n'a pas l'air de 'voir' l'event (SI l'event est bien lance)....

Un évènement doit-être signalé pour "casser" WaitForSingleObjet. Est-ce le cas ?

Est-ce normal que delphi m'indique que la valeur retourne est un cardinal alors que le MSDN me dit que c'est un HANDLE ?

Oui, les deux correspondent à un type 32 bits non signé.

Ils indiquent d'utiliser la fonction GetError juste apres pour voir si on a bien l'event en question

Après quel appel d'API ?

[Gruick]

Un évènement doit-être signalé pour "casser" WaitForSingleObjet. Est-ce le cas ?

J'avais bien mis un SI dans la phrase et apres quelques ajustements (Reset manuel) ca marche !

GetError ils indiquent du l'utiliser apres un SetEvent ou PulseEvent...

Merci beacoup Reisubar pour ton aide