Discussion :

[BeanzMaster]

Salut JP, effectivement MemConsole.Lines.Text += output; cela ne fonctionne pas. Par contre :

Code :

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

1
2
3
4
5
6
7
Var
  S: String;
begin
  //mmoConsole.Lines.Text :=  mmoConsole.Lines.Text +  ConsoleToUtf8(output);
  S := mmoConsole.Lines.Text;
  S +=  ConsoleToUtf8(output);
  mmoConsole.Lines.Text := S;

fonctionne.

J'ai eu le même souci, d' étrange comportement de la part du compilateur avec les "helpers" avant-hier j'ai voulu "chainer" une instruction avec une fonction présente dans l'unité math, comme ceci :

Code :

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

1
2
3
4
if Y = MaxY then
   M := RandomRange(1,MaxM+1).Clamp(1,MaxM) 
else
  M := RandomRange(1,12+1).Clamp(1,12);

J'ai obtenu le message d'erreur TypesHelpers.pas(1860,33) Error: Illegal qualifier juste pour le 1er pas le 2eme

En englobant les instructions avec begin..end

Code :

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

1
2
3
4
5
6
7
8
if Y = MaxY then
  begin
     M := RandomRange(1,MaxM+1).Clamp(1,MaxM);    
  end
  else
  begin
     M := RandomRange(1,12+1).Clamp(1,12);
  end;

idem même erreur

Par contre avec

Code :

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

1
2
3
4
5
6
7
8
9
if Y = MaxY then
  begin
     M := RandomRange(1,MaxM+1)
     M := M.Clamp(1,MaxM);    
  end
  else
  begin
     M := RandomRange(1,12+1).Clamp(1,12);
  end;

Par d'erreur sur le 2eme après le else J'ai testé avec la version "Trunk" (Lazarus 1.9 + FPC 3.1.x) même comportement
C'est un bug à signaler à mon avis

[Jipété]

