Discussion :

[ChPr]

Bonjour à toutes et à tous,

Pour faire suite à cette discussion, je veux échanger entre deux applications graphiques en utilisant les composants "SimpleIPC Server et Client".

J'ai réussi à faire cet échange si je lance séparément chacune des applications A et B.

Maintenant, l'application A qui doit recevoir des données de B lance l'application B via un TProcess. Et bien, cela ne fonctionne plus.

L'application A (Le serveur est lancé dans le Create):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TFntrBase.SimpleIPCServerMessage(Sender: TObject);
var
  s: String;
begin
  s:= SimpleIPCServer.StringMessage; // Réception du message de B
end;

procedure TFntrBase.ScruteClickTimer(Sender: TObject);
var
  Proc: TProcess;
begin
...
  begin
    try
      Proc := TProcess.Create(nil);
      Proc.Options:= Proc.Options+[poWaitOnExit];
      Proc.Executable := 'C:\lazarus124\Projets_ChP\ConcatMap\CoordPoint\CoordPoint.exe'; // L'application B
      Proc.Execute();
    finally
      Proc.Destroy;
    end;
  end;
end;

L'application B :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.ValiderClick(Sender: TObject);
begin
  with SimpleIPCClient do
  begin
    Connect;
    SimpleIPCClient.SendStringMessage(FloatToStr(Lat)+';'+ FloatToStr(Lon));
    DisConnect;
  end;
  Application.Terminate;
end;

Une idée du pourquoi du comment ?

Cordialement.

Pierre

[FChrisF]

Est-ce que exactement les mêmes applications fonctionnent si le lancement est réalisé manuellement ? Il pourrait notamment y avoir un souci concernant un des paramètres (Global, ServerID, etc ...)

Par ailleurs (et bien qu'il semble qu'il n'y ait pas tout votre code), l'évènement OnMessage du serveur n'est pas activé automatiquement à la réception du message (cf. https://www.freepascal.org/docs-html...onmessage.html). Il faut avoir demandé la lecture d'un message (PeekMessage, ReadMessage) et qu'un tel message existe: lors de l'activation d'un évènement OnMessageQueued, ou dans un Timer ou une boucle d'exécution, etc ...



PS1: il 2 fois SimpleIPCClient pour SendStringMessage ?

Code :

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

1
2
3
4
5
6
  with SimpleIPCClient do
  begin
    Connect;
    SimpleIPCClient.SendStringMessage(FloatToStr(Lat)+';'+ FloatToStr(Lon));
    DisConnect;
  end;

PS2. Utiliser Connect/Disconnect avant chaque envoie de message n'est pertinent que s'il n'y a qu'un seul message à envoyer, ou éventuellement que les messages sont envoyés très épisodiquement. Sinon, il vaut mieux ne les faire qu'une seule fois dans l'application (éventuellement en testant la connexion avant l'envoi, pour le connect par exemple, et lors de la fin de l'application pour le disconnect, par exemple).


*** EDIT ***
Je pense que votre problème vient en fait de l'option "poWaitOnExit" de votre TProcess. Elle empêche toute autre action au niveau du serveur; notamment la réception et le traitement du message Windows WM_CopyData indiquant la réception d'un message en provenance du client.

[ChPr]

J'ai oublié de donner le lien de la précédente discussion

Vous trouverez un fichier zip d'une petite application que j'ai trouvée sur le WEB qui est un exemple d'utilisation SimpleIPC.

• Exécution sous Windows XP : le bouton SendMessage a une action et le bouton PeekMessage n'a aucune action.
• Exécution sous Linux : le bouton SendMessage n'a aucune action et le bouton PeekMessage en a une.

Donc deux modes de fonctionnement selon l'OS ??

Si par ailleurs, je lance l'application Client par un TProcess, le fonctionnement est encore différent. Si de plus, j'utilise un TProcessEX, le fonctionnement est encore autre !!

Y aurait-il un fonctionnement unifié ?

Cordialement.

Pierre

[BeanzMaster]

Bonjour Pierre,

je viens tout juste de finir un petit test j'ai vraiment galérer mais ça fonctionne avec Windows 10 (je n'ai donc pas tester ton zip)

testICP.zip

Bonne journée

[BeanzMaster]

*** EDIT ***
Je pense que votre problème vient en fait de l'option "poWaitOnExit" de votre TProcess. Elle empêche toute autre action au niveau du serveur; notamment la réception et le traitement du message Windows WM_CopyData indiquant la réception d'un message en provenance du client.

C'est effectivement ça avec le TProcess avec des options vide cela fonctionne

[ChPr]

Dans le petit exemple que j'ai joint, il n'y a pas de TProcess, il n'y a qu'un seul programme.

Pourtant, les comportements sont différents selon L'OS.

Cordialement.

Pierre

[BeanzMaster]

Dans le petit exemple que j'ai joint, il n'y a pas de TProcess, il n'y a qu'un seul programme.

Pourtant, les comportements sont différents selon L'OS.

Cordialement.

Pierre

Ok je vais tester car cela m'intrigue. Et je n'ai pas encore tester mon exemple sous linux en plus

[BeanzMaster]

De retour... Sous Linux, mon exemple fonctionne parfaitement

Une seule chose : avant d'ouvrir le projet client dans Lazarus, il faut éditer le fichier lfm et changer la propriété Active du composant TSimpleICPClient à false, sinon cela fait boguer l'EDI sauf si le serveur est en fonctionnement.