Delphi 4 Python

Question

I want to use the Delphi 4 Python components from here https://github.com/pyscripter/python4delphi but I don't want to drop the components on a form, I want everything in code , my code goes like this :

 var
  PythonEngine_netA: TPythonEngine;
  PythonInputOutput_netA: TPythonInputOutput;
begin
  PythonEngine_netA := TPythonEngine.Create(Self);
  PythonInputOutput_netA := TPythonInputOutput.Create(Self);
  try
    ///  configure the components
    PythonEngine_netA.DllName:='python39.dll';
    PythonEngine_netA.IO := PythonInputOutput_netA;
    PythonEngine_netA.UseLastKnownVersion := True;

    PythonInputOutput_netA.OnSendUniData := PythonInputOutput_SendUniData;
    PythonInputOutput_netA.UnicodeIO := True;
    PythonInputOutput_netA.RawOutput := True;

    ///  execute  the script
    PythonEngine_netA.ExecString(UTF8Encode(mmo_pythoncode.text));
  finally
    PythonEngine_netA.free;
    PythonInputOutput_netA.free;
  end;

execution of this code fails, error msg : "Python is not properly initialized", what did I miss to use this code ?

AmigoJack · Accepted Answer · 2020-10-15 18:57:14Z

1

One quick look at PythonEngine.pas (or even better: always search all files for the error message to find out where and why an error is returned) tells me you missed calling PythonEngine_netA.Initialize().

Also note that /Demos describes:

Demo34 Dynamically creating, destroying and recreating PythonEngine. Uses PythonVersions

So please have a look at /Demos/Demo34/Unit1.pas how it is done there with (almost) no components. Or run the whole project in general, preferably in debug mode single stepping thru it be aware which method does what.

edited Oct 15, 2020 at 18:57

answered Oct 12, 2020 at 20:28

AmigoJack

6,4422 gold badges20 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

7 Comments

user1769184 Over a year ago

add this line of code , but get now an AV error when calling : PythonEngine_netA.Initialize() command

AmigoJack Over a year ago

How about debugging and single stepping execution thru that method?

user1769184 Over a year ago

error happend at procedure TPythonEngine.AssignPyFlags; already added this code with no success :

user1769184 Over a year ago

PythonFlags_netA : TPythonFlags ; begin .. try /// configure the components /// PythonFlags_netA:=[]; ... PythonEngine_netA.PyFlags := PythonFlags_netA;

AmigoJack Over a year ago

And where in that method? Py_DebugFlag is a pointer and is set in TPythonInterface.MapDll - that method is called in TPythonInterface.AfterLoad. And since TPythonEngine inherites from TPythonInterface call PythonInputOutput_netA.AfterLoad(). Also edit your question and use code formattings in your comments.

|

Max Kleiner · Accepted Answer · 2021-09-09 19:34:22Z

1

You just forgot to load the Dll:

PythonEngine_netA.UseLastKnownVersion:= True;
//PythonEngine_netA.opendll(PYDLL)
PythonEngine_netA.LoadDll;
PythonEngine_netA.IO:= PythonInputOutput_netA;

answered Sep 9, 2021 at 19:34

Max Kleiner

1,6581 gold badge16 silver badges14 bronze badges

Collectives™ on Stack Overflow

Delphi 4 Python

2 Answers 2

7 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

7 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related