unit AndyDelphiPy;          

interface          

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, PythonEngine, AtomPythonEngine, Rzcsintf, ComCtrls, pythonAtom;          

  procedure PyExe(cmds: string; engine: TAtomPythonEngine);
  procedure PyExeFile(fp: string; engine: TAtomPythonEngine);
  function  PyClass(pyclass: string; pydelphivar : TPythonDelphiVar; engine: TAtomPythonEngine): OleVariant;
  function  PyVarToAtom(pydelphivar : TPythonDelphiVar; engine: TAtomPythonEngine): OleVariant;
  procedure PyConsoleOut(const Data: String);          

implementation          

procedure PyExe(cmds: string; engine: TAtomPythonEngine);
var
  s: TStringList;
begin
  s := TStringList.create;
  try
    s.text := cmds;
    engine.ExecStrings( s );
  finally
    s.free;
  end;
end;          

procedure PyExeFile(fp: string; engine: TAtomPythonEngine);
var
  s: TStringList;
begin
  s := TStringList.create;
  try
    if pos(':\', fp) = 0 then
      fp := ExtractFilePath(Application.ExeName) + fp;
    s.LoadFromFile( fp );
    engine.ExecStrings( s );
  finally
    s.free;
  end;
end;          

function PyVarToAtom(pydelphivar : TPythonDelphiVar; engine: TAtomPythonEngine): OleVariant;
var
  v: PPyObject;
begin
  v := pydelphivar.ValueObject;
  result := getAtom(v);
  GetPythonEngine.Py_XDECREF(v);
end;          

function PyClass(pyclass: string; pydelphivar : TPythonDelphiVar; engine: TAtomPythonEngine): OleVariant;;
begin
  PyExe(pydelphivar.VarName + '.Value = ' + pyclass, engine);
  result := PyVarToAtom(pydelphivar, engine);
end;          

procedure PyConsoleOut(const Data: String);
begin
  OutputDebugString( PChar(Data));
end;          

end.
        

	tutorial - Andy's Python Delphi Tutorial - Getting started with the basics.  Also use these techniques if you are using Delphi 5 or below, and Python 2.0 or below.   Includes info on getting these free components.
	code - Here are Andy's Extensions  - a delphi unit that adds a few utility functions to Python for Delphi.
	tutorial - Here is a later tutorial using the Latest Techniques in Python for Delphi - use these if you have Delphi 6 and Python 2.1 or higher.
	discussion & tips - Here is a discussion and tips on python for delphi deployment issues.
	animated slideshow tutorial  - Here is an animated visual viewlet demo of using the Python for Delphi components to build a Delphi app that talks to python.
	example and screenshot of a Delphi GUI application which uses python code for all its business logic.