TypeError: 'PythonDelphiVar' object cannot be interpreted as an integer"

[Jacek Laskowski 57]

My code in Delphi:

 

procedure TForm1.btnRunClick(Sender: TObject);
var
  PyEngine: TPythonEngine;
  PyHeight: Integer;
  PyIO: TPythonGUIInputOutput;
  PyModule: TPythonModule;
  PyWidth: Integer;
  VarHeight: TPythonDelphiVar;
  VarWidth: TPythonDelphiVar;
begin
  PyWidth := 80;
  PyHeight := 40;

  PyEngine := TPythonEngine.Create(nil);
  PyModule := TPythonModule.Create(nil);
  PyIO := TPythonGUIInputOutput.Create(nil);
  try
    PyIO.Output := mmoLog;
    PyEngine.IO := PyIO;
    PyEngine.DllName := 'python38.dll';
    PyEngine.DllPath := ExtractFilePath(Application.ExeName) + 'python\';
    PyEngine.UseLastKnownVersion := False;
    PyEngine.AutoLoad := False;
    PyEngine.AutoUnload := False;
    PyModule.Engine := PyEngine;
    PyModule.ModuleName := '__main__';
    try
     PyEngine.LoadDll;
    except
      on E: Exception do
      begin
        ShowMessage('Error at load Python: ' + E.Message);
        Exit;
      end;
    end;

    PyModule.Initialize;
    PyEngine.PyRun_SimpleString('import builtins; __builtins__ = builtins');

    VarWidth := TPythonDelphiVar.Create(nil);
    VarWidth.Engine := PyEngine;
    VarWidth.Module := '__main__';
    VarWidth.VarName := 'WIDTH';
    VarWidth.Initialize;
    VarWidth.Value := PyWidth;

    VarHeight := TPythonDelphiVar.Create(nil);
    VarHeight.Engine := PyEngine;
    VarHeight.Module := '__main__';
    VarHeight.VarName := 'HEIGHT';
    VarHeight.Initialize;
    VarHeight.Value := PyHeight;

    PyEngine.ExecStrings(mmoSource.Lines, '__main__');

  finally
    VarWidth.Free;
    VarHeight.Free;
    PyIO.Free;
    PyModule.Free;
    PyEngine.Free;
  end;
end;

And python script:

 

canvas = [[' ' for _ in range(WIDTH)] for _ in range(HEIGHT)]

 

After run this I get an error:

 

Traceback (most recent call last):
  File "__main__", line 1, in <module>
TypeError: 'PythonDelphiVar' object cannot be interpreted as an integer

 

I want to pass two variables WIDTH and HEIGHT to the script. What am I doing incorrectly?

 

 

[pyscripter 792]

31 minutes ago, Jacek Laskowski said:

VarWidth.Initialize;

VarWidth.Value := PyWidth;

Does reversing the order help?

 

    VarWidth.Value := PyWidth;
    VarWidth.Initialize;

 

[Jacek Laskowski 57]

14 minutes ago, pyscripter said:

Does reversing the order help? 

 

    VarWidth.Value := PyWidth;
    VarWidth.Initialize;

 

No, then I get an error on assignment line:

 

VarWidth.Value := PyWidth; <-- here I get an error
VarWidth.Initialize;

 

Error message:

 

ThreadId=4800
ProcessId=38
ThreadName=""
ExceptionMessage="No variable was created"
ExceptionName="Exception"
ExceptionDisplayName="Exception"
ExceptionAddress=751DC5AF
FileName=<not available>
LineNumber=<not available>
ExceptionObject=033BE960
Classes=[Exception,TObject]

 

Error is raised here:

 

procedure TPythonDelphiVar.SetValue( const val : Variant );
begin
  if Assigned( FVarObject ) then
    with TPyVar(PythonToDelphi(FVarObject)) do
      SetValueFromVariant(val)
  else
    raise Exception.Create(SVarNotCreated); <-- here
end;

 

 

--- edit

 

When I change the python script to:

 

print(HEIGHT, WIDTH)

 

then all run ok, and in the log I get:

 

<PythonDelphiVar: 40> <PythonDelphiVar: 60>

 

Edited 6 hours ago by Jacek Laskowski
adding

[pyscripter 792]

canvas = [[' ' for _ in range(WIDTH)] for _ in range(HEIGHT)]

needs to be

canvas = [[' ' for _ in range(WIDTH.Value)] for _ in range(HEIGHT.Value)]