Discussion :

[tourlourou]

Bonjour,

Je voudrais faire communiquer une appli D5 avec une appli D11 sur le même poste, la première envoyant des données et attendant en retour un résultat de calcul.

Il suffit qu'elles échangent un record de petite taille et données simples à l'aller comme au retour.

J'ai pensé au Client/Server-Sockets et SendBuf, mais je ne trouve pas le composant dans D11...

Je pourrais envisager Indy, mais c'est une usine à gaz en comparaison !

Merci pour vos pistes.

[ALWEBER]

Les composants TserverSocket et TclientSocket ne sont pas présent par défaut. Ils doivent être installés
Selectionner Composant > Installer des Packages puis
Ajouter. Le package se trouve dans le repertoire bin de l'installation de Delphi. C'est un fichier dont le nom commence par dclsockets et qui a pour extenssion bpl.
Je l'utilise actuellement dans le développement d'un driver modbus. Si tu as besoin d'exemple ...

dclsockets280.bpl
dans
C:\Program Files (x86)\Embarcadero\Studio\22.0\bin

[tourlourou]

Top, merci beaucoup !

[ShaiLeTroll]

Tu n'as pas besoin de les installer non plus, ça c'est pour une utilisation en mode RAD où l'on pose les composants sur un DataModule, tu peux les instancier manuellement, ce que je recommande, ce que je fais depuis 2007 lorsque je suis passé à C++Builder
J'utilise sinon ce composant depuis 2006 lui-même basé sur un code 2002 : TSLTRemoteMessenger , cela gère en Thread et non en Message le TServerSocket et pas besoin d'installation du package.
Ce code a évolué au fil des versions, je ne sais pas si il est encore compatible D7 (a priori oui en dehors de quelques fiortures sur private et const)

Pense que le TServerSocket de D5 n'est pas le même que celui de D11, il y a eu des corrections de Bug assez notable, c'est d'ailleurs pour cela qu'il était déprécié en D7 au profit du TTCPServer.

Attention, si échange de record, pense au packed record, à utiliser des types communs, attention au Char par exemple différent en D5 et D11, attention au Extended différent en 32/64 Bits ... et j'en passe.

En local, tu peux aussi échanger via des Pipes + Semaphore ou un WM_COPYDATA, sans besoin d'ouvrir un socket.
SQL Server utilise les Pipes par exemple en local, voire même de la mémoire partagée, un FileMapping, toujours couplés avec un semaphore pour le signal de lecture.

[tourlourou]

Suite aux conseils et pistes de ShaiLeTroll, j'ai essayé les messages WM_COPYDATA interapps pour échanger les record compacts prévus.
Après quelques galères et découvertes de problèmes (je voulais éviter la recherche de fenêtre en envoyant un broadcast et récupérant la réponse de la seule appli intéressée, mais sans succès... pb d'UAC semble-t-il)
Au final, une fois mes bugs éliminés, ça fonctionne bien
Merci ShaiLeTroll !