SEND MESSAGE

Commentaire de yvemoreau le 26/12/2003 21:01:35

bonjour Delphiprog,
comme ceci ...

procedure TForm1.FormCreate(Sender: TObject);
begin
  UserMessage := RegisterWindowMessage('WM_COPYDATA');
end;

oui ça doit-être plus correct ainsi pour windows,je
ne savais pas .
appelons les choses par leur nom !!!
UInt étant un cardinal qui a surement une importance au niveau du système

la function
SendMessage(FindWindow('TForm1','Recoi un message'),
                        UserMessage,
                        commande,
                        caractere);
enverra le message au destinataire (note fiche principale seulement ,si on veut plus faudra que la fiche principale transfert vers les autres fiches,ce qui n'est pas un problème...)que notre fiche soit
minimiser ou non ,or je n'y avais pas songé ,en modifiant les borderStyle on pourra constater que le process fonctionne tant que l'application est démarrer !!!

Même si le principe demeure simple ,nous pouvons élaborer un système un peu plus sécuritaire de transmission pour s'assurer du débute et de la fin des envois (un genre de bit start,stop ,ceux qui utilise les ports I/O me comprendront).code 1 rendre disponible la communication ,2 début transmission ,3 réinitailisation de variable ...

Il n'y a pas de convention à ce que je sache ,pour les params que l'on envoi ,mais comme nous disposons de 2 integer ,ça nous laisse beaucoup ,beaucoup de liberté !!!
yve