Chalut les copains (j'ai des cailloux dans la bouche !)

en version 1.8.x l'option Opérateur de style C (*=, +=, /= et -=) (-Sc, {$COPERATORS ON}) est cochée par défaut

Ça ne s'invente pas et j'étais loin d'y avoir pensé...
Après insertion de cette directive, Lazarus cause en C,

Salut JP, effectivement MemConsole.Lines.Text += output; cela ne fonctionne pas.

Bon, on en est tous là, ma vieille 1.4 comme vos récentes 1.8.2

Donc en résumé le style C fonctionne avec 2 variables de type string mais pas avec un objet dont on utilise une propriété de type string et une variable de type string.
Et même en allant à l'essentiel : je vire le memo et ses .Lines et j'utilise directement form1.Caption += s; --> pâté
Idem avec un bouton.

Encore un truc bien chelou et vicelard

[jurassic pork]

hello,
jamie m'a répondu sur mon problème d'opérateur += dans le forum principal de Lazarus ici
Ami calmant, J.P (sans T)

[ChPr]

Je relance cette discussion où vous m'avez aidé à récupérer les données issues d'une application console (A) lancée par un programme graphique (P).

Maintenant, c'est moi qui écrit l'application console qui, en fait va être une application graphique. Quelle est l'instruction que je dois utiliser dans (A) pour envoyer une information en sortie que récupérera (P) ?

C'est un writeln, si oui, vers quoi ?

Cordialement.

Pierre.

[Jipété]

Maintenant, c'est moi qui écrit l'application console qui, en fait va être une application graphique. Quelle est l'instruction que je dois utiliser dans (A) pour envoyer une information en sortie que récupérera (P) ?

J'ai pas tout bien compris : donc en fait tu as là 2 applications graphiques ? En première approche ultra-rapide, je dirais qu'il faut faire l'inverse de la 1^re fois.

C'est un writeln, si oui, vers quoi ?

Pourquoi un writeln dans une appli graphique ?

[ChPr]

J'ai pas tout bien compris : donc en fait tu as là 2 applications graphiques ? En première approche ultra-rapide, je dirais qu'il faut faire l'inverse de la 1^re fois. ...

Oui, j'ai deux applications graphiques. La première A qui tourne en permanence et intercepte des messages claviers. Lorsque j'appuie (par exemple) sur la touche F2, cela lance une deuxième application graphique B. C'est une petite fenêtre dans laquelle je rentre des valeurs numériques que je voudrais voir transmises dans l'application A lorsque je ferme B.

... Pourquoi un writeln dans une appli graphique ?

J'imagine que c'est ce qui est utilisé dans une application console. et c'est pourquoi j'ai utilisé cette instruction dans mon application B.

J'ai essayé Writeln(stdout, val), mais je ne reçois rien dans A. Par contre, (sous Windows), lorsque je ferme l'application B, une petite fenêtre s'ouvre avec pour titre "error", un bouton "OK" et la valeur "val" affichée.

Donc, ma question est que dois faire pour transmettre une valeur de l'application B vers l'application A.

Cordialement.

Pierre

[Jipété]

Donc, ma question est que dois faire pour transmettre une valeur de l'application B vers l'application A.

Hé bien mais un writeln !

Démo :
Le code de l'appli B :

Code :

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

1
2
3
4
procedure TForm1.Button8Click(Sender: TObject);
begin
  writeln(timetostr(now));
end;

L'exécution (le "./" c'est pour dire "exécute le fichier que je te donne ici". C'est du Linux, je sais pas si tu connais) :


Mais il ne faut pas que l'appli A appelle l'appli B, je pense. Il faut que l'appli A appelle un .bat qui appellera l'appli B, pour avoir une fenêtre Dos dans laquelle writeln pourra pousser ses messages.

Enfin c'est à tester.

[ChPr]

... Le code de l'appli B :

Code :

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

1
2
3
4
procedure TForm1.Button8Click(Sender: TObject);
begin
  writeln(timetostr(now));
end;

Si j'écris cela dans mon programme B, et que je le lance directement ou via un fichier .bat, ça plante avec une erreur "file not open".

... Mais il ne faut pas que l'appli A appelle l'appli B, je pense. Il faut que l'appli A appelle un .bat qui appellera l'appli B, pour avoir une fenêtre Dos dans laquelle writeln pourra pousser ses messages. ...

En fait, cela revient à transformer mon application B en application console, ce que je voudrais éviter.

Pour l'instant, j'ai une solution un peu lourding : B écrit dans un fichier et A vient lire ce fichier.

Cordialement.

Pierre

[Jipété]

Si j'écris cela dans mon programme B, et que je le lance directement ou via un fichier .bat, ça plante avec une erreur "file not open".

Il doit y avoir une blagounette ailleurs...
On parle bien d'une appli graphique en ce qui concerne le programme B, d'accord ?
Quand j'appelle le solitaire de Windows dans une boîte Dos en tapant "sol<ENTREE>" ça m'affiche le solitaire. Ici c'est pareil, et ça doit fonctionner !

En fait, cela revient à transformer mon application B en application console, ce que je voudrais éviter.

Sur la copie d'écran que j'ai fournie, on voit bien le Button8 et le bas de la fiche (posée sur la fenêtre du terminal) donc non, il ne s'agit pas d'une appli console.

Mais cette appli graphique doit être appelée depuis une console pour qu'elle puisse y balancer ses messages (writeln).

Et c'est dans cette console que l'appli A (qui l'a lancée) ira récupérer les données qui y "tombent".

[BeanzMaster]

Oui, j'ai deux applications graphiques. La première A qui tourne en permanence et intercepte des messages claviers. Lorsque j'appuie (par exemple) sur la touche F2, cela lance une deuxième application graphique B. C'est une petite fenêtre dans laquelle je rentre des valeurs numériques que je voudrais voir transmises dans l'application A lorsque je ferme B.



J'imagine que c'est ce qui est utilisé dans une application console. et c'est pourquoi j'ai utilisé cette instruction dans mon application B.

J'ai essayé Writeln(stdout, val), mais je ne reçois rien dans A. Par contre, (sous Windows), lorsque je ferme l'application B, une petite fenêtre s'ouvre avec pour titre "error", un bouton "OK" et la valeur "val" affichée.

Donc, ma question est que dois faire pour transmettre une valeur de l'application B vers l'application A.

Cordialement.

Pierre

Bonjour

Pourquoi ne pas utiliser les messages comme tu l'a suggéré ici afin de récupérer tes valeurs ?

[ChPr]

... Pourquoi ne pas utiliser les messages comme tu l'a suggéré ici afin de récupérer tes valeurs ?

J'ai téléchargé cet exemple et l'ai mis en œuvre.

Côté client : pas de problème
Côté Server : avec la version lazarus que j'ai (1.2.4), le composant TIPCSimple Server ne possède pas toutes les propriétés citées dans l'exemple. J'ai supprimé celles n'existant pas dans ma version :

Code :

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

1
2
3
4
    ThreadTimeOut = 50
    OnMessageQueued = SimpleIPCServer1MessageQueued
    MaxQueue = 10
    MaxAction = ipcmoaNone

J'ai remplacé OnMessageQueued = SimpleIPCServer1MessageQueued par OnMessage = SimpleIPCServer1Message et j'ai enfin pu compiler. Mais à l'exécution, mon serveur ne reçoit rien du client.

Cordialement.

Pierre

[ChPr]

Bon, j'ai gratté un peu et je suis arrivé à faire fonctionner le serveur en remplaçant

Code :

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

1
2
3
4
5
procedure TForm1.SimpleIPCServer1Message(Sender: TObject);
begin
   if SimpleIPCServer1.PeekMessage(100, True) then
    StaticText1.Caption:= SimpleIPCServer1.StringMessage;
end;

par

Code :

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

1
2
3
4
procedure TForm1.SimpleIPCServer1Message(Sender: TObject);
begin
  StaticText1.Caption:= SimpleIPCServer1.StringMessage;
end;

car SimpleIPCServer1.PeekMessage(100, True) n'est jamais à vrai, quel que soit le timeout que je mets 0, 100, 10000.

Que fait donc ce PeekMessage ?

Cordialement.

Pierre