Delphipage

Présentation

DDE (Dynamic Data Exchange) est un protocole qui permet à deux applications (au minimum) chargées en mémoire de communiquer entre elles. Une application DDE est composé d'un serveur DDE et de un ou plusieurs clients.

Il existe deux types de communications DDE :
- COLD LINK
- WARM LINK

Le terme COLD LINK signifie que le client fait une demande au serveur pour obtenir des données.
Le terme WARM LINK signifie que le serveur averti le client des changements du serveur.

Pour programmer une appplication DDE en Delphi, il existe quatre composants que vous trouverez dans l'onglet "Système" de la palette de composants.

De gauche à droite, on trouve les composants TDdeClientConv, TDdeClientItem, TDdeServerConv et TDdeServerItem.

Composant	Description
TDdeClientConv	Etablit une conversation DDE avec un serveur DDE.
TDdeClientItem	Récupére un élément d'un serveur DDE.
TDdeServerConv	Etablit une conversation DDE avec un client DDE.
TDdeServerItem	Envoit un élément au client DDE.

Création d'un serveur DDE

Créez un nouveau projet Delphi. Enregsitrez-le sous le nom de "serveur.dpr".
Ajoutez un composant TDdeServerConv, TDdeServerItem, TLabel et TEdit.

Pour créer un serveur, il faut utiliser autant de composants TDdeServerItem qu'il y a de données à échanger. Ce composant posséde deux propriétés : "Text" est "Lines". Celles-ci permettent l'échange de données au format texte.

Sélectionnez le composant TDdeServerItem et mettez sa propriété "ServerConv" à "DdeServerConv1".

Dans l'événenement "OnChange" du composant TEdit, mettez cette ligne :

procedure TForm1.Edit1Change(Sender: TObject);
begin
DdeServerItem1.Text:=Edit1.Text;
end;

Création d'un client DDE

Créez un nouveau projet Delphi. Enregistrez-le sous le nom de "client".
Ajouter un composant TDdeClientConv, TDdeClientItem, TLabel et TEdit.

Sélectionnez le composant TDdeClientItem. Dans la propriété "DdeConv" de ce composant, mettez "DdeClientConv1".

Un serveur DDE est référencé par son client au moyen de trois informations :
- Le nom de l’application serveur sans l'extension EXE (service)
- Le nom du sujet (topic)
- Le nom de l’élément (item).

Il ne reste donc plus qu'à configurer le composant TDdeClientConv.
Mettez sa propriété "ConnectMode" à "ddeManual".
Cliquez deux fois sur la propriété "DdeServerConv". La fenêtre "Informations DDE" s'ouvre alors.

Pour le champ "Service", indiquez le nom de l'application sans l'extension, c'est à dire "Serveur".
Pour le champ "Sujet", mettez "DdeServerConv1".
Dans la propriété "ServiceApplication", tapez le nom de l'application sans l'extension ou le chemin complet si le programme client ne se touve pas dans le même répertoire que le programme serveur.
Remettez la propriété "ConnectMode" à "ddeAutomatic". Si tout fonctionne correctement , le programme serveur se lance alors.

Pour finir, dans l'événement "OnChange" du composant TDdeClientItem, mettez cette ligne :

procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text:=DdeClientItem1.Text;
end;

DDE	[ 03-01-2004 ]
Exemple d'utilisation du protocole DDE. Télécharger : [10 Ko] [ dde.zip] Auteur : Yoann Site internet : http://delphipage.free.fr/