Discussion :

[R de Solre]

Bonjour,

J'essaie d'interfacer Python avec Lazarus, essentiellement dans le but d'utiliser la librairie mpmath pour le calcul en multi-précision
J'utilise la dernière version 3.8. Apparemment, Lazarus refuse la commande " GetPythonEngine.Initialize; "
J'ai effectué les deux essais décrits ci-dessous sans succès.

Pouvez-vous m'aider ? Merci




Python4Delphi et mpmath ont été téléchargés et installés et ajoutés au projet Lazarus

PythonEngine apparaît correctement dans la liste des fonctions de l'éditeur de source

J'ai ajouté dans la fonction principale "Calcul"

Code :

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

1
2
3
4
5
6
7
8
9
10
uses
	PythonEngine, VarPyth;
 
 { TForm1 }
 
  TForm1 = class(TForm)     
...
    PythonEngine: TPythonEngine;  
...
End;

Premier essai
***********

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormCreate(Sender: TObject);
Var
   a:String;
   Py:Variant;
begin
   GetPythonEngine.Initialize;
   Py:=Import('mpmath');
 
   Py.mp.dps:=50;
   a:=Py.str(Py.mpf(2)**Py.mpf('0.5'));
   Form1.Memo2.Lines.Add(a);
end;

calcul.pas(151,20) Error: identifier idents no member "Initialize"

Deuxième essai
**************

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
procedure TForm1.FormCreate(Sender: TObject);
Var
   a:String;
   Py:Variant;
begin
   with GetPythonEngine do
   begin
//    GetPythonEngine.Initialize;
      Py:=Import('mpmath');
 
      Py.mp.dps:=50;
      a:=Py.str(Py.mpf(2)**Py.mpf('0.5'));
      Form1.Memo2.Lines.Add(a);
   end;
end;

Le projet project a levé une classe d'exception "Exception" avec le message :
No Python engine was created
dans le fichier "..\..\Source\PythonEngine.pas à la ligne 9764

Code :

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

1
2
3
4
5
6
7
8
function  GetPythonEngine : TPythonEngine;
begin
  if not Assigned( gPythonEngine ) then
    raise Exception.Create(SCannotCreatePythonEngine);    // <==   (9764)
  if not gPythonEngine.Finalizing and not gPythonEngine.Initialized then
    raise Exception.Create(SCannotInitPythonEngine);
  Result := gPythonEngine;
end;

[jurassic pork]

Hello,
dans le OnLine Packager il existe la bibliothèque Python4Lazarus qui fonctionne pas mal.
En pièce jointe un projet qui utilise mpmath avec Python4Lazarus.
Il faut ajuster les paramètres de PythonEngine pour qu'ils correspondent au Python utilisé :


voici la partie du code où l'on utilise du code python :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Bt_CalculClick(Sender: TObject);
var  script  : TStringList;
begin
script := TStringList.Create();
Memo1.Clear;
Memo1.Append('Calculate  2**0.5');
script.Add('from mpmath import *');
script.Add('mp.dps = 50');
script.Add('print(mpf(2)**mpf(0.5))');
GetPythonEngine.ExecStrings(script);
end;

et voici le résultat :


Ami calmant, J.P

[R de Solre]

Bonsoir

Merci Jurassic Pork pour ta réponse. J'ai suivi les instructions et reproduit le script (voir ci-dessous).
Tout va bien à la compilation. Juste un petit problème : le résultat ne s'affiche pas, GetPythonEngine.ExecStrings(script);
ne fournit pas une variable string. Comment récupérer le résultat et l'écrire dans Memo1 ?
C'est probablement évident mais je ne trouve pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
Var
   script:TStringList;
begin
   script:= TStringList.Create();
   Memo1.Clear;
   Memo1.Append('Calculate  2**0.5');
   script.Add('from mpmath import *');
   script.Add('mp.dps = 50');
   script.Add('print(mpf(2)**mpf(0.5))');
   GetPythonEngine.ExecStrings(script);
   script.Free;
end;

[R de Solre]

Bonsoir

Désolé, je viens de trouver ce qui manquait pour écrire le résultat dans un mémo.
Il suffisait d'ajouter la propriété Output de PythonGUIInputOutput1 = Memo1.

Pour moi, le problème reste le même : Je voudrais vraiment obtenir la réponse de mpf(2)**mpf(0.5)
sous forme d'une variable de type string

[jurassic pork]

Hello,
effectivement j'avais oublié de dire qu'il fallait aussi modifier la propriété output du PythonGUIInputOutput1 :


En ce qui concerne le résultat dans une variable, j'ai ajouté au projet un composant de type TPythonDelphiVar qui permet de récupérer une valeur dans le python qui est exécuté.
Ma Variable s'appelle PythonDelphiResult et son nom dans le script python est result :

Dans le nouveau projet le script python à exécuter est maintenant dans un mémo. Voici ce qu'il contient au départ :

Code python :

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

1
2
3
4
from mpmath import *
mp.dps = 50
result.Value = mpf(2)**mpf(0.5)   
print(result)

Quand on exécute le script, quand la valeur de résult change , j'affiche une fenêtre.
Voici le nouveau code :

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
procedure TForm1.Bt_CalculClick(Sender: TObject);
var  script  : TStringList;
begin
script := TStringList.Create();
Memo1.Clear;
Memo1.Append('Calculate  2**0.5');
GetPythonEngine.ExecStrings( Memo2.Lines );
Memo1.Append('PythonDelphiResult = ' + PythonDelphiResult.ValueAsString );
end;
 
procedure TForm1.PythonDelphiResultChange(Sender: TObject);
begin
  with Sender as TPythonDelphiVar do
    ShowMessage( 'Var test changed: ' + ValueAsString );
end;

Voici le résultat :


Le nouveau projet en pièce jointe.

Ami calmant, J.P

[R de Solre]

Un grand merci JP, c'est parfait