Guide Pascal et Delphi

Date de publication : 10/04/2000 , Date de mise à jour : 01/04/2008

XVII. Liaison DDE

XVII-A. Présentation

XVII-A-1. Introduction

Liaison DDE - Vue d'ensemble des liaisons possibles.

XVII-A-2. Composants

XVII-A-3. Utilisation

XVII-B. Partie Serveur

Vous n'êtes pas obligé d'ajouter de Composant DdeServerConv, dans ce cas c'est la fiche contenant les DdeServerItem qui sert de serveur. Le problème est que c'est le titre de la fiche qui est utilisé pour identifier le serveur. Si par malheur vous changer le titre de la fiche, vous rompez la communication. Ce genre de gag, peut vous faire passer des nuits blanches à chercher l'origine du problème. Donc à moins que vous ne vouliez tenter le diable, utilisez toujours un DdeServerConv pour identifier le serveur.

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

XVII-C. Partie Client

• Modifiez ensuite les propriétés du DdeClientConv.
  
  
  
• Positionnez la propriété ConnectMode à DdeManual.
• Double cliquez sur DdeService.
  
  
  
  1. Dans la partie Service indiquer le nom de l'application serveur sans l'extension.
  2. Dans la partie Rubrique indiquer le nom du composant DdeServerConv (ou le titre de la fiche si vous n'avez pas suivit mon conseil).
• Dans la rubrique Service application, indiquez de nouveau le nom de l'application serveur sans l'extension. Vous pouvez indiquer le chemin complet si elle n'est pas dans le même répertoire que l'application cliente
• Modifier ensuite les propriétés de Chaque DdeClientItem.
  
  
  
• Dans DdeConv indiquez le DdeServerConv ou le nom de la fiche serveur.
• Dans DdeItem indiquez le nom du composant DdeServerItem.
• RePositionner la propriété ConnectMode à DdeAutomatic du DdeClientConv.

procedureTForm1.DdeClientItem1Change(Sender: TObject);
begin
  // Récupère les informations du serveur et les placent dans Edit1
  Edit1.Text := DdeClientItem1.text; 
end;

XVII-D. Cas particulier : Serveur Non-Delphi

• Connaître le nom du serveur. C'est la partie facile car il s'agit du nom de l'application sans l'extension.
• Connaître le nom du service. C'est là qu'il faut connaître l'application serveur.
• Connaître le sujet ou topic. Correspond aux données que vous voulez récupérer.

XVII-D-1. Serveur Non-Delphi

• à ddeManuel (permet de dire à Delphi d'attendre la fin des changements).
• Double cliquez sur DdeService et indiquez : Progman dans service et sujet.
• Dans service application entrez Progman
• Modifier aussi le composant DdeClientItem,
• Dans DdeConv, indiquez le nom du DdeClientConv,
• Dans DdeItem, indiquez Groups
• Remettez ConnectMode à DdeAutomatic (On a finit les modifications et Delphi peut appliquer les changements).

procedureTForm1.DdeClientItem1Change(Sender: TObject);
var
  i : integer;
begin
  // Récupère les informations du serveur et les placent dans ListBox1
  for i := 0 to DdeClientItem1.Lines.Count - 1 do
  begin
    ListBox1.Lines.Add(DdeClientItem1.Lines[i]);
  end;
end; 

XVII-D-2. Client Non-Delphi

INTEGER Result,Ch1,Ch2
DIM Ret$[256],Htbvers$[80]
Htbvers$=SYSTEM$("VERSION:HTB")
IF POS(Htbvers$,"9") THEN
  Htbvers$="9"
ELSE
  Htbvers$="5"
END IF
CLEAR SCREEN
! Charge la librairie DDE correspondant à la version du HTB, seulement si elle n'est pas déjà chargée.
IF NOT INMEM("Ddeinit") THEN
  SELECT Htbvers$
    CASE "5"
      LOADSUB ALL FROM "htbdde.csb"
    CASE "9"
      LOADSUB ALL FROM "htb8dde.csb"
  END SELECT
  PRINT
  PRINT " BASIC DDE Client CSUB (R"&Htbvers$&") est chargé.."
END IF
CALL Ddeinit(Result)
IF Result=0 THEN
  DISP "Doing some DDE conversation.."
  !WAIT 2
  ! Connexion à l'application, retourne un numéro de canal dans Ch
  CALL Ddeconnect(Ch1,"ServeurPrj","DdeServerConv1")
  IF Ch1<>0 THEN
    ! Se reconnecte avec un autre canal
    CALL Ddeconnect(Ch2,"ServeurPrj","DDeServerConv1")
    CALL Dderequest(Ch2,"DDeServerItem1",Ret$,Result) ! récupère la valeur
    CALL Ddeterminate(Ch2,Result) ! Termine la connexion sur le second canal
    CALL Ddeterminate(Ch1,Result) ! Sur le premier
  ELSE
    BEEP
    Buf$="ServeurPrj DDE connexion échouée"
  END IF
  CALL Ddeclean(Result) ! Libère les ressources DDE
ELSE
  BEEP
  Buf$="DDE initialisation échouée"
END IF
CLEAR SCREEN
PRINT Ddeinfo$
PRINT "Valeur du serveur: ";Ret$;
PRINT
PRINT Buf$
PRINT "DDE Test terminé"
DELSUB Ddeinit TO END
END

XVII-E. Conclusion