├── Install ├── AfterInstallPyScripter.txt ├── Andy Bulka Tutorials.url ├── BeforeInstallPyScripter.txt ├── Copy of PythonForDelphi.wse ├── Dll │ ├── P4D.dof │ ├── P4D.dpr │ ├── P4D.res │ ├── PythonTitle.bmp │ ├── Test │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── fmDelphiInstall.dfm │ ├── fmDelphiInstall.pas │ └── python.bmp ├── Home Site.URL ├── Mark Hammond Pythonwin.URL ├── PyScripter.iss ├── PyScripterForPython23.gi2 ├── PyScripterForPython24.gi2 ├── Python official site.URL ├── PythonForDelphi.wse ├── PythonTitle.bmp ├── ReadMe.txt ├── Yahoo! Groups pythonfordelphi.url └── python.bmp ├── PythonForDelphi ├── C++ Builder Notes.txt ├── Changes.txt ├── Components │ ├── Compile_PythonVCL_d5.bat │ ├── Compile_Python_d5.bat │ ├── P4DFpc.lpk │ ├── P4DFpc.pas │ ├── PyDelphi.ico │ ├── PythonVCL_2010.dpk │ ├── PythonVCL_2010.dproj │ ├── PythonVCL_2010.res │ ├── PythonVCL_XE2.dpk │ ├── PythonVCL_bds3.bdsproj │ ├── PythonVCL_bds3.dpk │ ├── PythonVCL_bds3.res │ ├── PythonVCL_cb3.bpk │ ├── PythonVCL_cb3.cpp │ ├── PythonVCL_cb3.dpk │ ├── PythonVCL_cb3.res │ ├── PythonVCL_cb4.bpk │ ├── PythonVCL_cb4.cpp │ ├── PythonVCL_cb4.dpk │ ├── PythonVCL_cb4.res │ ├── PythonVCL_cb5.bpi │ ├── PythonVCL_cb5.bpk │ ├── PythonVCL_cb5.cpp │ ├── PythonVCL_cb5.lib │ ├── PythonVCL_cb5.res │ ├── PythonVCL_cb6.bpk │ ├── PythonVCL_cb6.cpp │ ├── PythonVCL_cb6.res │ ├── PythonVCL_d3.dpk │ ├── PythonVCL_d3.res │ ├── PythonVCL_d4.dpk │ ├── PythonVCL_d4.res │ ├── PythonVCL_d5.dpk │ ├── PythonVCL_d5.res │ ├── PythonVCL_d6.dof │ ├── PythonVCL_d6.dpk │ ├── PythonVCL_d6.res │ ├── PythonVCL_d7.dpk │ ├── PythonVCL_d7.res │ ├── Python_2010.dpk │ ├── Python_2010.dproj │ ├── Python_2010.res │ ├── Python_D10_2.dpk │ ├── Python_D10_2.dproj │ ├── Python_D10_2.dres │ ├── Python_D10_2.res │ ├── Python_D10_2Resource.rc │ ├── Python_XE2.dpk │ ├── Python_XE7.dpk │ ├── Python_bds3.bdsproj │ ├── Python_bds3.dpk │ ├── Python_bds3.dproj │ ├── Python_bds3.res │ ├── Python_bds5.dpk │ ├── Python_bds6.dpk │ ├── Python_bds6.dproj │ ├── Python_bds7.dpk │ ├── Python_bds7.dproj │ ├── Python_cb3.bpk │ ├── Python_cb3.cpp │ ├── Python_cb3.dpk │ ├── Python_cb3.res │ ├── Python_cb4.bpi │ ├── Python_cb4.bpk │ ├── Python_cb4.cpp │ ├── Python_cb4.dpk │ ├── Python_cb4.lib │ ├── Python_cb4.res │ ├── Python_cb5.bpi │ ├── Python_cb5.bpk │ ├── Python_cb5.cpp │ ├── Python_cb5.lib │ ├── Python_cb5.res │ ├── Python_cb6.bpi │ ├── Python_cb6.bpk │ ├── Python_cb6.cpp │ ├── Python_cb6.lib │ ├── Python_cb6.res │ ├── Python_d3.dpk │ ├── Python_d3.res │ ├── Python_d4.dof │ ├── Python_d4.dpk │ ├── Python_d4.res │ ├── Python_d5.dof │ ├── Python_d5.dpk │ ├── Python_d5.res │ ├── Python_d6.dof │ ├── Python_d6.dpk │ ├── Python_d6.res │ ├── Python_d7.dof │ ├── Python_d7.dpk │ ├── Python_d7.res │ ├── Python_kylix.conf │ ├── Python_kylix.dpk │ ├── Python_kylix.res │ ├── Sources │ │ ├── Core │ │ │ ├── AtomPythonEngine.pas │ │ │ ├── Definition.Inc │ │ │ ├── MethodCallBack.hpp │ │ │ ├── MethodCallBack.pas │ │ │ ├── PythonAction.pas │ │ │ ├── PythonAtom.pas │ │ │ ├── PythonEngine.dcr │ │ │ ├── PythonEngine.hpp │ │ │ ├── PythonEngine.pas │ │ │ ├── PythonGUIInputOutput.hpp │ │ │ ├── PythonGUIInputOutput.pas │ │ │ ├── TinyWideStrings.pas │ │ │ ├── UnitTests │ │ │ │ ├── MethodCallBackTest.pas │ │ │ │ ├── Tests.dof │ │ │ │ ├── Tests.dpr │ │ │ │ └── Tests.res │ │ │ ├── VarPyth.pas │ │ │ ├── WrapDelphi.pas │ │ │ ├── WrapDelphiActnList.pas │ │ │ ├── WrapDelphiButtons.pas │ │ │ ├── WrapDelphiClasses.pas │ │ │ ├── WrapDelphiComCtrls.pas │ │ │ ├── WrapDelphiControls.pas │ │ │ ├── WrapDelphiExtCtrls.pas │ │ │ ├── WrapDelphiForms.pas │ │ │ ├── WrapDelphiGraphics.pas │ │ │ ├── WrapDelphiGrids.pas │ │ │ ├── WrapDelphiStdCtrls.pas │ │ │ ├── WrapDelphiTypes.pas │ │ │ ├── WrapDelphiVCL.pas │ │ │ └── WrapDelphiWindows.pas │ │ ├── FireDAC │ │ │ └── pyDBFireDac.pas │ │ └── VCL │ │ │ ├── PythonDatabase.dcr │ │ │ ├── PythonDatabase.pas │ │ │ ├── pyDB.pas │ │ │ └── pyDBTables.pas │ ├── p4dlaz.lpk │ ├── p4dlaz.pas │ ├── py15.lib │ ├── py21.lib │ └── up4dlaz.pas ├── Demos │ ├── Demo01 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo02 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo03 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo04 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo05 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo06 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo07 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── Project1_Icon1.ico │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ └── test.py │ ├── Demo08 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo09 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── ProjectGroup1.groupproj │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ ├── demodll.dpr │ │ ├── demodll.dproj │ │ ├── demodll.res │ │ └── module.pas │ ├── Demo10 │ │ ├── Demo10.dpr │ │ ├── Demo10.dproj │ │ ├── Demo10.drc │ │ ├── Demo10.res │ │ ├── Example1.py │ │ ├── Example2.py │ │ ├── Example3.py │ │ ├── Example4.py │ │ ├── Example5.py │ │ ├── Example6.py │ │ ├── fmMain.dfm │ │ ├── fmMain.pas │ │ ├── pyDB.pas │ │ └── pyDBTables.pas │ ├── Demo10_FireDAC │ │ ├── Demo.ini │ │ ├── Demo.s3db │ │ ├── Demo10.dpr │ │ ├── Demo10.dproj │ │ ├── Demo10.res │ │ ├── Demo10_Icon.ico │ │ ├── Demo10_Icon1.ico │ │ ├── Example1.py │ │ ├── Example2.py │ │ ├── Example3.py │ │ ├── Example4.py │ │ ├── FDDrivers.ini │ │ ├── fmMain.dfm │ │ └── fmMain.pas │ ├── Demo11 │ │ ├── SortThds.pas │ │ ├── ThSort.dfm │ │ ├── ThSort.pas │ │ ├── ThrdDemo.dpr │ │ ├── ThrdDemo.dproj │ │ ├── ThrdDemo.res │ │ ├── ThrdDemo_Icon.ico │ │ └── test.py │ ├── Demo13 │ │ ├── Demo13.dpr │ │ ├── Demo13.dproj │ │ ├── Demo13.drc │ │ ├── Demo13.res │ │ ├── Example1.py │ │ ├── Example2.py │ │ ├── Example3.py │ │ ├── Example4.py │ │ ├── Example5.py │ │ ├── Example6.py │ │ ├── fmMain.dfm │ │ └── fmMain.pas │ ├── Demo14 │ │ ├── Project1.dpr │ │ ├── Project1.drc │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ ├── database.dpr │ │ ├── database.drc │ │ ├── database.res │ │ └── module.pas │ ├── Demo15 │ │ ├── Project1.dpr │ │ ├── Project1.drc │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo16 │ │ ├── Example1 │ │ │ ├── Project1.dpr │ │ │ ├── Project1.dproj │ │ │ ├── Project1.res │ │ │ ├── Project1_Icon.ico │ │ │ ├── Unit1.dfm │ │ │ └── Unit1.pas │ │ └── Example2 │ │ │ ├── Project1.dof │ │ │ ├── Project1.dpr │ │ │ ├── Project1.dproj │ │ │ ├── Project1.res │ │ │ ├── Project1_Icon.ico │ │ │ ├── Unit1.dfm │ │ │ └── Unit1.pas │ ├── Demo17 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Project1_Icon.ico │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo18 │ │ ├── Project1.bpr │ │ ├── Project1.cpp │ │ ├── Project1.res │ │ ├── py15.lib │ │ └── py21.lib │ ├── Demo19 │ │ ├── Project1.bpr │ │ ├── Project1.cpp │ │ ├── Project1.res │ │ ├── Unit1.cpp │ │ ├── Unit1.dfm │ │ └── Unit1.h │ ├── Demo20 │ │ ├── Project1.bpr │ │ ├── Project1.cpp │ │ ├── Project1.res │ │ ├── Unit1.cpp │ │ ├── Unit1.dfm │ │ ├── Unit1.h │ │ ├── py15.lib │ │ └── py21.lib │ ├── Demo21 │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo22 │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo23 │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo25 │ │ ├── MyModule.py │ │ ├── VarPythUnitTest.bdsproj │ │ ├── VarPythUnitTest.conf │ │ ├── VarPythUnitTest.dof │ │ ├── VarPythUnitTest.dpr │ │ ├── VarPythUnitTest.dproj │ │ ├── VarPythUnitTest.kof │ │ ├── VarPythUnitTest.res │ │ ├── fmMain.dfm │ │ ├── fmMain.pas │ │ └── fmMain.xfm │ ├── Demo26 │ │ ├── Project1.CW3 │ │ ├── Project1.conf │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.kof │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo27 │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo28 │ │ ├── Project1.conf │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.kof │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ └── Unit1.xfm │ ├── Demo29 │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ ├── XP_UAC.manifest │ │ ├── XP_UAC.rc │ │ └── XP_UAC.res │ ├── Demo30 │ │ ├── Project1.conf │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.kof │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ └── Unit1.xfm │ ├── Demo31 │ │ ├── Project1.dof │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ ├── Unit2.dfm │ │ └── Unit2.pas │ ├── Demo32 │ │ ├── Project1.dpr │ │ ├── Project1.dproj │ │ ├── Project1.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Demo33 │ │ ├── SortThds.pas │ │ ├── ThSort.dfm │ │ ├── ThSort.pas │ │ ├── ThrdDemo.dpr │ │ ├── ThrdDemo.dproj │ │ ├── ThrdDemo.res │ │ └── test.py │ ├── FPC │ │ ├── Demo01 │ │ │ ├── fpc-res.or │ │ │ ├── fpc-res.res │ │ │ ├── project1.ico │ │ │ ├── project1.lpi │ │ │ ├── project1.lpr │ │ │ ├── project1.lrs │ │ │ ├── project1.manifest │ │ │ ├── project1.rc │ │ │ ├── project1.res │ │ │ ├── unit1.lfm │ │ │ ├── unit1.lrs │ │ │ └── unit1.pas │ │ ├── Demo06 │ │ │ ├── Project1.ico │ │ │ ├── Project1.lpi │ │ │ ├── Project1.lpr │ │ │ ├── Project1.res │ │ │ ├── Unit1.lfm │ │ │ └── Unit1.pas │ │ ├── Demo25 │ │ │ ├── fpc-res.or │ │ │ ├── fpc-res.res │ │ │ ├── link.res │ │ │ ├── ppas.bat │ │ │ ├── project1.ico │ │ │ ├── project1.lpi │ │ │ ├── project1.lpr │ │ │ ├── project1.lrs │ │ │ ├── project1.manifest │ │ │ ├── project1.rc │ │ │ ├── project1.res │ │ │ ├── unit1.lfm │ │ │ ├── unit1.lrs │ │ │ └── unit1.pas │ │ └── Demo31 │ │ │ ├── Project1.lpi │ │ │ ├── Project1.lpr │ │ │ ├── Project1.res │ │ │ ├── Project1_Icon.ico │ │ │ ├── Unit1.lfm │ │ │ ├── Unit1.pas │ │ │ ├── Unit2.lfm │ │ │ └── Unit2.pas │ └── readme.txt ├── Deployment.txt ├── Modules │ ├── Delphi │ │ ├── Delphi.dof │ │ ├── Delphi.dpr │ │ ├── Delphi.res │ │ └── uMain.pas │ └── TestApp.py ├── Python.txt ├── Readme.txt ├── To do.txt ├── Tutorial.txt └── deploying p4d.pdf ├── PythonVCL ├── Components │ ├── PythonVCL_d3.dpk │ ├── PythonVCL_d3.res │ └── Sources │ │ └── VCL │ │ ├── D3 │ │ ├── Delphi_Classes.pas │ │ ├── Delphi_Controls.pas │ │ ├── Delphi_Dialogs.pas │ │ ├── Delphi_ExtCtrls.pas │ │ ├── Delphi_Forms.pas │ │ ├── Delphi_Graphics.pas │ │ ├── Delphi_Menus.pas │ │ ├── Delphi_StdCtrls.pas │ │ ├── Delphi_System.pas │ │ ├── PyDelphiAssoc.pas │ │ ├── PyRecords.pas │ │ ├── PyVarArg.pas │ │ ├── Py_Misc.pas │ │ ├── PythonVclStd.dcr │ │ ├── PythonVclStd.pas │ │ ├── Python_Classes.pas │ │ ├── Python_Controls.pas │ │ ├── Python_Dialogs.pas │ │ ├── Python_ExtCtrls.pas │ │ ├── Python_Forms.pas │ │ ├── Python_Graphics.pas │ │ ├── Python_Menus.pas │ │ ├── Python_StdCtrls.pas │ │ └── Python_System.pas │ │ └── D4 │ │ ├── Delphi_ActnList.pas │ │ ├── Delphi_Classes.pas │ │ ├── Delphi_Controls.pas │ │ ├── Delphi_Dialogs.pas │ │ ├── Delphi_ExtCtrls.pas │ │ ├── Delphi_Forms.pas │ │ ├── Delphi_Graphics.pas │ │ ├── Delphi_ImgList.pas │ │ ├── Delphi_Menus.pas │ │ ├── Delphi_StdCtrls.pas │ │ ├── Delphi_System.pas │ │ ├── PyDelphiAssoc.pas │ │ ├── PyRecords.pas │ │ ├── PyVarArg.pas │ │ ├── Py_Misc.pas │ │ ├── PythonVclStd.pas │ │ ├── Python_ActnList.pas │ │ ├── Python_Classes.pas │ │ ├── Python_Controls.pas │ │ ├── Python_Dialogs.pas │ │ ├── Python_ExtCtrls.pas │ │ ├── Python_Forms.pas │ │ ├── Python_Graphics.pas │ │ ├── Python_ImgList.pas │ │ ├── Python_Menus.pas │ │ ├── Python_StdCtrls.pas │ │ └── Python_System.pas ├── Lib │ └── delphi │ │ ├── D3 │ │ ├── Classes.py │ │ ├── Controls.py │ │ ├── ExtCtrls.py │ │ ├── Forms.py │ │ ├── Graphics.py │ │ ├── Menus.py │ │ ├── StdCtrls.py │ │ └── System.py │ │ └── D4 │ │ ├── ActnList.py │ │ ├── Classes.py │ │ ├── Controls.py │ │ ├── Dialogs.py │ │ ├── ExtCtrls.py │ │ ├── Forms.py │ │ ├── Graphics.py │ │ ├── ImgList.py │ │ ├── Menus.py │ │ ├── StdCtrls.py │ │ └── System.py ├── PyDelphi │ ├── Childwin.dfm │ ├── Childwin.pas │ ├── Components used │ │ └── Mruflist.pas │ ├── Lisp.py │ ├── MAIN.dfm │ ├── Main.pas │ ├── Misc.pas │ ├── NewMemoryManager.pas │ ├── PyDelphi.dof │ ├── PyDelphi.dpr │ ├── PyDelphi.ico │ ├── PyDelphi.res │ ├── PyDelphiForm.dfm │ ├── SetPath.py │ ├── To do.txt │ ├── fmAbout.dfm │ ├── fmAbout.pas │ ├── fmFind.dfm │ ├── fmFind.pas │ ├── fmOutput.dfm │ ├── fmOutput.pas │ ├── fmReplace.dfm │ ├── fmReplace.pas │ ├── fmTraceBack.dfm │ ├── fmTraceBack.pas │ ├── qrPrintText.dfm │ ├── qrPrintText.pas │ ├── test.py │ └── test2.py ├── Readme.txt └── VCL Generator │ ├── ReadMe.txt │ ├── Standard_d3.prj │ ├── Standard_d4.prj │ ├── VCLGenerator.dof │ ├── VCLGenerator.dpr │ ├── VCLGenerator.res │ ├── fmAbout.dfm │ ├── fmAbout.pas │ ├── fmMain.dfm │ ├── fmMain.pas │ ├── fmOptions.dfm │ ├── fmOptions.pas │ ├── fmSettings.dfm │ ├── fmSettings.pas │ ├── log.txt │ ├── options.dat │ ├── to do.txt │ ├── unHash.pas │ ├── unMisc.pas │ ├── unParser.pas │ └── unUnitParser.pas ├── README.md └── clean.bat /Install/AfterInstallPyScripter.txt: -------------------------------------------------------------------------------- 1 | Versions later than 1.8 contain support for remote debugging. Read 2 | http://pyscripter.googlepages.com/remotepythonengines for details. 3 | Please note that to use remote debugging you need to download and 4 | install the Python package Rpyc version 2.6, available for download from 5 | http://sourceforge.net/projects/rpyc. (highly recommended). 6 | 7 | To install rpyc, unzip the downloaded file into the lib\site-packages 8 | subdirectory of the Python distribution. Repeat this for each version 9 | of Python you're interested in using. 10 | 11 | Please visit http:\\pyscripter.googlepages.com for information about 12 | remote debugging and other PyScripter related topics. 13 | -------------------------------------------------------------------------------- /Install/Andy Bulka Tutorials.url: -------------------------------------------------------------------------------- 1 | [DEFAULT] 2 | BASEURL=http://www.atug.com/andypatterns/pythonDelphiTalk.htm 3 | [InternetShortcut] 4 | URL=http://www.atug.com/andypatterns/pythonDelphiTalk.htm 5 | Modified=D039849BA640C501D4 6 | -------------------------------------------------------------------------------- /Install/BeforeInstallPyScripter.txt: -------------------------------------------------------------------------------- 1 | Before using PyScripter, you must ensure that there is a version of Python 2 | greater or equal to 2.3 installed on your machine. 3 | If not, you can download one from http://www.python.org/ 4 | 5 | You can also check if there is a newest version of PyScripter at 6 | http://pyscripter.googlepages.com/ 7 | 8 | Thanks for your interest in PyScripter. -------------------------------------------------------------------------------- /Install/Copy of PythonForDelphi.wse: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/Copy of PythonForDelphi.wse -------------------------------------------------------------------------------- /Install/Dll/P4D.dpr: -------------------------------------------------------------------------------- 1 | library P4D; 2 | 3 | { Important note about DLL memory management: ShareMem must be the 4 | first unit in your library's USES clause AND your project's (select 5 | Project-View Source) USES clause if your DLL exports any procedures or 6 | functions that pass strings as parameters or function results. This 7 | applies to all strings passed to and from your DLL--even those that 8 | are nested in records and classes. ShareMem is the interface unit to 9 | the BORLNDMM.DLL shared memory manager, which must be deployed along 10 | with your DLL. To avoid using BORLNDMM.DLL, pass string information 11 | using PChar or ShortString parameters. } 12 | 13 | uses 14 | SysUtils, 15 | Classes, 16 | fmDelphiInstall in 'fmDelphiInstall.pas' {DelphiInstall}; 17 | 18 | {$R *.RES} 19 | 20 | exports 21 | OpenDialog; 22 | begin 23 | end. 24 | -------------------------------------------------------------------------------- /Install/Dll/P4D.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/Dll/P4D.res -------------------------------------------------------------------------------- /Install/Dll/PythonTitle.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/Dll/PythonTitle.bmp -------------------------------------------------------------------------------- /Install/Dll/Test/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}, 6 | fmDelphiInstall in '..\fmDelphiInstall.pas' {DelphiInstall}; 7 | 8 | {$R *.RES} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.CreateForm(TDelphiInstall, DelphiInstall); 14 | Application.Run; 15 | end. 16 | -------------------------------------------------------------------------------- /Install/Dll/Test/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/Dll/Test/Project1.res -------------------------------------------------------------------------------- /Install/Dll/Test/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 227 3 | Top = 107 4 | Width = 562 5 | Height = 383 6 | Caption = 'Form1' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object Button1: TButton 17 | Left = 176 18 | Top = 120 19 | Width = 75 20 | Height = 25 21 | Caption = 'Open' 22 | TabOrder = 0 23 | OnClick = Button1Click 24 | end 25 | end 26 | -------------------------------------------------------------------------------- /Install/Dll/Test/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 7 | StdCtrls; 8 | 9 | type 10 | TForm1 = class(TForm) 11 | Button1: TButton; 12 | procedure Button1Click(Sender: TObject); 13 | private 14 | { Private declarations } 15 | public 16 | { Public declarations } 17 | end; 18 | 19 | var 20 | Form1: TForm1; 21 | 22 | implementation 23 | 24 | uses fmDelphiInstall; 25 | 26 | {$R *.DFM} 27 | 28 | procedure TForm1.Button1Click(Sender: TObject); 29 | begin 30 | DelphiInstall.ShowModal; 31 | end; 32 | 33 | end. 34 | -------------------------------------------------------------------------------- /Install/Dll/fmDelphiInstall.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/Dll/fmDelphiInstall.pas -------------------------------------------------------------------------------- /Install/Dll/python.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/Dll/python.bmp -------------------------------------------------------------------------------- /Install/Home Site.URL: -------------------------------------------------------------------------------- 1 | [InternetShortcut] 2 | URL=http://mmm-experts.com/ 3 | Modified=B06CE2A7A640C50151 4 | -------------------------------------------------------------------------------- /Install/Mark Hammond Pythonwin.URL: -------------------------------------------------------------------------------- 1 | [InternetShortcut] 2 | URL=http://starship.python.net/crew/mhammond/ 3 | -------------------------------------------------------------------------------- /Install/PyScripter.iss: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/PyScripter.iss -------------------------------------------------------------------------------- /Install/Python official site.URL: -------------------------------------------------------------------------------- 1 | [InternetShortcut] 2 | URL=http://www.python.org 3 | IconFile=http://www.python.org/favicon.ico 4 | IconIndex=1 5 | -------------------------------------------------------------------------------- /Install/PythonForDelphi.wse: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/PythonForDelphi.wse -------------------------------------------------------------------------------- /Install/PythonTitle.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/PythonTitle.bmp -------------------------------------------------------------------------------- /Install/ReadMe.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/ReadMe.txt -------------------------------------------------------------------------------- /Install/Yahoo! Groups pythonfordelphi.url: -------------------------------------------------------------------------------- 1 | [DEFAULT] 2 | BASEURL=http://groups.yahoo.com/group/pythonfordelphi/ 3 | [InternetShortcut] 4 | URL=http://groups.yahoo.com/group/pythonfordelphi/ 5 | Modified=50793E904D49C501F3 6 | -------------------------------------------------------------------------------- /Install/python.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/Install/python.bmp -------------------------------------------------------------------------------- /PythonForDelphi/Components/Compile_PythonVCL_d5.bat: -------------------------------------------------------------------------------- 1 | "C:\Program Files\Borland\Delphi5\bin\dcc32.exe" PythonVCL_d5.dpk /USources\Core;Sources\Vcl /RSources\Core;Sources\Vcl 2 | pause 3 | 4 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Compile_Python_d5.bat: -------------------------------------------------------------------------------- 1 | "C:\Program Files\Borland\Delphi5\bin\dcc32.exe" Python_d5.dpk /USources\Core;Sources\Vcl /RSources\Core;Sources\Vcl 2 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/P4DFpc.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. Do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit P4DFpc; 6 | 7 | interface 8 | 9 | uses 10 | PythonEngine, MethodCallBack, TinyWideStrings, VarPyth, WrapDelphiClasses, 11 | WrapDelphiTypes, LazarusPackageIntf; 12 | 13 | implementation 14 | 15 | procedure Register; 16 | begin 17 | RegisterUnit('PythonEngine', @PythonEngine.Register); 18 | end; 19 | 20 | initialization 21 | RegisterPackage('P4DFpc', @Register); 22 | end. 23 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PyDelphi.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PyDelphi.ico -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_2010.dpk: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | package PythonVCL_2010; 5 | 6 | {$R *.res} 7 | {$R 'Sources\VCL\PythonDatabase.dcr'} 8 | {$ALIGN 8} 9 | {$ASSERTIONS ON} 10 | {$BOOLEVAL OFF} 11 | {$DEBUGINFO ON} 12 | {$EXTENDEDSYNTAX ON} 13 | {$IMPORTEDDATA ON} 14 | {$IOCHECKS ON} 15 | {$LOCALSYMBOLS ON} 16 | {$LONGSTRINGS ON} 17 | {$OPENSTRINGS ON} 18 | {$OPTIMIZATION ON} 19 | {$OVERFLOWCHECKS OFF} 20 | {$RANGECHECKS OFF} 21 | {$REFERENCEINFO ON} 22 | {$SAFEDIVIDE OFF} 23 | {$STACKFRAMES OFF} 24 | {$TYPEDADDRESS OFF} 25 | {$VARSTRINGCHECKS ON} 26 | {$WRITEABLECONST OFF} 27 | {$MINENUMSIZE 1} 28 | {$IMAGEBASE $400000} 29 | {$DESCRIPTION 'VCL Components for Python'} 30 | {$IMPLICITBUILD OFF} 31 | 32 | requires 33 | rtl, 34 | vcl, 35 | dbrtl, 36 | bdertl, 37 | Python_2010; 38 | 39 | contains 40 | PythonDatabase in 'Sources\VCL\PythonDatabase.pas', 41 | pyDB in 'Sources\VCL\pyDB.pas', 42 | pyDBTables in 'Sources\VCL\pyDBTables.pas'; 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_2010.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_2010.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_XE2.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_XE2; 2 | 3 | {$R *.res} 4 | {$R 'Sources\VCL\PythonDatabase.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'VCL Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | vcl, 32 | dbrtl, 33 | // bdertl, 34 | Python_XE2; 35 | 36 | contains 37 | PythonDatabase in 'Sources\VCL\PythonDatabase.pas', 38 | pyDB in 'Sources\VCL\pyDB.pas', 39 | pyDBTables in 'Sources\VCL\pyDBTables.pas'; 40 | 41 | end. 42 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_bds3.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_bds3; 2 | 3 | {$R *.res} 4 | {$R 'Sources\VCL\PythonDatabase.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'VCL Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | vcl, 32 | dbrtl, 33 | bdertl, 34 | Python_bds3; 35 | 36 | contains 37 | PythonDatabase in 'Sources\VCL\PythonDatabase.pas', 38 | pyDB in 'Sources\VCL\pyDB.pas', 39 | pyDBTables in 'Sources\VCL\pyDBTables.pas'; 40 | 41 | end. 42 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_bds3.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_bds3.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb3.bpk: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_cb3.bpk -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb3.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | USERES("PythonVCL_cb3.res"); 5 | USEPACKAGE("VCL35.bpi"); 6 | USEPACKAGE("VCLDB35.bpi"); 7 | USEPACKAGE("Python_cb3.bpi"); 8 | USEUNIT("Sources\VCL\PythonDatabase.pas"); 9 | USERES("Sources\VCL\PythonDatabase.dcr"); 10 | USEUNIT("Sources\VCL\pyDBTables.pas"); 11 | USEUNIT("Sources\VCL\pyDB.pas"); 12 | //--------------------------------------------------------------------------- 13 | #pragma package(smart_init) 14 | //--------------------------------------------------------------------------- 15 | // Source du paquet. 16 | //--------------------------------------------------------------------------- 17 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 18 | { 19 | return 1; 20 | } 21 | //--------------------------------------------------------------------------- 22 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb3.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_cb3; 2 | 3 | {$R *.RES} 4 | {$R 'PythonDatabase.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $00400000} 26 | {$DESCRIPTION 'VCL Components for Python'} 27 | {$DESIGNONLY} 28 | {$IMPLICITBUILD ON} 29 | 30 | requires 31 | VCLDB35, 32 | Python_cb3; 33 | 34 | contains 35 | pyDB, 36 | pyDBTables, 37 | PythonDatabase; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb3.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_cb3.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb4.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | USERES("PythonVCL_cb4.res"); 5 | USEPACKAGE("vcl40.bpi"); 6 | USEUNIT("Sources\VCL\PythonDatabase.pas"); 7 | USERES("Sources\VCL\PythonDatabase.dcr"); 8 | USEUNIT("Sources\VCL\pyDBTables.pas"); 9 | USEUNIT("Sources\VCL\pyDB.pas"); 10 | USEPACKAGE("vcldb40.bpi"); 11 | USEPACKAGE("Python_cb4.bpi"); 12 | //--------------------------------------------------------------------------- 13 | #pragma package(smart_init) 14 | //--------------------------------------------------------------------------- 15 | // Package source. 16 | //--------------------------------------------------------------------------- 17 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 18 | { 19 | return 1; 20 | } 21 | //--------------------------------------------------------------------------- 22 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb4.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_cb4; 2 | 3 | {$R *.RES} 4 | {$R 'Sources\VCL\PythonDatabase.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $00400000} 26 | {$DESCRIPTION 'VCL Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl40, 31 | Vcldb40, 32 | Python_cb4; 33 | 34 | contains 35 | PythonDatabase in 'Sources\VCL\PythonDatabase.pas', 36 | pyDB in 'Sources\VCL\pyDB.pas', 37 | pyDBTables in 'sources\VCL\pyDBTables.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb4.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_cb4.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb5.bpi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_cb5.bpi -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb5.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | USERES("PythonVCL_cb5.res"); 5 | USEUNIT("Sources\VCL\PythonDatabase.pas"); 6 | USERES("Sources\VCL\PythonDatabase.dcr"); 7 | USEUNIT("Sources\VCL\pyDBTables.pas"); 8 | USEUNIT("Sources\VCL\pyDB.pas"); 9 | USEPACKAGE("Python_cb5.bpi"); 10 | USEPACKAGE("vcl50.bpi"); 11 | USEPACKAGE("vcldb50.bpi"); 12 | USEPACKAGE("vclbde50.bpi"); 13 | //--------------------------------------------------------------------------- 14 | #pragma package(smart_init) 15 | //--------------------------------------------------------------------------- 16 | // Package source. 17 | //--------------------------------------------------------------------------- 18 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 19 | { 20 | return 1; 21 | } 22 | //--------------------------------------------------------------------------- 23 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb5.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_cb5.lib -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb5.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_cb5.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb6.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | USERES("PythonVCL_cb6.res"); 5 | USEUNIT("Sources\VCL\PythonDatabase.pas"); 6 | USERES("Sources\VCL\PythonDatabase.dcr"); 7 | USEUNIT("Sources\VCL\pyDBTables.pas"); 8 | USEUNIT("Sources\VCL\pyDB.pas"); 9 | USEPACKAGE("Python_cb6.bpi"); 10 | USEPACKAGE("vcl60.bpi"); 11 | //USEPACKAGE("vcldb60.bpi"); 12 | //USEPACKAGE("vclbde60.bpi"); 13 | //--------------------------------------------------------------------------- 14 | #pragma package(smart_init) 15 | //--------------------------------------------------------------------------- 16 | // Package source. 17 | //--------------------------------------------------------------------------- 18 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 19 | { 20 | return 1; 21 | } 22 | //--------------------------------------------------------------------------- 23 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_cb6.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_cb6.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d3.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_d3; 2 | 3 | {$R *.RES} 4 | {$R 'PythonDatabase.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $00400000} 26 | {$DESCRIPTION 'VCL Components for Python'} 27 | {$DESIGNONLY} 28 | {$IMPLICITBUILD ON} 29 | 30 | requires 31 | vcl30, 32 | VCLDB30, 33 | Python_d3; 34 | 35 | contains 36 | pyDB, 37 | pyDBTables, 38 | PythonDatabase; 39 | 40 | end. 41 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d3.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_d3.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d4.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_d4; 2 | 3 | {$R *.RES} 4 | {$R 'Sources\VCL\PythonDatabase.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $00400000} 26 | {$DESCRIPTION 'VCL Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl40, 31 | Vcldb40, 32 | Python_d4; 33 | 34 | contains 35 | PythonDatabase in 'Sources\VCL\PythonDatabase.pas', 36 | pyDB in 'Sources\VCL\pyDB.pas', 37 | pyDBTables in 'sources\VCL\pyDBTables.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d4.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_d4.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d5.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_d5; 2 | 3 | {$R *.RES} 4 | {$R 'Sources\VCL\PythonDatabase.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'VCL Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl50, 31 | Vcldb50, 32 | Vclbde50, 33 | Python_d5; 34 | 35 | contains 36 | pyDB in 'Sources\VCL\pyDB.pas', 37 | pyDBTables in 'Sources\VCL\pyDBTables.pas', 38 | PythonDatabase in 'Sources\VCL\PythonDatabase.pas'; 39 | 40 | end. 41 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d5.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_d5.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d6.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=6.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=1 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=1 19 | P=1 20 | Q=0 21 | R=0 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | [Linker] 34 | MapFile=0 35 | OutputObjs=0 36 | ConsoleApp=1 37 | DebugInfo=0 38 | RemoteSymbols=0 39 | MinStackSize=16384 40 | MaxStackSize=1048576 41 | ImageBase=4194304 42 | ExeDescription=VCL Components for Python 43 | [Directories] 44 | OutputDir= 45 | UnitOutputDir= 46 | PackageDLLOutputDir= 47 | PackageDCPOutputDir= 48 | SearchPath= 49 | Packages= 50 | Conditionals= 51 | DebugSourceDirs= 52 | UsePackages=0 53 | [Parameters] 54 | RunParams= 55 | HostApplication= 56 | Launcher= 57 | UseLauncher=0 58 | DebugCWD= 59 | [Language] 60 | ActiveLang= 61 | ProjectLang= 62 | RootDir= 63 | [Version Info] 64 | IncludeVerInfo=1 65 | AutoIncBuild=0 66 | MajorVer=1 67 | MinorVer=0 68 | Release=0 69 | Build=0 70 | Debug=0 71 | PreRelease=0 72 | Special=0 73 | Private=0 74 | DLL=0 75 | Locale=1033 76 | CodePage=1252 77 | [Version Info Keys] 78 | CompanyName= 79 | FileDescription= 80 | FileVersion=1.0.0.0 81 | InternalName= 82 | LegalCopyright= 83 | LegalTrademarks= 84 | OriginalFilename= 85 | ProductName= 86 | ProductVersion=1.0.0.0 87 | Comments= 88 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d6.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_d6; 2 | 3 | {$R *.res} 4 | {$R 'Sources\VCL\PythonDatabase.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'VCL Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl, 31 | vcldb, 32 | bdertl, 33 | Python_d6; 34 | 35 | contains 36 | pyDB in 'Sources\VCL\pyDB.pas', 37 | pyDBTables in 'Sources\VCL\pyDBTables.pas', 38 | PythonDatabase in 'Sources\VCL\PythonDatabase.pas'; 39 | 40 | end. 41 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d6.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_d6.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d7.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_d7; 2 | 3 | {$R *.res} 4 | {$R 'Sources\VCL\PythonDatabase.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'VCL Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl, 31 | vcldb, 32 | bdertl, 33 | Python_d7; 34 | 35 | contains 36 | pyDB in 'Sources\VCL\pyDB.pas', 37 | pyDBTables in 'Sources\VCL\pyDBTables.pas', 38 | PythonDatabase in 'Sources\VCL\PythonDatabase.pas'; 39 | 40 | end. 41 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/PythonVCL_d7.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/PythonVCL_d7.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_2010.dpk: -------------------------------------------------------------------------------- 1 | package Python_2010; 2 | 3 | {$R *.res} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | vcl; 32 | 33 | contains 34 | MethodCallBack in 'Sources\Core\MethodCallBack.pas', 35 | PythonEngine in 'Sources\Core\PythonEngine.pas', 36 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 37 | WrapDelphi in 'Sources\Core\WrapDelphi.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_2010.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_2010.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_D10_2.dres: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_D10_2.dres -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_D10_2.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_D10_2.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_D10_2Resource.rc: -------------------------------------------------------------------------------- 1 | Icon_1 ICON "PyDelphi.ico" 2 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_XE2.dpk: -------------------------------------------------------------------------------- 1 | package Python_XE2; 2 | 3 | {$R *.res} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO ON} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS ON} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION OFF} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO ON} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES ON} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DEFINE DEBUG} 28 | {$ENDIF IMPLICITBUILDING} 29 | {$DESCRIPTION 'Components for Python'} 30 | {$IMPLICITBUILD OFF} 31 | 32 | requires 33 | rtl, 34 | vcl; 35 | 36 | contains 37 | MethodCallBack in 'Sources\Core\MethodCallBack.pas', 38 | PythonEngine in 'Sources\Core\PythonEngine.pas', 39 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 40 | WrapDelphi in 'Sources\Core\WrapDelphi.pas'; 41 | 42 | end. 43 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_XE7.dpk: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | package Python_XE7; 4 | 5 | {$R *.res} 6 | {$R 'Sources\Core\PythonEngine.dcr'} 7 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 8 | {$ALIGN 8} 9 | {$ASSERTIONS ON} 10 | {$BOOLEVAL OFF} 11 | {$DEBUGINFO ON} 12 | {$EXTENDEDSYNTAX ON} 13 | {$IMPORTEDDATA ON} 14 | {$IOCHECKS ON} 15 | {$LOCALSYMBOLS ON} 16 | {$LONGSTRINGS ON} 17 | {$OPENSTRINGS ON} 18 | {$OPTIMIZATION OFF} 19 | {$OVERFLOWCHECKS OFF} 20 | {$RANGECHECKS OFF} 21 | {$REFERENCEINFO ON} 22 | {$SAFEDIVIDE OFF} 23 | {$STACKFRAMES ON} 24 | {$TYPEDADDRESS OFF} 25 | {$VARSTRINGCHECKS ON} 26 | {$WRITEABLECONST OFF} 27 | {$MINENUMSIZE 1} 28 | {$IMAGEBASE $400000} 29 | {$DEFINE DEBUG} 30 | {$ENDIF IMPLICITBUILDING} 31 | {$DESCRIPTION 'Components for Python'} 32 | {$IMPLICITBUILD OFF} 33 | 34 | requires 35 | rtl, 36 | vcl; 37 | 38 | contains 39 | MethodCallBack in 'Sources\Core\MethodCallBack.pas', 40 | PythonEngine in 'Sources\Core\PythonEngine.pas', 41 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 42 | WrapDelphi in 'Sources\Core\WrapDelphi.pas'; 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_bds3.dpk: -------------------------------------------------------------------------------- 1 | package Python_bds3; 2 | 3 | {$R *.res} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | vcl; 32 | 33 | contains 34 | MethodCallBack in 'Sources\Core\MethodCallBack.pas', 35 | PythonEngine in 'Sources\Core\PythonEngine.pas', 36 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 37 | WrapDelphi in 'Sources\Core\WrapDelphi.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_bds3.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_bds3.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_bds5.dpk: -------------------------------------------------------------------------------- 1 | package Python_bds5; 2 | 3 | {$R *.res} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | vcl; 32 | 33 | contains 34 | MethodCallBack in 'Sources\Core\MethodCallBack.pas', 35 | PythonEngine in 'Sources\Core\PythonEngine.pas', 36 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 37 | WrapDelphi in 'Sources\Core\WrapDelphi.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_bds6.dpk: -------------------------------------------------------------------------------- 1 | package Python_bds6; 2 | 3 | {$R *.res} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | vcl; 32 | 33 | contains 34 | MethodCallBack in 'Sources\Core\MethodCallBack.pas', 35 | PythonEngine in 'Sources\Core\PythonEngine.pas', 36 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 37 | WrapDelphi in 'Sources\Core\WrapDelphi.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_bds7.dpk: -------------------------------------------------------------------------------- 1 | package Python_bds7; 2 | 3 | {$R *.res} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | rtl, 31 | vcl; 32 | 33 | contains 34 | MethodCallBack in 'Sources\Core\MethodCallBack.pas', 35 | PythonEngine in 'Sources\Core\PythonEngine.pas', 36 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 37 | WrapDelphi in 'Sources\Core\WrapDelphi.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb3.bpk: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb3.bpk -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb3.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | USERES("Python_cb3.res"); 5 | USEPACKAGE("VCL35.bpi"); 6 | USEUNIT("Sources\Core\PythonGUIInputOutput.pas"); 7 | USEUNIT("Sources\Core\PythonEngine.pas"); 8 | USERES("Sources\Core\PythonEngine.dcr"); 9 | USEUNIT("Sources\Core\MethodCallBack.pas"); 10 | //--------------------------------------------------------------------------- 11 | #pragma package(smart_init) 12 | //--------------------------------------------------------------------------- 13 | // Source du paquet. 14 | //--------------------------------------------------------------------------- 15 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 16 | { 17 | return 1; 18 | } 19 | //--------------------------------------------------------------------------- 20 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb3.dpk: -------------------------------------------------------------------------------- 1 | package Python_cb3; 2 | 3 | {$R *.RES} 4 | {$R 'PythonEngine.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $00400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$DESIGNONLY} 28 | {$IMPLICITBUILD ON} 29 | 30 | requires 31 | vcl35; 32 | 33 | contains 34 | PythonEngine, 35 | MethodCallback, 36 | PythonGUIInputOutput; 37 | 38 | end. 39 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb3.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb3.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb4.bpi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb4.bpi -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb4.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | USERES("Python_cb4.res"); 5 | USEPACKAGE("vcl40.bpi"); 6 | USEUNIT("Sources\Core\PythonGUIInputOutput.pas"); 7 | USEUNIT("Sources\Core\PythonEngine.pas"); 8 | USERES("Sources\Core\PythonEngine.dcr"); 9 | USEUNIT("Sources\Core\MethodCallBack.pas"); 10 | USEUNIT("Sources\Core\AtomPythonEngine.pas"); 11 | USEUNIT("Sources\Core\PythonAtom.pas"); 12 | //--------------------------------------------------------------------------- 13 | #pragma package(smart_init) 14 | //--------------------------------------------------------------------------- 15 | // Package source. 16 | //--------------------------------------------------------------------------- 17 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 18 | { 19 | return 1; 20 | } 21 | //--------------------------------------------------------------------------- 22 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb4.dpk: -------------------------------------------------------------------------------- 1 | package Python_cb4; 2 | 3 | {$R *.RES} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $00400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl40; 31 | 32 | contains 33 | PythonEngine in 'Sources\Core\PythonEngine.pas', 34 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 35 | MethodCallback in 'Sources\Core\MethodCallBack.pas'; 36 | 37 | end. 38 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb4.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb4.lib -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb4.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb4.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb5.bpi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb5.bpi -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb5.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | USERES("Python_cb5.res"); 5 | USEUNIT("Sources\Core\PythonGUIInputOutput.pas"); 6 | USEUNIT("Sources\Core\PythonEngine.pas"); 7 | USERES("Sources\Core\PythonEngine.dcr"); 8 | USEUNIT("Sources\Core\MethodCallBack.pas"); 9 | USEPACKAGE("vcl50.bpi"); 10 | //--------------------------------------------------------------------------- 11 | #pragma package(smart_init) 12 | //--------------------------------------------------------------------------- 13 | // Package source. 14 | //--------------------------------------------------------------------------- 15 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 16 | { 17 | return 1; 18 | } 19 | //--------------------------------------------------------------------------- 20 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb5.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb5.lib -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb5.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb5.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb6.bpi: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb6.bpi -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb6.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | #pragma package(smart_init) 5 | //--------------------------------------------------------------------------- 6 | // Package source. 7 | //--------------------------------------------------------------------------- 8 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 9 | { 10 | return 1; 11 | } 12 | //--------------------------------------------------------------------------- 13 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb6.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb6.lib -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_cb6.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_cb6.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d3.dpk: -------------------------------------------------------------------------------- 1 | package Python_d3; 2 | 3 | {$R *.RES} 4 | {$R 'PythonEngine.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $00400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$DESIGNONLY} 28 | {$IMPLICITBUILD ON} 29 | 30 | requires 31 | vcl30; 32 | 33 | contains 34 | PythonEngine, 35 | MethodCallback, 36 | PythonGUIInputOutput, 37 | AtomPythonEngine, 38 | PythonAtom; 39 | 40 | end. 41 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d3.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_d3.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d4.dof: -------------------------------------------------------------------------------- 1 | [Compiler] 2 | A=1 3 | B=0 4 | C=1 5 | D=1 6 | E=0 7 | F=0 8 | G=1 9 | H=1 10 | I=1 11 | J=1 12 | K=0 13 | L=1 14 | M=0 15 | N=1 16 | O=1 17 | P=1 18 | Q=0 19 | R=0 20 | S=0 21 | T=0 22 | U=0 23 | V=1 24 | W=0 25 | X=1 26 | Y=1 27 | Z=1 28 | ShowHints=1 29 | ShowWarnings=1 30 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 31 | [Linker] 32 | MapFile=0 33 | OutputObjs=0 34 | ConsoleApp=1 35 | DebugInfo=0 36 | RemoteSymbols=0 37 | MinStackSize=16384 38 | MaxStackSize=1048576 39 | ImageBase=4194304 40 | ExeDescription=Components for Python 41 | [Directories] 42 | OutputDir= 43 | UnitOutputDir= 44 | PackageDLLOutputDir= 45 | PackageDCPOutputDir= 46 | SearchPath= 47 | Packages= 48 | Conditionals= 49 | DebugSourceDirs= 50 | UsePackages=0 51 | [Parameters] 52 | RunParams= 53 | HostApplication= 54 | [Version Info] 55 | IncludeVerInfo=1 56 | AutoIncBuild=0 57 | MajorVer=1 58 | MinorVer=0 59 | Release=0 60 | Build=0 61 | Debug=0 62 | PreRelease=0 63 | Special=0 64 | Private=0 65 | DLL=0 66 | Locale=1033 67 | CodePage=1252 68 | [Version Info Keys] 69 | CompanyName= 70 | FileDescription= 71 | FileVersion=1.0.0.0 72 | InternalName= 73 | LegalCopyright= 74 | LegalTrademarks= 75 | OriginalFilename= 76 | ProductName= 77 | ProductVersion=1.0.0.0 78 | Comments= 79 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d4.dpk: -------------------------------------------------------------------------------- 1 | package Python_d4; 2 | 3 | {$R *.RES} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $00400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl40; 31 | 32 | contains 33 | PythonEngine in 'Sources\Core\PythonEngine.pas', 34 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 35 | MethodCallback in 'Sources\Core\MethodCallBack.pas', 36 | AtomPythonEngine in 'Sources\Core\AtomPythonEngine.pas', 37 | PythonAtom in 'Sources\Core\PythonAtom.pas'; 38 | 39 | end. 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d4.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_d4.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d5.dpk: -------------------------------------------------------------------------------- 1 | package Python_d5; 2 | 3 | {$R *.RES} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl50; 31 | 32 | contains 33 | PythonEngine in 'Sources\Core\PythonEngine.pas', 34 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 35 | MethodCallback in 'Sources\Core\MethodCallBack.pas', 36 | WrapDelphi in 'Sources\Core\WrapDelphi.pas', 37 | AtomPythonEngine in 'Sources\Core\AtomPythonEngine.pas', 38 | PythonAtom in 'Sources\Core\PythonAtom.pas', 39 | TinyWideStrings in 'Sources\Core\TinyWideStrings.pas'; 40 | 41 | end. 42 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d5.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_d5.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d6.dpk: -------------------------------------------------------------------------------- 1 | package Python_d6; 2 | 3 | {$R *.res} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl; 31 | 32 | contains 33 | PythonEngine in 'Sources\Core\PythonEngine.pas', 34 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 35 | MethodCallback in 'Sources\Core\MethodCallBack.pas', 36 | WrapDelphi in 'Sources\Core\WrapDelphi.pas', 37 | AtomPythonEngine in 'Sources\Core\AtomPythonEngine.pas', 38 | PythonAtom in 'Sources\Core\PythonAtom.pas'; 39 | 40 | end. 41 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d6.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_d6.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d7.dpk: -------------------------------------------------------------------------------- 1 | package Python_d7; 2 | 3 | {$R *.res} 4 | {$R 'Sources\Core\PythonEngine.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DESCRIPTION 'Components for Python'} 27 | {$IMPLICITBUILD OFF} 28 | 29 | requires 30 | vcl, 31 | rtl; 32 | 33 | contains 34 | PythonEngine in 'Sources\Core\PythonEngine.pas', 35 | WrapDelphi in 'Sources\Core\WrapDelphi.pas', 36 | PythonGUIInputOutput in 'Sources\Core\PythonGUIInputOutput.pas', 37 | MethodCallback in 'Sources\Core\MethodCallBack.pas', 38 | AtomPythonEngine in 'Sources\Core\AtomPythonEngine.pas', 39 | PythonAtom in 'Sources\Core\PythonAtom.pas', 40 | VarPyth in 'Sources\Core\VarPyth.pas', 41 | TinyWideStrings in 'Sources\Core\TinyWideStrings.pas'; 42 | 43 | end. 44 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_d7.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_d7.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_kylix.conf: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -H+ 29 | -W+ 30 | -M 31 | -$M16384,1048576 32 | -K$00400000 33 | -Z 34 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_kylix.dpk: -------------------------------------------------------------------------------- 1 | package Python_kylix; 2 | 3 | {$R *.res} 4 | {$R 'Sources/Core/PythonEngine.dcr'} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO ON} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$IMPLICITBUILD OFF} 27 | 28 | requires 29 | baseclx, 30 | visualclx; 31 | 32 | contains 33 | MethodCallBack in 'Sources/Core/MethodCallBack.pas', 34 | PythonEngine in 'Sources/Core/PythonEngine.pas', 35 | PythonGUIInputOutput in 'Sources/Core/PythonGUIInputOutput.pas'; 36 | 37 | end. 38 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Python_kylix.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Python_kylix.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/Core/Definition.Inc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/Core/Definition.Inc -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/Core/MethodCallBack.hpp: -------------------------------------------------------------------------------- 1 | // Borland C++ Builder 2 | // Copyright (c) 1995, 2002 by Borland Software Corporation 3 | // All rights reserved 4 | 5 | // (DO NOT EDIT: machine generated header) 'MethodCallBack.pas' rev: 6.00 6 | 7 | #ifndef MethodCallBackHPP 8 | #define MethodCallBackHPP 9 | 10 | #pragma delphiheader begin 11 | #pragma option push -w- 12 | #pragma option push -Vx 13 | #include // Pascal unit 14 | #include // Pascal unit 15 | #include // Pascal unit 16 | 17 | //-- user supplied ----------------------------------------------------------- 18 | 19 | namespace Methodcallback 20 | { 21 | //-- type declarations ------------------------------------------------------- 22 | #pragma option push -b- 23 | enum TCallType { ctSTDCALL, ctCDECL }; 24 | #pragma option pop 25 | 26 | typedef void __fastcall (__closure *TCallBack)(void); 27 | 28 | typedef int __stdcall (__closure *TDDEAPIfunc)(int CallType, int Fmt, int Conv, int hsz1, int hsz2, int Data, int Data1, int Data2); 29 | 30 | //-- var, const, procedure --------------------------------------------------- 31 | extern PACKAGE void * __fastcall GetDDECallBack(TDDEAPIfunc method); 32 | extern PACKAGE void * __fastcall GetOfObjectCallBack(TCallBack CallBack, int argnum, TCallType calltype); 33 | extern PACKAGE void * __fastcall GetCallBack(System::TObject* self, void * method, int argnum, TCallType calltype); 34 | extern PACKAGE void __fastcall DeleteCallBack(void * Proc); 35 | 36 | } /* namespace Methodcallback */ 37 | using namespace Methodcallback; 38 | #pragma option pop // -w- 39 | #pragma option pop // -Vx 40 | 41 | #pragma delphiheader end. 42 | //-- end unit ---------------------------------------------------------------- 43 | #endif // MethodCallBack 44 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/Core/PythonEngine.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/Core/PythonEngine.dcr -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/Core/UnitTests/Tests.dpr: -------------------------------------------------------------------------------- 1 | program Tests; 2 | 3 | uses 4 | Forms, 5 | GuiTestRunner, 6 | MethodCallBackTest in 'MethodCallBackTest.pas'; 7 | 8 | {$R *.RES} 9 | 10 | begin 11 | Application.Initialize; 12 | GuiTestRunner.RunRegisteredTests; 13 | end. 14 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/Core/UnitTests/Tests.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/Core/UnitTests/Tests.res -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/Core/WrapDelphiComCtrls.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/Core/WrapDelphiComCtrls.pas -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/Core/WrapDelphiControls.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/Core/WrapDelphiControls.pas -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/Core/WrapDelphiForms.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/Core/WrapDelphiForms.pas -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/Core/WrapDelphiVCL.pas: -------------------------------------------------------------------------------- 1 | unit WrapDelphiVCL; 2 | 3 | { 4 | Helper unit that will register all the wrappers for the VCL. 5 | Instead of including WrapDelphiClasses, WrapDelphiControls... into your uses 6 | clause, simply add WrapDelphiVCL. 7 | } 8 | interface 9 | 10 | implementation 11 | 12 | uses 13 | WrapDelphiTypes, 14 | WrapDelphiClasses, 15 | WrapDelphiWindows, 16 | WrapDelphiControls, 17 | WrapDelphiGraphics, 18 | WrapDelphiForms, 19 | WrapDelphiActnList, 20 | WrapDelphiStdCtrls, 21 | WrapDelphiComCtrls, 22 | WrapDelphiExtCtrls, 23 | WrapDelphiButtons, 24 | WrapDelphiGrids; 25 | 26 | end. 27 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/FireDAC/pyDBFireDac.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/FireDAC/pyDBFireDac.pas -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/VCL/PythonDatabase.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/VCL/PythonDatabase.dcr -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/VCL/PythonDatabase.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/VCL/PythonDatabase.pas -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/VCL/pyDB.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/VCL/pyDB.pas -------------------------------------------------------------------------------- /PythonForDelphi/Components/Sources/VCL/pyDBTables.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/Sources/VCL/pyDBTables.pas -------------------------------------------------------------------------------- /PythonForDelphi/Components/p4dlaz.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. Do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit P4DLaz; 6 | 7 | interface 8 | 9 | uses 10 | PythonEngine, PythonGUIInputOutput, MethodCallBack, TinyWideStrings, 11 | VarPyth, WrapDelphi, WrapDelphiButtons, WrapDelphiClasses, 12 | WrapDelphiControls, WrapDelphiTypes, LazarusPackageIntf; 13 | 14 | implementation 15 | 16 | procedure Register; 17 | begin 18 | RegisterUnit('PythonEngine', @PythonEngine.Register); 19 | RegisterUnit('PythonGUIInputOutput', @PythonGUIInputOutput.Register); 20 | RegisterUnit('WrapDelphi', @WrapDelphi.Register); 21 | end; 22 | 23 | initialization 24 | RegisterPackage('P4DLaz', @Register); 25 | end. 26 | -------------------------------------------------------------------------------- /PythonForDelphi/Components/py15.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/py15.lib -------------------------------------------------------------------------------- /PythonForDelphi/Components/py21.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Components/py21.lib -------------------------------------------------------------------------------- /PythonForDelphi/Components/up4dlaz.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. Do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit uP4DLaz; 6 | 7 | interface 8 | 9 | uses 10 | PythonEngine, PythonGUIInputOutput, MethodCallBack, WrapDelphiWindows, 11 | TinyWideStrings, VarPyth, WrapDelphi, WrapDelphiActnList, WrapDelphiButtons, 12 | WrapDelphiClasses, WrapDelphiComCtrls, WrapDelphiControls, 13 | WrapDelphiExtCtrls, WrapDelphiForms, WrapDelphiGraphics, WrapDelphiGrids, 14 | WrapDelphiStdCtrls, WrapDelphiTypes, WrapDelphiVCL, LazarusPackageIntf; 15 | 16 | implementation 17 | 18 | procedure Register; 19 | begin 20 | RegisterUnit('PythonEngine', @PythonEngine.Register); 21 | RegisterUnit('PythonGUIInputOutput', @PythonGUIInputOutput.Register); 22 | RegisterUnit('WrapDelphi', @WrapDelphi.Register); 23 | RegisterUnit('uP4DLaz', @uP4DLaz.Register); 24 | end; 25 | 26 | initialization 27 | RegisterPackage('P4DLaz', @Register); 28 | end. 29 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo01/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | {$IFDEF MSWINDOWS} 5 | Forms, 6 | {$ENDIF} 7 | {$IFDEF LINUX} 8 | QForms, 9 | {$ENDIF} 10 | Unit1 in 'Unit1.pas' {Form1}; 11 | 12 | {$R *.res} 13 | 14 | begin 15 | Application.Initialize; 16 | Application.CreateForm(TForm1, Form1); 17 | Application.Run; 18 | end. 19 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo01/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo01/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo01/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo01/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo01/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo01/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo01/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo01/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo02/Project1.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | program Project1; 5 | 6 | uses 7 | {$IFDEF MSWINDOWS} 8 | Forms, 9 | {$ENDIF} 10 | {$IFDEF LINUX} 11 | QForms, 12 | {$ENDIF} 13 | Unit1 in 'Unit1.pas' {Form1}; 14 | 15 | {$R *.res} 16 | 17 | begin 18 | Application.Initialize; 19 | Application.CreateForm(TForm1, Form1); 20 | Application.Run; 21 | end. 22 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo02/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo02/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo02/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo02/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo02/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo02/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo02/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo02/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo03/Project1.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | program Project1; 5 | 6 | {$I Definition.Inc} 7 | 8 | uses 9 | {$IFDEF MSWINDOWS} 10 | Forms, 11 | {$ENDIF} 12 | {$IFDEF LINUX} 13 | QForms, 14 | {$ENDIF} 15 | Unit1 in 'Unit1.pas' {Form1}; 16 | 17 | {$R *.res} 18 | 19 | begin 20 | Application.Initialize; 21 | Application.CreateForm(TForm1, Form1); 22 | Application.Run; 23 | end. 24 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo03/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo03/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo03/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo03/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo03/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo03/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo03/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo03/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo04/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | {$IFDEF MSWINDOWS} 5 | Forms, 6 | {$ENDIF} 7 | {$IFDEF LINUX} 8 | QForms, 9 | {$ENDIF} 10 | Unit1 in 'Unit1.pas' {Form1}; 11 | 12 | {$R *.res} 13 | 14 | begin 15 | Application.Initialize; 16 | Application.CreateForm(TForm1, Form1); 17 | Application.Run; 18 | end. 19 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo04/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo04/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo04/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo04/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo04/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo04/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo04/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo04/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo05/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo05/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo05/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo05/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo05/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo05/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo05/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo05/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo05/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo06/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo06/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo06/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo06/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo06/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo06/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo06/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo06/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo06/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo07/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo07/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo07/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo07/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo07/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo07/Project1_Icon1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo07/Project1_Icon1.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo07/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo07/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo07/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo07/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo07/test.py: -------------------------------------------------------------------------------- 1 | import sys 2 | print "Win version:", sys.winver 3 | import spam 4 | print spam.foo('hello world', 1) 5 | p = spam.CreatePoint( 10, 25 ) 6 | print "Point:", p 7 | p.x = 58 8 | print p.x, p 9 | p.OffsetBy( 5, 5 ) 10 | print p 11 | print "Current value of var test is: ", test 12 | test.Value = "New value set by Python" 13 | print spam.getdouble() -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo08/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo08/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo08/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo08/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo08/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo08/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo08/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo08/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo08/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo09/Project1.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | program Project1; 5 | 6 | {$I Definition.Inc} 7 | 8 | uses 9 | {$IFDEF MSWINDOWS} 10 | Forms, 11 | {$ENDIF} 12 | {$IFDEF LINUX} 13 | QForms, 14 | {$ENDIF} 15 | Unit1 in 'Unit1.pas' {Form1}; 16 | 17 | {$R *.res} 18 | 19 | begin 20 | Application.Initialize; 21 | Application.CreateForm(TForm1, Form1); 22 | Application.Run; 23 | end. 24 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo09/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo09/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo09/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo09/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo09/ProjectGroup1.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {DE1835E8-3F23-495E-987E-5FADD5840B51} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo09/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo09/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo09/demodll.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | library demodll; 5 | 6 | {$I Definition.Inc} 7 | 8 | uses 9 | SysUtils, 10 | Classes, 11 | module in 'module.pas'; 12 | 13 | exports 14 | initdemodll, 15 | PyInit_demodll; 16 | {$IFDEF MSWINDOWS} 17 | {$E pyd} 18 | {$ENDIF} 19 | {$IFDEF LINUX} 20 | {$SONAME 'demodll'} 21 | 22 | {$ENDIF} 23 | 24 | begin 25 | end. 26 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo09/demodll.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo09/demodll.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10/Demo10.dpr: -------------------------------------------------------------------------------- 1 | program Demo10; 2 | 3 | uses 4 | Forms, 5 | fmMain in 'fmMain.pas' {Main}, 6 | pyDBTables in 'pyDBTables.pas', 7 | pyDB in 'pyDB.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | Application.Initialize; 13 | Application.CreateForm(TMain, Main); 14 | Application.Run; 15 | end. 16 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10/Demo10.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10/Demo10.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10/Example1.py: -------------------------------------------------------------------------------- 1 | import DBTables 2 | True = 1 3 | False = 0 4 | 5 | # Create and open the table 6 | T = DBTables.CreateTTable() 7 | T.DatabaseName = "DBDemos" 8 | T.TableName = "customer.db" 9 | T.Active = True #or use T.Open() 10 | 11 | # Display columns 12 | print "Columns: ", T.FieldNamesAsTuple() 13 | 14 | LastInvoiceDate = T.FieldByName("LastInvoiceDate") 15 | 16 | # For each record of the table 17 | T.First() 18 | while not T.EOF: 19 | # Get all the fields in a list 20 | A = [] 21 | for i in xrange( T.FieldCount ): 22 | A.append( T.Fields(i).Value ) 23 | # Print the current record number and the list 24 | print "Rec.", T.RecNo, ":", A 25 | # Edit record 26 | T.Edit() 27 | T.FieldByName("TaxRate").Value = 2.5 28 | # Increments date by one day 29 | D = LastInvoiceDate.Value 30 | if D[2] < 28: 31 | D2 = D[:2]+(D[2]+1,)+D[3:] # this is tuple arithmetic ! 32 | else: 33 | D2 = D[:2]+(1,)+D[3:] # this is tuple arithmetic ! 34 | LastInvoiceDate.Value = D2 35 | T.Post() 36 | # Get next record 37 | T.Next() 38 | 39 | # Print some fields by their names 40 | F = T.FieldByName("Company") 41 | print F, F.FieldName, "=", F.Value 42 | 43 | # Use the TFields and print the list of companies 44 | T.First() 45 | while not T.EOF: 46 | print F.AsString 47 | T.Next() 48 | 49 | # Print the fields as a dictionary 50 | D = T.FieldsAsDict() 51 | print D 52 | print D["Company"] 53 | 54 | T.Close() 55 | T.TableName = "Dummy.db" 56 | try: 57 | T.Open() 58 | except DBTables.DBError: 59 | print "could not open table ", T.TableName 60 | 61 | #delete fields 62 | del F 63 | del LastInvoiceDate 64 | 65 | # delete the table 66 | del T 67 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10/Example3.py: -------------------------------------------------------------------------------- 1 | import DBTables 2 | True = 1 3 | False = 0 4 | 5 | # Get the TTable object created by Delphi 6 | # and connected to a Delphi Datasource 7 | # It is done when you click on Execute 8 | T = DBTables.T 9 | # Select and open a table 10 | T.DatabaseName = "DBDemos" 11 | T.TableName = "customer.db" 12 | T.Open() 13 | 14 | # Display columns 15 | print "Columns: " 16 | for i in T.FieldNamesAsTuple(): 17 | print " ", i 18 | 19 | # For each record of the table 20 | T.First() 21 | while not T.EOF: 22 | # Get all the fields in a tuple 23 | A = T.FieldsAsTuple() 24 | # Print the current record number and the tuple 25 | print "Rec.", T.RecNo, ":", A 26 | # Get next record 27 | T.Next() 28 | 29 | # Print some fields by their names 30 | print T.FieldByName("Company") 31 | 32 | # check state 33 | if not T.State in [DBTables.dsEdit, DBTables.dsInsert]: 34 | print "Table is not edited" 35 | 36 | # clean up 37 | del T 38 | del DBTables.T 39 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10/Example4.py: -------------------------------------------------------------------------------- 1 | import DBTables 2 | True = 1 3 | False = 0 4 | 5 | # Create and open the table 6 | T = DBTables.CreateTQuery() 7 | T.DatabaseName = "DBDemos" 8 | T.SQL = [ 9 | "SELECT *", 10 | " FROM customer.db" 11 | ] 12 | T.Open() 13 | 14 | # Display columns 15 | print "Columns: ", T.FieldNamesAsTuple() 16 | 17 | # For each record of the table 18 | T.First() 19 | while not T.EOF: 20 | # Get all the fields in a list 21 | A = [] 22 | for i in xrange( T.FieldCount ): 23 | A.append( T.Fields(i).AsString ) 24 | # Print the current record number and the list 25 | print "Rec.", T.RecNo, ":", A 26 | # Get next record 27 | T.Next() 28 | 29 | # Print some fields by their names 30 | print T.FieldByName("Company") 31 | 32 | # Print the fields as a dictionary 33 | D = T.FieldsAsDict() 34 | print D 35 | print D["Company"] 36 | 37 | # delete the table 38 | del T 39 | 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10/fmMain.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10/fmMain.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10/fmMain.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10/fmMain.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10/pyDB.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10/pyDB.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10/pyDBTables.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10/pyDBTables.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/Demo.ini: -------------------------------------------------------------------------------- 1 | [MSSQL_DB] 2 | BaseDriverID=MSSQL 3 | DriverID=MSSQL_2008 4 | ODBCDriver=SQL Server Native Client 11.0 5 | Server=XXX\YYY 6 | Database=XXX 7 | OSAuthent=No 8 | User_Name=XXX 9 | Password=XXX 10 | MetaDefCatalog=XX 11 | MetaDefSchema=XXX 12 | ExtendedMetadata=True 13 | VariantFormat=Binary 14 | Encrypt=No 15 | MARS=Yes 16 | 17 | [Ora_DB] 18 | DriverID=OraXE 19 | Database=localhost:1521/XE 20 | User_Name=XXX 21 | Password=YYY 22 | CharacterSet=UTF8 23 | 24 | [SQLite_DB] 25 | DriverID=SQLite 26 | Database=Demo.s3db 27 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/Demo.s3db: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10_FireDAC/Demo.s3db -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/Demo10.dpr: -------------------------------------------------------------------------------- 1 | program Demo10; 2 | 3 | uses 4 | Forms, 5 | fmMain in 'fmMain.pas' {Main}, 6 | PythonEngine in '..\..\Components\Sources\Core\PythonEngine.pas', 7 | WrapDelphiClasses in '..\..\Components\Sources\Core\WrapDelphiClasses.pas', 8 | pyDBFireDac in '..\..\Components\Sources\FireDAC\pyDBFireDac.pas', 9 | WrapDelphi in '..\..\Components\Sources\Core\WrapDelphi.pas'; 10 | 11 | {$R *.res} 12 | 13 | begin 14 | Application.Initialize; 15 | Application.CreateForm(TMain, Main); 16 | Application.Run; 17 | end. 18 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/Demo10.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10_FireDAC/Demo10.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/Demo10_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10_FireDAC/Demo10_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/Demo10_Icon1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10_FireDAC/Demo10_Icon1.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/Example1.py: -------------------------------------------------------------------------------- 1 | import DBFireDac 2 | 3 | # Create and open the table 4 | T = DBFireDac.CreateFDTable() 5 | T.ConnectionDefName = "SQLite_DB" 6 | T.TableName = "Customer" 7 | T.Active = True #or use T.Open() 8 | 9 | # Display columns 10 | print ("Columns: ", T.FieldNamesAsTuple()) 11 | 12 | LastInvoiceDate = T.FieldByName("LastInvoiceDate") 13 | 14 | # For each record of the table 15 | T.First() 16 | while not T.EOF: 17 | # Get all the fields in a list 18 | A = [] 19 | for i in range( 0, T.FieldCount ): 20 | A.append( T.Fields(i).Value ) 21 | # Print the current record number and the list 22 | print ("Rec.", T.RecNo, ":", A) 23 | # Edit record 24 | T.Edit() 25 | T.FieldByName("TaxRate").Value = 2.5 26 | # Increments date by one day 27 | D = LastInvoiceDate.Value 28 | if D[2] < 28: 29 | D2 = D[:2]+(D[2]+1,)+D[3:] # this is tuple arithmetic ! 30 | else: 31 | D2 = D[:2]+(1,)+D[3:] # this is tuple arithmetic ! 32 | LastInvoiceDate.Value = D2 33 | T.Post() 34 | # Get next record 35 | T.Next() 36 | 37 | # Print some fields by their names 38 | F = T.FieldByName("Company") 39 | print (F, F.FieldName, "=", F.Value) 40 | 41 | # Use the TFields and print the list of companies 42 | T.First() 43 | while not T.EOF: 44 | print (F.AsString) 45 | T.Next() 46 | 47 | # Print the fields as a dictionary 48 | D = T.FieldsAsDict() 49 | print (D) 50 | print ("COMPANY:", D["COMPANY"]) # <- case-sensitive 51 | 52 | T.Close() 53 | 54 | T.TableName = "Dummy" 55 | try: 56 | T.Open() 57 | except DBFireDac.DBError: 58 | print ("could not open table ", T.TableName) 59 | 60 | #delete fields 61 | del F 62 | del LastInvoiceDate 63 | 64 | # delete the table 65 | del T 66 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/Example3.py: -------------------------------------------------------------------------------- 1 | import DBFireDac 2 | from datetime import datetime 3 | 4 | # Get the TTable object associated to 5 | # the delphi table displayed on right 6 | # It is done when you click on Execute 7 | T = DBFireDac.T 8 | 9 | # Display columns 10 | print ("Columns: ") 11 | for i in T.FieldNamesAsTuple(): 12 | print (" ", i) 13 | 14 | # For each record of the table 15 | print ("Company name for each record of table : ") 16 | T.First() 17 | while not T.EOF: 18 | # Print the current record number and the Company 19 | print ("Rec.", T.RecNo, "; Company: ", T.FieldByName("Company").Value) 20 | # Get next record 21 | T.Next() 22 | 23 | # check state 24 | if not T.State in [DBFireDac.dsEdit, DBFireDac.dsInsert]: 25 | print ("Table is not edited") 26 | 27 | # Find and edit a record 28 | T.IndexName = "SK1_CUSTOMER" 29 | if T.FindKey( ['Unisco'] ): 30 | print ("Unisco found !") 31 | T.Edit() 32 | T.FieldByName('ADDR2').AsString = 'Egal' 33 | T.FieldByName('LASTINVOICEDATE').AsDateTime = datetime.today() 34 | T.Post() 35 | print ("New values for ADDR2='", T.FieldByName('ADDR2').AsString, "'and LASTINVOICEDATE=", T.FieldByName('LASTINVOICEDATE').AsString) 36 | else: 37 | print ("Could not find Unisco !") 38 | 39 | # New Company: Append or Delete 40 | if T.FindKey( ['Test-Company'] ): 41 | # Delete record 42 | T.Delete() 43 | print ("New Company 'Test-Company' deleted !") 44 | else: 45 | # New record 46 | T.Append() 47 | T.FieldByName('COMPANY').AsString = 'Test-Company' 48 | T.FieldByName('ADDR1').AsString = 'Marktplatz 1' 49 | T.FieldByName('CITY').AsString = 'Köln' 50 | T.FieldByName('LASTINVOICEDATE').AsDateTime = datetime.today() 51 | T.Post() 52 | print ("New Company 'Test-Company' created !") 53 | 54 | 55 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/Example4.py: -------------------------------------------------------------------------------- 1 | import DBFireDac 2 | 3 | # Create and open the Query 4 | Q = DBFireDac.CreateFDQuery() 5 | Q.ConnectionDefName = "SQLite_DB" 6 | Q.SQL = [ 7 | "select *", 8 | " from ORDERS" ] 9 | 10 | Q.Open() # or Q.Active = True 11 | 12 | # Display columns 13 | print ("Columns: ", Q.FieldNamesAsTuple()) 14 | # For each record of the table 15 | Q.First() 16 | while not Q.EOF: 17 | # Get all the fields in a list 18 | A = [] 19 | for i in range( 0, Q.FieldCount ): 20 | A.append( Q.Fields(i).AsString ) 21 | # Print the current record number and the list 22 | print ("Rec.", Q.RecNo, ":", A) 23 | # Get next record 24 | Q.Next() 25 | # 26 | Q.Close() 27 | 28 | # delete the Query 29 | del Q 30 | 31 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/FDDrivers.ini: -------------------------------------------------------------------------------- 1 | [ADDrivers.ini] 2 | Encoding=UTF8 3 | 4 | [OraXE] 5 | BaseDriverID=Ora 6 | VendorHome=XE 7 | 8 | [MSSQL_2005] 9 | BaseDriverID=MSSQL 10 | ODBCDriver=SQL SERVER 11 | 12 | [MSSQL_2008] 13 | BaseDriverID=MSSQL 14 | ODBCDriver=SQL Server Native Client 11.0 15 | 16 | [MSSQL_2012] 17 | BaseDriverID=MSSQL 18 | ODBCDriver=SQL Server Native Client 11.0 19 | 20 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo10_FireDAC/fmMain.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo10_FireDAC/fmMain.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo11/ThSort.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo11/ThSort.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo11/ThrdDemo.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | program ThrdDemo; 5 | 6 | {$I Definition.Inc} 7 | 8 | uses 9 | {$IFDEF MSWINDOWS} 10 | Forms, 11 | {$ENDIF} 12 | {$IFDEF LINUX} 13 | QForms, 14 | {$ENDIF} 15 | ThSort in 'ThSort.pas' {ThreadSortForm}, 16 | SortThds in 'SortThds.pas'; 17 | 18 | {$R *.res} 19 | 20 | begin 21 | Application.CreateForm(TThreadSortForm, ThreadSortForm); 22 | Application.Run; 23 | end. 24 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo11/ThrdDemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo11/ThrdDemo.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo11/ThrdDemo_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo11/ThrdDemo_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo11/test.py: -------------------------------------------------------------------------------- 1 | from SortModule import getvalue,swap 2 | 3 | def SortFunc1(handle, low, high): 4 | for i in range(low, high): 5 | for j in range(low+1,high): 6 | if getvalue(handle,j-1) > getvalue(handle,j): 7 | swap(handle,j-1,j) 8 | 9 | def SortFunc2(handle,low,high): 10 | for i in range(low,high-1): 11 | for j in range(i+1,high): 12 | if getvalue(handle,i) > getvalue(handle,j): 13 | swap(handle,i,j) 14 | 15 | def SortFunc3(handle,low,high): 16 | Lo = low 17 | Hi = high-1 18 | Mid = getvalue(handle,(Lo+Hi) / 2) 19 | while 1: 20 | while getvalue(handle,Lo) < Mid: 21 | Lo = Lo + 1 22 | while getvalue(handle,Hi) > Mid: 23 | Hi = Hi - 1 24 | if Lo <= Hi: 25 | swap(handle,Lo,Hi) 26 | Lo = Lo + 1 27 | Hi = Hi - 1 28 | if Lo > Hi: 29 | break 30 | if Hi > low: 31 | SortFunc3(handle,low,Hi+1) 32 | if Lo < high-1: 33 | SortFunc3(handle,Lo,high) 34 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo13/Demo13.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | program Demo13; 5 | 6 | uses 7 | Forms, 8 | fmMain in 'fmMain.pas' {Main}; 9 | 10 | {$R *.res} 11 | 12 | begin 13 | Application.Initialize; 14 | Application.CreateForm(TMain, Main); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo13/Demo13.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo13/Demo13.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo13/Example1.py: -------------------------------------------------------------------------------- 1 | import DB 2 | import DBTables 3 | True = 1 4 | False = 0 5 | 6 | # Create and open the table 7 | T = DBTables.CreateTTable() 8 | T.DatabaseName = "DBDemos" 9 | T.TableName = "customer.db" 10 | T.Active = True #or use T.Open() 11 | 12 | # Display columns 13 | print "Columns: ", T.FieldNamesAsTuple() 14 | 15 | LastInvoiceDate = T.FieldByName("LastInvoiceDate") 16 | 17 | # For each record of the table 18 | T.First() 19 | while not T.EOF: 20 | # Get all the fields in a list 21 | A = [] 22 | for i in xrange( T.FieldCount ): 23 | A.append( T.Fields(i).Value ) 24 | # Print the current record number and the list 25 | print "Rec.", T.RecNo, ":", A 26 | # Edit record 27 | T.Edit() 28 | T.FieldByName("TaxRate").Value = 2.5 29 | # Increments date by one day 30 | D = LastInvoiceDate.Value 31 | if D[2] < 28: 32 | D2 = D[:2]+(D[2]+1,)+D[3:] # this is tuple arithmetic ! 33 | else: 34 | D2 = D[:2]+(1,)+D[3:] # this is tuple arithmetic ! 35 | LastInvoiceDate.Value = D2 36 | T.Post() 37 | # Get next record 38 | T.Next() 39 | 40 | # Print some fields by their names 41 | F = T.FieldByName("Company") 42 | print F, F.FieldName, "=", F.Value 43 | 44 | # Use the TFields and print the list of companies 45 | T.First() 46 | while not T.EOF: 47 | print F.AsString 48 | T.Next() 49 | 50 | # Print the fields as a dictionary 51 | D = T.FieldsAsDict() 52 | print D 53 | print D["Company"] 54 | 55 | T.Close() 56 | T.TableName = "Dummy.db" 57 | try: 58 | T.Open() 59 | except DB.DBError: 60 | print "could not open table ", T.TableName 61 | 62 | #delete fields 63 | del F 64 | del LastInvoiceDate 65 | 66 | # delete the table 67 | del T 68 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo13/Example3.py: -------------------------------------------------------------------------------- 1 | import DB 2 | import DBTables 3 | True = 1 4 | False = 0 5 | 6 | # Get the TTable object created by Delphi 7 | # and connected to a Delphi Datasource 8 | # It is done when you click on Execute 9 | T = DBTables.T 10 | # Select and open a table 11 | T.DatabaseName = "DBDemos" 12 | T.TableName = "customer.db" 13 | T.Open() 14 | 15 | # Display columns 16 | print "Columns: " 17 | for i in T.FieldNamesAsTuple(): 18 | print " ", i 19 | 20 | # For each record of the table 21 | T.First() 22 | while not T.EOF: 23 | # Get all the fields in a tuple 24 | A = T.FieldsAsTuple() 25 | # Print the current record number and the tuple 26 | print "Rec.", T.RecNo, ":", A 27 | # Get next record 28 | T.Next() 29 | 30 | # Print some fields by their names 31 | print T.FieldByName("Company") 32 | 33 | # check state 34 | if not T.State in [DB.dsEdit, DB.dsInsert]: 35 | print "Table is not edited" 36 | 37 | # clean up 38 | del T 39 | del DBTables.T 40 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo13/Example4.py: -------------------------------------------------------------------------------- 1 | import DB 2 | import DBTables 3 | True = 1 4 | False = 0 5 | 6 | # Create and open the table 7 | T = DBTables.CreateTQuery() 8 | T.DatabaseName = "DBDemos" 9 | T.SQL = [ 10 | "SELECT *", 11 | " FROM customer.db" 12 | ] 13 | T.Open() 14 | 15 | # Display columns 16 | print "Columns: ", T.FieldNamesAsTuple() 17 | 18 | # For each record of the table 19 | T.First() 20 | while not T.EOF: 21 | # Get all the fields in a list 22 | A = [] 23 | for i in xrange( T.FieldCount ): 24 | A.append( T.Fields(i).AsString ) 25 | # Print the current record number and the list 26 | print "Rec.", T.RecNo, ":", A 27 | # Get next record 28 | T.Next() 29 | 30 | # Print some fields by their names 31 | print T.FieldByName("Company") 32 | 33 | # Print the fields as a dictionary 34 | D = T.FieldsAsDict() 35 | print D 36 | print D["Company"] 37 | 38 | # delete the table 39 | del T 40 | 41 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo13/fmMain.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo13/fmMain.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo13/fmMain.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo13/fmMain.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo14/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo14/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo14/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo14/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo14/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo14/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo14/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo14/database.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo14/database.dpr -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo14/database.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo14/database.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo14/module.pas: -------------------------------------------------------------------------------- 1 | unit module; 2 | 3 | interface 4 | uses Windows,Dialogs,PythonEngine, PythonDatabase; 5 | 6 | procedure initdatabase; cdecl; 7 | 8 | var 9 | gEngine : TPythonEngine; 10 | gModule : TPythonModule; 11 | gDB : TPythonDatabase; 12 | 13 | implementation 14 | 15 | procedure initdatabase; 16 | begin 17 | try 18 | gEngine := TPythonEngine.Create(nil); 19 | gEngine.AutoFinalize := False; 20 | gDB := TPythonDatabase.Create(nil); 21 | gDB.Engine := gEngine; 22 | gModule := TPythonModule.Create(nil); 23 | gModule.Engine := gEngine; 24 | gModule.ModuleName := 'database'; 25 | gEngine.LoadDll; 26 | except 27 | end; 28 | end; 29 | 30 | initialization 31 | finalization 32 | gEngine.Free; 33 | gModule.Free; 34 | end. 35 | 36 | 37 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo15/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo15/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo15/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo15/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo15/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo15/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo15/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example1/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | {$IFDEF MSWINDOWS} 5 | Forms, 6 | {$ENDIF} 7 | {$IFDEF LINUX} 8 | QForms, 9 | {$ENDIF} 10 | Unit1 in 'Unit1.pas' {Form1}; 11 | 12 | {$R *.res} 13 | 14 | begin 15 | Application.Initialize; 16 | Application.CreateForm(TForm1, Form1); 17 | Application.Run; 18 | end. 19 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example1/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo16/Example1/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example1/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo16/Example1/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example1/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo16/Example1/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example1/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo16/Example1/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example2/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example2/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo16/Example2/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example2/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo16/Example2/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example2/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo16/Example2/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo16/Example2/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo16/Example2/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo17/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo17/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo17/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo17/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo17/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo17/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo17/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo17/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo17/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo18/Project1.bpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo18/Project1.bpr -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo18/Project1.cpp: -------------------------------------------------------------------------------- 1 | 2 | #pragma hdrstop 3 | #include 4 | #include 5 | USELIB("..\..\Components\py21.lib"); 6 | //--------------------------------------------------------------------------- 7 | using namespace Py; 8 | 9 | //--------------------------------------------------------------------------- 10 | #pragma argsused 11 | 12 | int ExecString( char * str ) 13 | { 14 | PyObject *m, *d; 15 | m = PyImport_AddModule("__main__"); 16 | if ( ! m ) 17 | return -1; 18 | d = PyModule_GetDict(m); 19 | PyObject * Result = PyRun_String(str, Py_file_input, d, d); 20 | Py_DECREF(Result); 21 | Py_FlushLine(); 22 | if ( PyErr_Occurred() ) 23 | PyErr_Print(); 24 | if ( Result ) 25 | return 0; 26 | else 27 | return -1; 28 | } 29 | 30 | 31 | int main(int argc, char **argv) 32 | { 33 | Py_SetProgramName(argv[0]); 34 | // Init Python 35 | Py_Initialize(); 36 | // Execute a script from a string 37 | //if ( ExecString("for i in range(100):\n print 'Line #',i\n") ) 38 | if ( PyRun_SimpleString("for i in range(100):\n print 'Line #',i\n") ) 39 | fprintf(stderr, "Could not execute script !\n"); 40 | // Print some Python informations 41 | fprintf(stderr, "Python %s on %s\n%s\n", 42 | Py_GetVersion(), Py_GetPlatform(), Py_GetCopyright()); 43 | // Finalize Python 44 | Py_Finalize(); 45 | // Terminate 46 | return 0; 47 | } 48 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo18/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo18/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo18/py15.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo18/py15.lib -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo18/py21.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo18/py21.lib -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo19/Project1.bpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo19/Project1.bpr -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo19/Project1.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | USERES("Project1.res"); 5 | USEFORM("Unit1.cpp", Form1); 6 | //--------------------------------------------------------------------------- 7 | WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) 8 | { 9 | try 10 | { 11 | Application->Initialize(); 12 | Application->CreateForm(__classid(TForm1), &Form1); 13 | Application->Run(); 14 | } 15 | catch (Exception &exception) 16 | { 17 | Application->ShowException(&exception); 18 | } 19 | return 0; 20 | } 21 | //--------------------------------------------------------------------------- 22 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo19/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo19/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo19/Unit1.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | 5 | #include "Unit1.h" 6 | //--------------------------------------------------------------------------- 7 | #pragma package(smart_init) 8 | #pragma link "PythonEngine" 9 | #pragma link "PythonGUIInputOutput" 10 | #pragma resource "*.dfm" 11 | TForm1 *Form1; 12 | //--------------------------------------------------------------------------- 13 | __fastcall TForm1::TForm1(TComponent* Owner) 14 | : TForm(Owner) 15 | { 16 | } 17 | //--------------------------------------------------------------------------- 18 | 19 | void __fastcall TForm1::Button1Click(TObject *Sender) 20 | { 21 | PythonEngine1->ExecStrings( Memo1->Lines ); 22 | } 23 | //--------------------------------------------------------------------------- 24 | 25 | void __fastcall TForm1::Button2Click(TObject *Sender) 26 | { 27 | if ( OpenDialog1->Execute() ) 28 | Memo1->Lines->LoadFromFile( OpenDialog1->FileName ); 29 | } 30 | //--------------------------------------------------------------------------- 31 | 32 | void __fastcall TForm1::Button3Click(TObject *Sender) 33 | { 34 | if ( SaveDialog1->Execute() ) 35 | Memo1->Lines->SaveToFile( SaveDialog1->FileName ); 36 | } 37 | //--------------------------------------------------------------------------- 38 | PPyObject spam_foo( PPyObject self, PPyObject args ) 39 | { 40 | // normally, you would use the function PyArg_ParseTuple for 41 | // parsing the given arguments. 42 | TPythonEngine * eng = GetPythonEngine(); 43 | ShowMessage( "args of foo: "+eng->PyObjectAsString(args) ); 44 | return eng->ReturnNone(); 45 | } 46 | 47 | void __fastcall TForm1::PythonModule1Initialization(TObject *Sender) 48 | { 49 | PythonModule1->AddMethod( "foo", spam_foo, "foo" ); 50 | } 51 | //--------------------------------------------------------------------------- 52 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo19/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo19/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo19/Unit1.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo19/Unit1.h -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo20/Project1.bpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo20/Project1.bpr -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo20/Project1.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | #include 3 | #pragma hdrstop 4 | USERES("Project1.res"); 5 | USEFORM("Unit1.cpp", Form1); 6 | USELIB("py21.lib"); 7 | //--------------------------------------------------------------------------- 8 | WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) 9 | { 10 | try 11 | { 12 | Application->Initialize(); 13 | Application->CreateForm(__classid(TForm1), &Form1); 14 | Application->Run(); 15 | } 16 | catch (Exception &exception) 17 | { 18 | Application->ShowException(&exception); 19 | } 20 | return 0; 21 | } 22 | //--------------------------------------------------------------------------- 23 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo20/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo20/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo20/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo20/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo20/Unit1.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo20/Unit1.h -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo20/py15.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo20/py15.lib -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo20/py21.lib: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo20/py21.lib -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo21/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo21/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo21/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo21/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo21/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo21/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo21/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo22/Project1.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=6.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=1 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=1 19 | P=1 20 | Q=0 21 | R=0 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | [Linker] 34 | MapFile=0 35 | OutputObjs=0 36 | ConsoleApp=1 37 | DebugInfo=0 38 | RemoteSymbols=0 39 | MinStackSize=16384 40 | MaxStackSize=1048576 41 | ImageBase=4194304 42 | ExeDescription= 43 | [Directories] 44 | OutputDir= 45 | UnitOutputDir= 46 | PackageDLLOutputDir= 47 | PackageDCPOutputDir= 48 | SearchPath= 49 | Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;Qrpt50;TeeUI50;TeeDB50;Tee50;Dss50;TeeQR50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;NMFast50;webmid50;dclocx50;dclaxserver50;VM;MyKardexComponents 50 | Conditionals= 51 | DebugSourceDirs= 52 | UsePackages=0 53 | [Parameters] 54 | RunParams= 55 | HostApplication= 56 | Launcher= 57 | UseLauncher=0 58 | DebugCWD= 59 | [Language] 60 | ActiveLang= 61 | ProjectLang= 62 | RootDir= 63 | [Version Info] 64 | IncludeVerInfo=0 65 | AutoIncBuild=0 66 | MajorVer=1 67 | MinorVer=0 68 | Release=0 69 | Build=0 70 | Debug=0 71 | PreRelease=0 72 | Special=0 73 | Private=0 74 | DLL=0 75 | Locale=1033 76 | CodePage=1252 77 | [Version Info Keys] 78 | CompanyName= 79 | FileDescription= 80 | FileVersion=1.0.0.0 81 | InternalName= 82 | LegalCopyright= 83 | LegalTrademarks= 84 | OriginalFilename= 85 | ProductName= 86 | ProductVersion=1.0.0.0 87 | Comments= 88 | [Excluded Packages] 89 | C:\Program Files\PythonForDelphi\Components\PythonVCL_d5.bpl=VCL Components for Python 90 | d:\program files\borland\delphi6\Bin\dclite50.bpl=Borland Integrated Translation Environment 91 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo22/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo22/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo22/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo22/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo22/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo22/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo22/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo23/Project1.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=6.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=1 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=1 19 | P=1 20 | Q=0 21 | R=0 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | [Linker] 34 | MapFile=0 35 | OutputObjs=0 36 | ConsoleApp=1 37 | DebugInfo=0 38 | RemoteSymbols=0 39 | MinStackSize=16384 40 | MaxStackSize=1048576 41 | ImageBase=4194304 42 | ExeDescription= 43 | [Directories] 44 | OutputDir= 45 | UnitOutputDir= 46 | PackageDLLOutputDir= 47 | PackageDCPOutputDir= 48 | SearchPath= 49 | Packages=Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;Qrpt50;TeeUI50;TeeDB50;Tee50;Dss50;TeeQR50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;NMFast50;webmid50;dclocx50;dclaxserver50;VM;MyKardexComponents 50 | Conditionals= 51 | DebugSourceDirs= 52 | UsePackages=0 53 | [Parameters] 54 | RunParams= 55 | HostApplication= 56 | Launcher= 57 | UseLauncher=0 58 | DebugCWD= 59 | [Language] 60 | ActiveLang= 61 | ProjectLang= 62 | RootDir= 63 | [Version Info] 64 | IncludeVerInfo=0 65 | AutoIncBuild=0 66 | MajorVer=1 67 | MinorVer=0 68 | Release=0 69 | Build=0 70 | Debug=0 71 | PreRelease=0 72 | Special=0 73 | Private=0 74 | DLL=0 75 | Locale=1033 76 | CodePage=1252 77 | [Version Info Keys] 78 | CompanyName= 79 | FileDescription= 80 | FileVersion=1.0.0.0 81 | InternalName= 82 | LegalCopyright= 83 | LegalTrademarks= 84 | OriginalFilename= 85 | ProductName= 86 | ProductVersion=1.0.0.0 87 | Comments= 88 | [Excluded Packages] 89 | C:\Program Files\PythonForDelphi\Components\PythonVCL_d5.bpl=VCL Components for Python 90 | d:\program files\borland\delphi6\Bin\dclite50.bpl=Borland Integrated Translation Environment 91 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo23/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo23/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo23/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo23/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo23/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo23/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo23/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo25/MyModule.py: -------------------------------------------------------------------------------- 1 | def Add(a, b): 2 | return a + b 3 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo25/VarPythUnitTest.conf: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -H+ 29 | -W+ 30 | -M 31 | -$M16384,1048576 32 | -K$00400000 33 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo25/VarPythUnitTest.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | program VarPythUnitTest; 5 | 6 | uses 7 | {$IFDEF MSWINDOWS} 8 | Forms, 9 | {$ENDIF} 10 | {$IFDEF LINUX} 11 | QForms, 12 | {$ENDIF} 13 | fmMain in 'fmMain.pas' {TMain}; 14 | 15 | {$R *.res} 16 | 17 | begin 18 | ReportMemoryLeaksOnShutdown := True; 19 | Application.Initialize; 20 | Application.CreateForm(TMain, Main); 21 | Application.Run; 22 | end. 23 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo25/VarPythUnitTest.kof: -------------------------------------------------------------------------------- 1 | [Compiler] 2 | A=8 3 | B=0 4 | C=1 5 | D=1 6 | E=0 7 | F=0 8 | G=1 9 | H=1 10 | I=1 11 | J=0 12 | K=0 13 | L=1 14 | M=0 15 | N=1 16 | O=1 17 | P=1 18 | Q=0 19 | R=0 20 | S=0 21 | T=0 22 | U=0 23 | V=1 24 | W=0 25 | X=1 26 | Y=1 27 | Z=1 28 | ShowHints=1 29 | ShowWarnings=1 30 | UnitAliases= 31 | 32 | [Linker] 33 | MapFile=0 34 | OutputObjs=0 35 | ConsoleApp=1 36 | DebugInfo=0 37 | RemoteSymbols=0 38 | MinStackSize=16384 39 | MaxStackSize=1048576 40 | ImageBase=4194304 41 | ExeDescription= 42 | DynamicLoader=/lib/ld-linux.so.2 43 | 44 | [Directories] 45 | OutputDir= 46 | UnitOutputDir= 47 | PackageDLLOutputDir= 48 | PackageDCPOutputDir= 49 | SearchPath= 50 | Packages= 51 | Conditionals= 52 | DebugSourceDirs= 53 | UsePackages=0 54 | 55 | [Parameters] 56 | RunParams= 57 | HostApplication= 58 | Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee% 59 | UseLauncher=0 60 | DebugCWD= 61 | 62 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo25/VarPythUnitTest.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo25/VarPythUnitTest.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo26/Project1.conf: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -H+ 29 | -W+ 30 | -M 31 | -$M16384,1048576 32 | -K$00400000 33 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo26/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo26/Project1.kof: -------------------------------------------------------------------------------- 1 | [Compiler] 2 | A=8 3 | B=0 4 | C=1 5 | D=1 6 | E=0 7 | F=0 8 | G=1 9 | H=1 10 | I=1 11 | J=0 12 | K=0 13 | L=1 14 | M=0 15 | N=1 16 | O=1 17 | P=1 18 | Q=0 19 | R=0 20 | S=0 21 | T=0 22 | U=0 23 | V=1 24 | W=0 25 | X=1 26 | Y=1 27 | Z=1 28 | ShowHints=1 29 | ShowWarnings=1 30 | UnitAliases= 31 | 32 | [Linker] 33 | MapFile=0 34 | OutputObjs=0 35 | ConsoleApp=1 36 | DebugInfo=0 37 | RemoteSymbols=0 38 | MinStackSize=16384 39 | MaxStackSize=1048576 40 | ImageBase=4194304 41 | ExeDescription= 42 | DynamicLoader=/lib/ld-linux.so.2 43 | 44 | [Directories] 45 | OutputDir= 46 | UnitOutputDir= 47 | PackageDLLOutputDir= 48 | PackageDCPOutputDir= 49 | SearchPath= 50 | Packages= 51 | Conditionals= 52 | DebugSourceDirs= 53 | UsePackages=0 54 | 55 | [Parameters] 56 | RunParams= 57 | HostApplication= 58 | Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee% 59 | UseLauncher=0 60 | DebugCWD= 61 | 62 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo26/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo26/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo26/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo26/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo26/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo26/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo27/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo27/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo27/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo27/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, PythonEngine, PythonGUIInputOutput, StdCtrls; 8 | 9 | type 10 | TMySeq = class(TPyObject) 11 | public 12 | // Mapping services 13 | function MpLength : Integer; override; 14 | function MpSubscript( obj : PPyObject) : PPyObject; override; 15 | //function MpAssSubscript( obj1, obj2 : PPyObject) : Integer; override; 16 | end; 17 | 18 | TForm1 = class(TForm) 19 | Memo1: TMemo; 20 | Memo2: TMemo; 21 | Button1: TButton; 22 | PythonEngine1: TPythonEngine; 23 | PythonGUIInputOutput1: TPythonGUIInputOutput; 24 | PythonModule1: TPythonModule; 25 | PythonType1: TPythonType; 26 | procedure Button1Click(Sender: TObject); 27 | procedure PythonType1Initialization(Sender: TObject); 28 | private 29 | { Private declarations } 30 | public 31 | { Public declarations } 32 | end; 33 | 34 | var 35 | Form1: TForm1; 36 | 37 | implementation 38 | 39 | {$R *.dfm} 40 | 41 | { TMySeq } 42 | 43 | function TMySeq.MpLength: Integer; 44 | begin 45 | Result := 10; 46 | end; 47 | 48 | function TMySeq.MpSubscript(obj: PPyObject): PPyObject; 49 | begin 50 | Result := obj; 51 | GetPythonEngine.Py_XINCREF(obj); 52 | end; 53 | 54 | { TForm1 } 55 | 56 | procedure TForm1.Button1Click(Sender: TObject); 57 | begin 58 | PythonEngine1.ExecStrings(Memo2.Lines); 59 | end; 60 | 61 | procedure TForm1.PythonType1Initialization(Sender: TObject); 62 | begin 63 | with Sender as TPythonType do 64 | PyObjectClass := TMySeq; 65 | end; 66 | 67 | end. 68 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo28/Project1.conf: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -H+ 29 | -W+ 30 | -M 31 | -$M16384,1048576 32 | -K$00400000 33 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo28/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo28/Project1.kof: -------------------------------------------------------------------------------- 1 | [Compiler] 2 | A=8 3 | B=0 4 | C=1 5 | D=1 6 | E=0 7 | F=0 8 | G=1 9 | H=1 10 | I=1 11 | J=0 12 | K=0 13 | L=1 14 | M=0 15 | N=1 16 | O=1 17 | P=1 18 | Q=0 19 | R=0 20 | S=0 21 | T=0 22 | U=0 23 | V=1 24 | W=0 25 | X=1 26 | Y=1 27 | Z=1 28 | ShowHints=1 29 | ShowWarnings=1 30 | UnitAliases= 31 | 32 | [Linker] 33 | MapFile=0 34 | OutputObjs=0 35 | ConsoleApp=1 36 | DebugInfo=0 37 | RemoteSymbols=0 38 | MinStackSize=16384 39 | MaxStackSize=1048576 40 | ImageBase=4194304 41 | ExeDescription= 42 | DynamicLoader=/lib/ld-linux.so.2 43 | 44 | [Directories] 45 | OutputDir= 46 | UnitOutputDir= 47 | PackageDLLOutputDir= 48 | PackageDCPOutputDir= 49 | SearchPath= 50 | Packages= 51 | Conditionals= 52 | DebugSourceDirs= 53 | UsePackages=0 54 | 55 | [Parameters] 56 | RunParams= 57 | HostApplication= 58 | Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee% 59 | UseLauncher=0 60 | DebugCWD= 61 | 62 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo28/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo28/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo28/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo28/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo28/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo28/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo28/Unit1.xfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo28/Unit1.xfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo29/Project1.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | program Project1; 5 | 6 | uses 7 | Forms, 8 | Unit1 in 'Unit1.pas' {Form1}; 9 | 10 | {$R *.res} 11 | {$R XP_UAC.RES} 12 | begin 13 | Application.Initialize; 14 | Application.CreateForm(TForm1, Form1); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo29/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo29/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo29/XP_UAC.manifest: -------------------------------------------------------------------------------- 1 |  2 | 3 | 8 | 9 | 10 | 17 | 18 | 19 | 20 | 21 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | true 40 | 41 | 42 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo29/XP_UAC.rc: -------------------------------------------------------------------------------- 1 | 1 24 ".\XP_UAC.manifest" 2 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo29/XP_UAC.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo29/XP_UAC.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo30/Project1.conf: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -H+ 29 | -W+ 30 | -M 31 | -$M16384,1048576 32 | -K$00400000 33 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo30/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | QForms, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo30/Project1.kof: -------------------------------------------------------------------------------- 1 | [Compiler] 2 | A=8 3 | B=0 4 | C=1 5 | D=1 6 | E=0 7 | F=0 8 | G=1 9 | H=1 10 | I=1 11 | J=0 12 | K=0 13 | L=1 14 | M=0 15 | N=1 16 | O=1 17 | P=1 18 | Q=0 19 | R=0 20 | S=0 21 | T=0 22 | U=0 23 | V=1 24 | W=0 25 | X=1 26 | Y=1 27 | Z=1 28 | ShowHints=1 29 | ShowWarnings=1 30 | UnitAliases= 31 | 32 | [Linker] 33 | MapFile=0 34 | OutputObjs=0 35 | ConsoleApp=1 36 | DebugInfo=0 37 | RemoteSymbols=0 38 | MinStackSize=16384 39 | MaxStackSize=1048576 40 | ImageBase=4194304 41 | ExeDescription= 42 | DynamicLoader=/lib/ld-linux.so.2 43 | 44 | [Directories] 45 | OutputDir= 46 | UnitOutputDir= 47 | PackageDLLOutputDir= 48 | PackageDCPOutputDir= 49 | SearchPath= 50 | Packages= 51 | Conditionals= 52 | DebugSourceDirs= 53 | UsePackages=0 54 | 55 | [Parameters] 56 | RunParams= 57 | HostApplication= 58 | Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee% 59 | UseLauncher=0 60 | DebugCWD= 61 | 62 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo30/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo30/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo30/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo30/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo30/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo30/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo30/Unit1.xfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo30/Unit1.xfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo31/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$I Definition.Inc} 4 | 5 | uses 6 | Forms, 7 | Unit1 in 'Unit1.pas' {Form1}, 8 | WrapDelphiExtCtrls in '..\..\Components\Sources\Core\WrapDelphiExtCtrls.pas', 9 | WrapDelphiTypes in '..\..\Components\Sources\Core\WrapDelphiTypes.pas', 10 | Unit2 in 'Unit2.pas' {TestForm}, 11 | WrapDelphiWindows in '..\..\Components\Sources\Core\WrapDelphiWindows.pas', 12 | WrapDelphiComCtrls in '..\..\Components\Sources\Core\WrapDelphiComCtrls.pas', 13 | WrapDelphiGrids in '..\..\Components\Sources\Core\WrapDelphiGrids.pas', 14 | WrapDelphiGraphics in '..\..\Components\Sources\Core\WrapDelphiGraphics.pas', 15 | WrapDelphiButtons in '..\..\Components\Sources\Core\WrapDelphiButtons.pas'; 16 | 17 | {$R *.res} 18 | 19 | begin 20 | Application.Initialize; 21 | Application.CreateForm(TForm1, Form1); 22 | Application.CreateForm(TTestForm, TestForm); 23 | Application.Run; 24 | end. 25 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo31/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo31/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo31/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo31/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo31/Unit2.dfm: -------------------------------------------------------------------------------- 1 | object TestForm: TTestForm 2 | Left = 213 3 | Top = 114 4 | Width = 870 5 | Height = 500 6 | Caption = 'Test Form' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Shell Dlg 2' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object CheckBox1: TCheckBox 17 | Left = 96 18 | Top = 16 19 | Width = 97 20 | Height = 17 21 | Caption = 'CheckBox1' 22 | TabOrder = 0 23 | end 24 | object CheckBox2: TCheckBox 25 | Left = 96 26 | Top = 56 27 | Width = 97 28 | Height = 17 29 | Caption = 'CheckBox2' 30 | Checked = True 31 | State = cbChecked 32 | TabOrder = 1 33 | end 34 | object btnClose: TButton 35 | Left = 88 36 | Top = 256 37 | Width = 75 38 | Height = 25 39 | Caption = 'Close' 40 | TabOrder = 2 41 | OnClick = btnCloseClick 42 | end 43 | object Edit1: TEdit 44 | Left = 96 45 | Top = 96 46 | Width = 121 47 | Height = 21 48 | TabOrder = 3 49 | Text = 'Edit1' 50 | end 51 | object ListBox1: TListBox 52 | Left = 328 53 | Top = 48 54 | Width = 249 55 | Height = 169 56 | ItemHeight = 13 57 | TabOrder = 4 58 | end 59 | object btnAdd: TButton 60 | Left = 104 61 | Top = 128 62 | Width = 75 63 | Height = 25 64 | Caption = 'Add' 65 | TabOrder = 5 66 | end 67 | end 68 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo31/Unit2.pas: -------------------------------------------------------------------------------- 1 | unit Unit2; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, 7 | Variants, Classes, Graphics, Controls, Forms, 8 | Dialogs, StdCtrls; 9 | 10 | type 11 | TTestForm = class(TForm) 12 | CheckBox1: TCheckBox; 13 | CheckBox2: TCheckBox; 14 | btnClose: TButton; 15 | Edit1: TEdit; 16 | ListBox1: TListBox; 17 | btnAdd: TButton; 18 | procedure btnCloseClick(Sender: TObject); 19 | private 20 | { Private declarations } 21 | public 22 | { Public declarations } 23 | end; 24 | 25 | var 26 | TestForm: TTestForm; 27 | 28 | implementation 29 | 30 | {$R *.dfm} 31 | 32 | procedure TTestForm.btnCloseClick(Sender: TObject); 33 | begin 34 | Close; 35 | end; 36 | 37 | initialization 38 | RegisterClass(TTestForm); 39 | end. 40 | 41 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo32/Project1.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | program Project1; 4 | 5 | {$I Definition.Inc} 6 | 7 | uses 8 | {$IFDEF MSWINDOWS} 9 | Forms, 10 | {$ENDIF} 11 | {$IFDEF LINUX} 12 | QForms, 13 | {$ENDIF} 14 | Unit1 in 'Unit1.pas' {Form1}; 15 | 16 | {$R *.res} 17 | 18 | begin 19 | Application.Initialize; 20 | Application.CreateForm(TForm1, Form1); 21 | Application.Run; 22 | end. 23 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo32/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo32/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo32/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo32/Unit1.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo32/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo32/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo33/ThSort.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo33/ThSort.dfm -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo33/ThrdDemo.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | program ThrdDemo; 5 | 6 | uses 7 | Forms, 8 | SortThds in 'SortThds.pas', 9 | ThSort in 'ThSort.pas' {ThreadSortForm}; 10 | 11 | {$R *.res} 12 | 13 | begin 14 | Application.Initialize; 15 | Application.MainFormOnTaskbar := True; 16 | Application.CreateForm(TThreadSortForm, ThreadSortForm); 17 | Application.Run; 18 | end. 19 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo33/ThrdDemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/Demo33/ThrdDemo.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/Demo33/test.py: -------------------------------------------------------------------------------- 1 | from SortModule import getvalue,swap 2 | 3 | def SortFunc1(handle, low, high): 4 | for i in range(low, high): 5 | for j in range(low+1,high): 6 | if getvalue(handle,j-1) > getvalue(handle,j): 7 | swap(handle,j-1,j) 8 | 9 | def SortFunc2(handle,low,high): 10 | for i in range(low,high-1): 11 | for j in range(i+1,high): 12 | if getvalue(handle,i) > getvalue(handle,j): 13 | swap(handle,i,j) 14 | 15 | def SortFunc3(handle,low,high): 16 | Lo = low 17 | Hi = high-1 18 | Mid = getvalue(handle,(Lo+Hi) / 2) 19 | while 1: 20 | while getvalue(handle,Lo) < Mid: 21 | Lo = Lo + 1 22 | while getvalue(handle,Hi) > Mid: 23 | Hi = Hi - 1 24 | if Lo <= Hi: 25 | swap(handle,Lo,Hi) 26 | Lo = Lo + 1 27 | Hi = Hi - 1 28 | if Lo > Hi: 29 | break 30 | if Hi > low: 31 | SortFunc3(handle,low,Hi+1) 32 | if Lo < high-1: 33 | SortFunc3(handle,Lo,high) 34 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo01/fpc-res.or: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo01/fpc-res.or -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo01/fpc-res.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo01/fpc-res.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo01/project1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo01/project1.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo01/project1.lpr: -------------------------------------------------------------------------------- 1 | program project1; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | {$IFDEF UNIX}{$IFDEF UseCThreads} 7 | cthreads, 8 | {$ENDIF}{$ENDIF} 9 | Interfaces, // this includes the LCL widgetset 10 | Forms, Unit1, LResources, P4DLaz 11 | { you can add units after this }; 12 | 13 | {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} 14 | 15 | begin 16 | {$I project1.lrs} 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | 22 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo01/project1.manifest: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | Your application description here. 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo01/project1.rc: -------------------------------------------------------------------------------- 1 | #define RT_MANIFEST 24 2 | #define CREATEPROCESS_MANIFEST_RESOURCE_ID 1 3 | #define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2 4 | #define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3 5 | 6 | CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest" 7 | MAINICON ICON "project1.ico" 8 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo01/project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo01/project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo01/unit1.lrs: -------------------------------------------------------------------------------- 1 | { This is an automatically generated lazarus resource file } 2 | 3 | LazarusResources.Add('TForm1','FORMDATA',[ 4 | 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3#135#1#3'Top'#3#175#0#5'W' 5 | +'idth'#3'#'#2#7'Caption'#6#5'Form1'#12'ClientHeight'#3#135#1#11'ClientWidth' 6 | +#3'#'#2#10'LCLVersion'#6#8'0.9.30.2'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Hei' 7 | +'ght'#3#135#1#3'Top'#2#0#5'Width'#3'#'#2#5'Align'#7#8'alClient'#12'ClientHei' 8 | +'ght'#3#135#1#11'ClientWidth'#3'#'#2#8'TabOrder'#2#0#0#5'TMemo'#5'Memo1'#4'L' 9 | +'eft'#2#1#6'Height'#3#183#0#3'Top'#2#1#5'Width'#3'!'#2#5'Align'#7#5'alTop'#8 10 | +'TabOrder'#2#0#0#0#13'TPairSplitter'#13'PairSplitter1'#4'Left'#2#1#6'Height' 11 | +#2#8#3'Top'#3#184#0#5'Width'#3'!'#2#5'Align'#7#5'alTop'#8'Position'#2'-'#0#17 12 | +'TPairSplitterSide'#17'PairSplitterSide1'#6'Cursor'#7#7'crArrow'#4'Left'#2#0 13 | +#6'Height'#2#8#3'Top'#2#0#5'Width'#2'-'#0#0#17'TPairSplitterSide'#17'PairSpl' 14 | +'itterSide2'#6'Cursor'#7#7'crArrow'#4'Left'#2'2'#6'Height'#2#8#3'Top'#2#0#5 15 | +'Width'#3#239#1#0#0#0#5'TMemo'#5'Memo2'#4'Left'#2#1#6'Height'#3#152#0#3'Top' 16 | +#3#192#0#5'Width'#3'!'#2#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#9'prin' 17 | +'t 2+2'#0#8'TabOrder'#2#2#0#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2'.' 18 | +#3'Top'#3'X'#1#5'Width'#3'!'#2#5'Align'#7#8'alBottom'#12'ClientHeight'#2'.' 19 | +#11'ClientWidth'#3'!'#2#8'TabOrder'#2#3#0#7'TButton'#7'Button1'#4'Left'#3#223 20 | +#0#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#7'Caption'#6#7'Execute'#7'OnClick' 21 | +#7#12'Button1Click'#8'TabOrder'#2#0#0#0#0#0#13'TPythonEngine'#13'PythonEngin' 22 | +'e1'#2'IO'#7#21'PythonGUIInputOutput1'#4'left'#2'`'#3'top'#2'0'#0#0#21'TPyth' 23 | +'onGUIInputOutput'#21'PythonGUIInputOutput1'#11'DelayWrites'#9#9'UnicodeIO'#8 24 | +#9'RawOutput'#8#6'Output'#7#5'Memo1'#4'left'#3'R'#1#3'top'#2'0'#0#0#0 25 | ]); 26 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo01/unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, 9 | StdCtrls, ExtCtrls, PairSplitter, PythonEngine, PythonGUIInputOutput; 10 | 11 | type 12 | 13 | { TForm1 } 14 | 15 | TForm1 = class(TForm) 16 | Button1: TButton; 17 | Memo1: TMemo; 18 | Memo2: TMemo; 19 | PairSplitter1: TPairSplitter; 20 | PairSplitterSide1: TPairSplitterSide; 21 | PairSplitterSide2: TPairSplitterSide; 22 | Panel1: TPanel; 23 | Panel2: TPanel; 24 | PythonEngine1: TPythonEngine; 25 | PythonGUIInputOutput1: TPythonGUIInputOutput; 26 | procedure Button1Click(Sender: TObject); 27 | private 28 | { private declarations } 29 | public 30 | { public declarations } 31 | end; 32 | 33 | var 34 | Form1: TForm1; 35 | 36 | implementation 37 | 38 | { TForm1 } 39 | 40 | 41 | procedure TForm1.Button1Click(Sender: TObject); 42 | begin 43 | PythonEngine1.ExecStrings( Memo2.Lines ); 44 | end; 45 | 46 | initialization 47 | {$I unit1.lrs} 48 | 49 | end. 50 | 51 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo06/Project1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo06/Project1.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo06/Project1.lpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {$MODE Delphi} 4 | 5 | uses 6 | {$IFDEF MSWINDOWS} 7 | Forms, Interfaces, 8 | {$ENDIF} 9 | {$IFDEF LINUX} 10 | Forms, Interfaces, 11 | {$ENDIF} 12 | Unit1 in 'Unit1.pas' {Form1}; 13 | 14 | {$R *.res} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo06/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo06/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo06/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo06/Unit1.pas -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo25/fpc-res.or: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo25/fpc-res.or -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo25/fpc-res.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo25/fpc-res.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo25/ppas.bat: -------------------------------------------------------------------------------- 1 | @echo off 2 | c:\lazarus\fpc\2.2.4\bin\i386-win32\windres.exe --include c:/lazarus/fpc/222A9D~1.4/bin/I386-W~1/ -O res -o C:\Delphi\Components\P4D\Demos\FPC\Demo25\project1.res C:/Delphi/COMPON~1/P4D/Demos/FPC/Demo25/project1.rc --preprocessor=c:\lazarus\fpc\2.2.4\bin\i386-win32\cpp.exe 3 | if errorlevel 1 goto linkend 4 | SET THEFILE=C:\Delphi\Components\P4D\Demos\FPC\Demo25\project1.exe 5 | echo Linking %THEFILE% 6 | c:\lazarus\fpc\2.2.4\bin\i386-win32\ld.exe -b pe-i386 -m i386pe --gc-sections --subsystem windows --entry=_WinMainCRTStartup -o C:\Delphi\Components\P4D\Demos\FPC\Demo25\project1.exe C:\Delphi\Components\P4D\Demos\FPC\Demo25\link.res 7 | if errorlevel 1 goto linkend 8 | c:\lazarus\fpc\2.2.4\bin\i386-win32\postw32.exe --subsystem gui --input C:\Delphi\Components\P4D\Demos\FPC\Demo25\project1.exe --stack 16777216 9 | if errorlevel 1 goto linkend 10 | goto end 11 | :asmend 12 | echo An error occured while assembling %THEFILE% 13 | goto end 14 | :linkend 15 | echo An error occured while linking %THEFILE% 16 | :end 17 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo25/project1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo25/project1.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo25/project1.lpr: -------------------------------------------------------------------------------- 1 | program project1; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | {$IFDEF UNIX}{$IFDEF UseCThreads} 7 | cthreads, 8 | {$ENDIF}{$ENDIF} 9 | Interfaces, // this includes the LCL widgetset 10 | Forms, Unit1, LResources, P4DLaz 11 | { you can add units after this }; 12 | 13 | {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} 14 | 15 | begin 16 | {$I project1.lrs} 17 | Application.Initialize; 18 | Application.CreateForm(TForm1, Form1); 19 | Application.Run; 20 | end. 21 | 22 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo25/project1.manifest: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | Your application description here. 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo25/project1.rc: -------------------------------------------------------------------------------- 1 | #define RT_MANIFEST 24 2 | #define CREATEPROCESS_MANIFEST_RESOURCE_ID 1 3 | #define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2 4 | #define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3 5 | 6 | CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest" 7 | MAINICON ICON "project1.ico" 8 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo25/project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo25/project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo31/Project1.lpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | {.$I Definition.Inc} 4 | uses 5 | Interfaces, 6 | Forms, 7 | Unit1 in 'Unit1.pas' {Form1}, 8 | WrapDelphiTypes in '..\..\Components\Sources\Core\WrapDelphiTypes.pas', 9 | Unit2 in 'Unit2.pas' {TestForm}; 10 | 11 | {$R *.res} 12 | 13 | begin 14 | Application.Initialize; 15 | Application.CreateForm(TForm1, Form1); 16 | Application.CreateForm(TTestForm, TestForm); 17 | Application.Run; 18 | end. 19 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo31/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo31/Project1.res -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo31/Project1_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Demos/FPC/Demo31/Project1_Icon.ico -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo31/Unit2.lfm: -------------------------------------------------------------------------------- 1 | object TestForm: TTestForm 2 | Left = 725 3 | Height = 341 4 | Top = 200 5 | Width = 614 6 | ClientHeight = 341 7 | ClientWidth = 614 8 | LCLVersion = '1.5' 9 | object CheckBox1: TCheckBox 10 | Left = 96 11 | Height = 22 12 | Top = 16 13 | Width = 91 14 | Caption = 'CheckBox1' 15 | TabOrder = 0 16 | end 17 | object CheckBox2: TCheckBox 18 | Left = 96 19 | Height = 22 20 | Top = 56 21 | Width = 91 22 | Caption = 'CheckBox2' 23 | Checked = True 24 | State = cbChecked 25 | TabOrder = 1 26 | end 27 | object btnClose: TButton 28 | Left = 88 29 | Height = 25 30 | Top = 256 31 | Width = 75 32 | Caption = 'Close' 33 | OnClick = btnCloseClick 34 | TabOrder = 2 35 | end 36 | object Edit1: TEdit 37 | Left = 96 38 | Height = 25 39 | Top = 96 40 | Width = 121 41 | TabOrder = 3 42 | Text = 'Edit1' 43 | end 44 | object ListBox1: TListBox 45 | Left = 328 46 | Height = 169 47 | Top = 48 48 | Width = 249 49 | ItemHeight = 0 50 | ScrollWidth = 247 51 | TabOrder = 4 52 | TopIndex = -1 53 | end 54 | object btnAdd: TButton 55 | Left = 104 56 | Height = 25 57 | Top = 128 58 | Width = 75 59 | Caption = 'Add' 60 | TabOrder = 5 61 | end 62 | end 63 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/FPC/Demo31/Unit2.pas: -------------------------------------------------------------------------------- 1 | unit Unit2; 2 | 3 | {$MODE Delphi} 4 | 5 | interface 6 | 7 | uses 8 | SysUtils, 9 | Variants, Classes, Graphics, Controls, Forms, 10 | Dialogs, StdCtrls; 11 | 12 | type 13 | TTestForm = class(TForm) 14 | CheckBox1: TCheckBox; 15 | CheckBox2: TCheckBox; 16 | btnClose: TButton; 17 | Edit1: TEdit; 18 | ListBox1: TListBox; 19 | btnAdd: TButton; 20 | procedure btnCloseClick(Sender: TObject); 21 | private 22 | { Private declarations } 23 | public 24 | { Public declarations } 25 | end; 26 | 27 | var 28 | TestForm: TTestForm; 29 | 30 | implementation 31 | 32 | {$R *.lfm} 33 | 34 | procedure TTestForm.btnCloseClick(Sender: TObject); 35 | begin 36 | Close; 37 | end; 38 | 39 | initialization 40 | RegisterClass(TTestForm); 41 | end. 42 | 43 | -------------------------------------------------------------------------------- /PythonForDelphi/Demos/readme.txt: -------------------------------------------------------------------------------- 1 | Demo01 A simple Python evaluator 2 | Demo02 Evaluate a Python expression 3 | Demo03 Defining Python/Delphi vars 4 | Demo04 Defining Python/Delphi vars (advanced case) 5 | Demo05 Defining a new Module 6 | Demo06 Defining a new Type 7 | Demo07 Using Delphi methods as Python functions 8 | Demo08 Using Delphi classes for new Python types 9 | Demo09 Making a Python module as a Dll 10 | Demo10 Mapping Delphi VCL components inside Python using TPythonDatabase (BDE - not changed) 11 | Demo10_FireDAC Database demo using FireDAC 12 | Demo11 Using Threads inside Python 13 | Demo12 Using PythonAtom. -> Deprecated since Delphi 6, See VarPyth instead 14 | Demo13 Using TPythonDatabase. (BDE - not changed) 15 | Demo14 Making a Dll with TPythonDatabase (BDE - not changed) 16 | Demo15 Using a TDataset descendant with Python, except TTable and TQuery. (BDE - not changed) 17 | Demo16 Using a TDelphiVar or Module methods ? (Kylix ready) 18 | Demo17 Using variant arrays of 2 dimensions (Kylix ready) 19 | Demo18 C++ Builder: using the Python Dll in a console application 20 | Demo19 C++ Builder: this is a replicate of the Delphi Demo05 21 | Demo20 C++ Builder: this is a replicate of the Delphi Demo08 22 | Demo21 Using Events in TPythonModule or TPythonType (Kylix ready) 23 | Demo22 Using Threading, Windows Console and Command line arguments (Kylix ready) 24 | Demo23 Using Threading and Delphi log window. (Kylix ready) 25 | Demo24 Using TAtomPythonEngine (Deprecated since Delphi 6, See VarPyth instead) 26 | Demo25 Using VarPyth.pas (Kylix ready) 27 | Demo26 Demo8 revisited to allow the new Python type to be subclassed 28 | Demo27 Container indexing 29 | Demo28 Iterator (Kylix ready) 30 | Demo29 Using Python Imaging Library (PAL) 31 | Demo30 Using Named Parameters (Kylix ready) 32 | Demo31 Using WrapDelphi to access Delphi Form attributes (Requires Delphi5 or later) 33 | Demo32 Demo08 revisited using WrapDelphi (Requires Delphi7 or later) 34 | Demo33 Using Threads inside Python 35 | -------------------------------------------------------------------------------- /PythonForDelphi/Deployment.txt: -------------------------------------------------------------------------------- 1 | See document "Deploying P4D.PDF" first. 2 | 3 | When you want to distribute your Delphi application using Python, 4 | here's what you have to do: 5 | - install the whole Lib directory of the standard Python distribution 6 | (i.e. c:\program files\Python\Lib) 7 | This folder is necessary for the exceptions.py module that defines the Exception 8 | objects, if you're using them. 9 | Note that the file exceptions.py does not exist any more with versions of Python 10 | equal or greater than 2.0 11 | - optionally install the whole DLLs directory of the standard Python distribution 12 | (i.e. c:\program files\Python\DLLs) 13 | - install the python15.dll in the system folder 14 | - In your application, use the OnPathInitialization of the TPythonEngine 15 | and define the path with the Lib and DLLs folders you have installed. Add your 16 | own folders that contain your python modules. 17 | Note that each folder must be separated with a semi-colon (;) in the path string. 18 | 19 | That's all ! 20 | -------------------------------------------------------------------------------- /PythonForDelphi/Modules/Delphi/Delphi.dpr: -------------------------------------------------------------------------------- 1 | library Delphi; 2 | 3 | { Important note about DLL memory management: ShareMem must be the 4 | first unit in your library's USES clause AND your project's (select 5 | Project-View Source) USES clause if your DLL exports any procedures or 6 | functions that pass strings as parameters or function results. This 7 | applies to all strings passed to and from your DLL--even those that 8 | are nested in records and classes. ShareMem is the interface unit to 9 | the BORLNDMM.DLL shared memory manager, which must be deployed along 10 | with your DLL. To avoid using BORLNDMM.DLL, pass string information 11 | using PChar or ShortString parameters. } 12 | 13 | uses 14 | SysUtils, 15 | Classes, 16 | uMain in 'uMain.pas'; 17 | 18 | {$R *.res} 19 | 20 | {$I Definition.Inc} 21 | 22 | exports 23 | initDelphi; 24 | {$IFDEF MSWINDOWS} 25 | {$E pyd} 26 | {$ENDIF} 27 | {$IFDEF LINUX} 28 | {$SONAME 'Delphi'} 29 | 30 | {$ENDIF} 31 | 32 | begin 33 | end. 34 | 35 | -------------------------------------------------------------------------------- /PythonForDelphi/Modules/Delphi/Delphi.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/Modules/Delphi/Delphi.res -------------------------------------------------------------------------------- /PythonForDelphi/Modules/Delphi/uMain.pas: -------------------------------------------------------------------------------- 1 | unit uMain; 2 | 3 | interface 4 | 5 | uses PythonEngine, WrapDelphi, WrapDelphiVCL; 6 | 7 | procedure initDelphi; cdecl; 8 | 9 | var 10 | gEngine : TPythonEngine; 11 | gModule : TPythonModule; 12 | gDelphiWrapper : TPyDelphiWrapper; 13 | 14 | implementation 15 | 16 | procedure initDelphi; 17 | begin 18 | try 19 | gEngine := TPythonEngine.Create(nil); 20 | gEngine.AutoFinalize := False; 21 | 22 | gModule := TPythonModule.Create(nil); 23 | gModule.Engine := gEngine; 24 | gModule.ModuleName := 'Delphi'; 25 | 26 | gDelphiWrapper := TPyDelphiWrapper.Create(nil); 27 | gDelphiWrapper.Engine := gEngine; 28 | gDelphiWrapper.Module := gModule; 29 | 30 | gEngine.LoadDll; 31 | except 32 | end; 33 | end; 34 | 35 | initialization 36 | finalization 37 | gEngine.Free; 38 | gModule.Free; 39 | end. 40 | 41 | 42 | -------------------------------------------------------------------------------- /PythonForDelphi/Modules/TestApp.py: -------------------------------------------------------------------------------- 1 | from Delphi import * 2 | 3 | class MainForm(Form): 4 | 5 | def __init__(self, Owner): 6 | self.Caption = "A Delphi Form..." 7 | self.SetBounds(10, 10, 500, 400) 8 | self.lblHello = Label(self) 9 | self.lblHello.SetProps(Parent=self, Caption="Hello World") 10 | self.lblHello.SetBounds(10, 10, 300, 24) 11 | self.OnClose = self.MainFormClose 12 | 13 | def MainFormClose(self, Sender, Action): 14 | Action.Value = caFree 15 | 16 | def main(): 17 | Application.Initialize() 18 | Application.Title = "MyDelphiApp" 19 | f = MainForm(Application) 20 | f.Show() 21 | FreeConsole() 22 | Application.Run() 23 | 24 | main() 25 | 26 | -------------------------------------------------------------------------------- /PythonForDelphi/Python.txt: -------------------------------------------------------------------------------- 1 | Python is a freeware portable object oriented language that is very powerfull. 2 | It compiles the source code into byte-code and runs it in a virtual machine. 3 | Python was created by Guido van Rossum. 4 | 5 | You can find whatever you want about Python at the official site: 6 | http://www.python.org/ 7 | 8 | You can get the sources of Python, or specific binaries distributions 9 | (for unix, Windows, Macintosh, OS2...) 10 | You can get the Python reference manuals (a Tutorial, Language Reference, 11 | Library Reference and Extending Reference). 12 | 13 | There are several books: 14 | - Mark Lutz, Programming Python, O'Reilly and Associates, 1996. 15 | - Guido van Rossum, and James C. Ahlstrom, Internet Programming with Python, 16 | M&T Books (MIS Press/Henry Holt and Co.), Fall, 1996. 17 | 18 | -------------------------------------------------------------------------------- /PythonForDelphi/To do.txt: -------------------------------------------------------------------------------- 1 | - nothing special ! 2 | 3 | -------------------------------------------------------------------------------- /PythonForDelphi/deploying p4d.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonForDelphi/deploying p4d.pdf -------------------------------------------------------------------------------- /PythonVCL/Components/PythonVCL_d3.dpk: -------------------------------------------------------------------------------- 1 | package PythonVCL_d3; 2 | 3 | {$R *.RES} 4 | {$R 'PythonVclStd.dcr'} 5 | {$ALIGN ON} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO ON} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS ON} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST ON} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $00400000} 26 | {$DESCRIPTION 'Components for Python VCL'} 27 | {$DESIGNONLY} 28 | {$IMPLICITBUILD ON} 29 | 30 | requires 31 | vcl30; 32 | 33 | contains 34 | PythonVclStd; 35 | 36 | end. 37 | -------------------------------------------------------------------------------- /PythonVCL/Components/PythonVCL_d3.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/Components/PythonVCL_d3.res -------------------------------------------------------------------------------- /PythonVCL/Components/Sources/VCL/D3/Delphi_System.pas: -------------------------------------------------------------------------------- 1 | //// 2 | // This file was generated by VCL Generator 3 | // Copyright 1998 - Morgan Martinet 4 | // 29/06/1999 12:59:58 5 | // it subclasses all classes of the unit System 6 | //// 7 | 8 | unit Delphi_System; 9 | 10 | interface 11 | 12 | uses 13 | PythonEngine, 14 | PyVarArg, 15 | PyRecords, 16 | PyDelphiAssoc; 17 | 18 | type 19 | TPyObject = class( TObject ) 20 | protected 21 | FAssoc : Integer; 22 | public 23 | destructor Destroy; override; 24 | published 25 | property __assoc__ : Integer read FAssoc write FAssoc; 26 | end; 27 | 28 | TPyInterfacedObject = class( TInterfacedObject ) 29 | protected 30 | FAssoc : Integer; 31 | public 32 | destructor Destroy; override; 33 | published 34 | property __assoc__ : Integer read FAssoc write FAssoc; 35 | end; 36 | 37 | 38 | implementation 39 | 40 | Uses Py_Misc; 41 | 42 | /////////// class TPyObject ///////////////////// 43 | 44 | destructor TPyObject.Destroy; 45 | begin 46 | ClearInterface( TDelphiAssoc(FAssoc) ); 47 | FAssoc := 0; 48 | inherited; 49 | end; 50 | 51 | /////////// class TPyInterfacedObject ///////////////////// 52 | 53 | destructor TPyInterfacedObject.Destroy; 54 | begin 55 | ClearInterface( TDelphiAssoc(FAssoc) ); 56 | FAssoc := 0; 57 | inherited; 58 | end; 59 | 60 | 61 | end. 62 | -------------------------------------------------------------------------------- /PythonVCL/Components/Sources/VCL/D3/PythonVclStd.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/Components/Sources/VCL/D3/PythonVclStd.dcr -------------------------------------------------------------------------------- /PythonVCL/Components/Sources/VCL/D3/PythonVclStd.pas: -------------------------------------------------------------------------------- 1 | ///// 2 | // This file was generated by VCL Generator 3 | // Copyright 1998 - Morgan Martinet 4 | // 29/06/1999 13:00:01 5 | // it builds a component that will install the Python/Delphi mapping 6 | ///// 7 | 8 | unit PythonVclStd; 9 | 10 | interface 11 | 12 | uses Classes, SysUtils, PythonEngine; 13 | 14 | type 15 | TPythonVclStd = class( TEngineClient ) 16 | protected 17 | procedure SetEngine( val : TPythonEngine ); override; 18 | 19 | public 20 | end; 21 | 22 | procedure Register; 23 | 24 | implementation 25 | 26 | uses 27 | Python_Controls, 28 | Python_Forms, 29 | Python_Graphics, 30 | Python_StdCtrls, 31 | Python_Classes, 32 | Python_Menus, 33 | Python_System, 34 | Python_ExtCtrls, 35 | Python_Dialogs, 36 | PyVarArg, 37 | PyRecords, 38 | PyDelphiAssoc; 39 | 40 | procedure Register; 41 | begin 42 | RegisterComponents( 'Python', [TPythonVclStd] ); 43 | end; 44 | 45 | procedure TPythonVclStd.SetEngine( val : TPythonEngine ); 46 | begin 47 | inherited; 48 | if csDesigning in ComponentState then 49 | Exit; 50 | val.AutoFinalize := False; 51 | Python_Controls.Init( Owner, val ); 52 | Python_Forms.Init( Owner, val ); 53 | Python_Graphics.Init( Owner, val ); 54 | Python_StdCtrls.Init( Owner, val ); 55 | Python_Classes.Init( Owner, val ); 56 | Python_Menus.Init( Owner, val ); 57 | Python_System.Init( Owner, val ); 58 | Python_ExtCtrls.Init( Owner, val ); 59 | Python_Dialogs.Init( Owner, val ); 60 | PyDelphiAssoc.Init( Owner, val ); 61 | PyVarArg.Init( Owner, val ); 62 | PyRecords.Init( Owner, val ); 63 | end; 64 | 65 | end. 66 | -------------------------------------------------------------------------------- /PythonVCL/Components/Sources/VCL/D4/Delphi_System.pas: -------------------------------------------------------------------------------- 1 | //// 2 | // This file was generated by VCL Generator 3 | // Copyright 1998 - Morgan Martinet 4 | // 06/07/1999 07:59:00 5 | // it subclasses all classes of the unit System 6 | //// 7 | 8 | unit Delphi_System; 9 | 10 | interface 11 | 12 | uses 13 | PythonEngine, 14 | PyVarArg, 15 | PyRecords, 16 | PyDelphiAssoc; 17 | 18 | type 19 | TPyObject = class( TObject ) 20 | protected 21 | FAssoc : Integer; 22 | public 23 | destructor Destroy; override; 24 | published 25 | property __assoc__ : Integer read FAssoc write FAssoc; 26 | end; 27 | 28 | TPyInterfacedObject = class( TInterfacedObject ) 29 | protected 30 | FAssoc : Integer; 31 | public 32 | destructor Destroy; override; 33 | published 34 | property __assoc__ : Integer read FAssoc write FAssoc; 35 | end; 36 | 37 | 38 | implementation 39 | 40 | Uses Py_Misc; 41 | 42 | /////////// class TPyObject ///////////////////// 43 | 44 | destructor TPyObject.Destroy; 45 | begin 46 | ClearInterface( TDelphiAssoc(FAssoc) ); 47 | FAssoc := 0; 48 | inherited; 49 | end; 50 | 51 | /////////// class TPyInterfacedObject ///////////////////// 52 | 53 | destructor TPyInterfacedObject.Destroy; 54 | begin 55 | ClearInterface( TDelphiAssoc(FAssoc) ); 56 | FAssoc := 0; 57 | inherited; 58 | end; 59 | 60 | 61 | end. 62 | -------------------------------------------------------------------------------- /PythonVCL/Components/Sources/VCL/D4/PythonVclStd.pas: -------------------------------------------------------------------------------- 1 | ///// 2 | // This file was generated by VCL Generator 3 | // Copyright 1998 - Morgan Martinet 4 | // 06/07/1999 07:59:03 5 | // it builds a component that will install the Python/Delphi mapping 6 | ///// 7 | 8 | unit PythonVclStd; 9 | 10 | interface 11 | 12 | uses Classes, SysUtils, PythonEngine; 13 | 14 | type 15 | TPythonVclStd = class( TEngineClient ) 16 | protected 17 | procedure SetEngine( val : TPythonEngine ); override; 18 | 19 | public 20 | end; 21 | 22 | procedure Register; 23 | 24 | implementation 25 | 26 | uses 27 | Python_Controls, 28 | Python_Forms, 29 | Python_Graphics, 30 | Python_StdCtrls, 31 | Python_Classes, 32 | Python_Menus, 33 | Python_System, 34 | Python_ExtCtrls, 35 | Python_ActnList, 36 | Python_ImgList, 37 | Python_Dialogs, 38 | PyVarArg, 39 | PyRecords, 40 | PyDelphiAssoc; 41 | 42 | procedure Register; 43 | begin 44 | RegisterComponents( 'Python', [TPythonVclStd] ); 45 | end; 46 | 47 | procedure TPythonVclStd.SetEngine( val : TPythonEngine ); 48 | begin 49 | inherited; 50 | if csDesigning in ComponentState then 51 | Exit; 52 | val.AutoFinalize := False; 53 | Python_Controls.Init( Owner, val ); 54 | Python_Forms.Init( Owner, val ); 55 | Python_Graphics.Init( Owner, val ); 56 | Python_StdCtrls.Init( Owner, val ); 57 | Python_Classes.Init( Owner, val ); 58 | Python_Menus.Init( Owner, val ); 59 | Python_System.Init( Owner, val ); 60 | Python_ExtCtrls.Init( Owner, val ); 61 | Python_ActnList.Init( Owner, val ); 62 | Python_ImgList.Init( Owner, val ); 63 | Python_Dialogs.Init( Owner, val ); 64 | PyDelphiAssoc.Init( Owner, val ); 65 | PyVarArg.Init( Owner, val ); 66 | PyRecords.Init( Owner, val ); 67 | end; 68 | 69 | end. 70 | -------------------------------------------------------------------------------- /PythonVCL/Lib/delphi/D3/System.py: -------------------------------------------------------------------------------- 1 | ### 2 | # This file was generated by VCL Generator 3 | # Copyright 1998 - Morgan Martinet 4 | # 29/06/1999 12:59:58 5 | # it declares the symbols of the Delphi unit System.pas 6 | ### 7 | 8 | import _System 9 | 10 | # Boolean constants 11 | True = 1 12 | False = 0 13 | 14 | #################################################### 15 | class TObject: 16 | def Create( Self ): 17 | return _System.CreateObject( Self ) 18 | 19 | def __getattr__( Self, Key ): 20 | return _System.Object_GetAttr( Self, Key ) 21 | 22 | def __setattr__( Self, Key, Value ): 23 | return _System.Object_SetAttr( Self, Key, Value ) 24 | 25 | def __str__( Self ): 26 | return "" 27 | 28 | def __repr__( Self ): 29 | return str(Self) 30 | 31 | def __hex__( Self ): 32 | return hex(id(Self)) 33 | 34 | def Free( Self ): 35 | if Self.__dict__.has_key("__assoc__"): 36 | del Self.__assoc__ 37 | 38 | # Boolean constants 39 | True = 1 40 | False = 0 41 | 42 | #################################################### 43 | class TInterfacedObject( TObject ): 44 | def Create( Self ): 45 | return _System.CreateInterfacedObject( Self ) 46 | 47 | def __getattr__( Self, Key ): 48 | return _System.InterfacedObject_GetAttr( Self, Key ) 49 | 50 | def __setattr__( Self, Key, Value ): 51 | return _System.InterfacedObject_SetAttr( Self, Key, Value ) 52 | 53 | -------------------------------------------------------------------------------- /PythonVCL/Lib/delphi/D4/ImgList.py: -------------------------------------------------------------------------------- 1 | ### 2 | # This file was generated by VCL Generator 3 | # Copyright 1998 - Morgan Martinet 4 | # 06/07/1999 07:59:02 5 | # it declares the symbols of the Delphi unit ImgList.pas 6 | ### 7 | 8 | from System import * 9 | from Classes import * 10 | from Graphics import * 11 | import _ImgList 12 | 13 | # TDrawingStyle = ( dsFocus, dsSelected, dsNormal, dsTransparent ); 14 | dsFocus = 0 15 | dsSelected = 1 16 | dsNormal = 2 17 | dsTransparent = 3 18 | 19 | # TImageType = ( itImage, itMask ); 20 | itImage = 0 21 | itMask = 1 22 | 23 | # TResType = ( rtBitmap, rtCursor, rtIcon ); 24 | rtBitmap = 0 25 | rtCursor = 1 26 | rtIcon = 2 27 | 28 | # TLoadResource = ( lrDefaultColor, lrDefaultSize, lrFromFile, lrMap3DColors, lrTransparent, lrMonoChrome ); 29 | lrDefaultColor = 0 30 | lrDefaultSize = 1 31 | lrFromFile = 2 32 | lrMap3DColors = 3 33 | lrTransparent = 4 34 | lrMonoChrome = 5 35 | 36 | #################################################### 37 | class TChangeLink( TObject ): 38 | def Create( Self ): 39 | return _ImgList.CreateChangeLink( Self ) 40 | 41 | def __getattr__( Self, Key ): 42 | return _ImgList.ChangeLink_GetAttr( Self, Key ) 43 | 44 | def __setattr__( Self, Key, Value ): 45 | return _ImgList.ChangeLink_SetAttr( Self, Key, Value ) 46 | 47 | #################################################### 48 | class TCustomImageList( TComponent ): 49 | def Create( Self, AOwner ): 50 | return _ImgList.CreateCustomImageList( Self, AOwner ) 51 | 52 | def CreateSize( Self, AWidth, AHeight ): 53 | return _ImgList.CreateSizeCustomImageList( Self, AWidth, AHeight ) 54 | 55 | def __getattr__( Self, Key ): 56 | return _ImgList.CustomImageList_GetAttr( Self, Key ) 57 | 58 | def __setattr__( Self, Key, Value ): 59 | return _ImgList.CustomImageList_SetAttr( Self, Key, Value ) 60 | 61 | -------------------------------------------------------------------------------- /PythonVCL/Lib/delphi/D4/System.py: -------------------------------------------------------------------------------- 1 | ### 2 | # This file was generated by VCL Generator 3 | # Copyright 1998 - Morgan Martinet 4 | # 06/07/1999 07:59:00 5 | # it declares the symbols of the Delphi unit System.pas 6 | ### 7 | 8 | import _System 9 | 10 | # Boolean constants 11 | True = 1 12 | False = 0 13 | 14 | #################################################### 15 | class TObject: 16 | def Create( Self ): 17 | return _System.CreateObject( Self ) 18 | 19 | def __getattr__( Self, Key ): 20 | return _System.Object_GetAttr( Self, Key ) 21 | 22 | def __setattr__( Self, Key, Value ): 23 | return _System.Object_SetAttr( Self, Key, Value ) 24 | 25 | def __str__( Self ): 26 | return "" 27 | 28 | def __repr__( Self ): 29 | return str(Self) 30 | 31 | def __hex__( Self ): 32 | return hex(id(Self)) 33 | 34 | def Free( Self ): 35 | if Self.__dict__.has_key("__assoc__"): 36 | del Self.__assoc__ 37 | 38 | # Boolean constants 39 | True = 1 40 | False = 0 41 | 42 | #################################################### 43 | class TInterfacedObject( TObject ): 44 | def Create( Self ): 45 | return _System.CreateInterfacedObject( Self ) 46 | 47 | def __getattr__( Self, Key ): 48 | return _System.InterfacedObject_GetAttr( Self, Key ) 49 | 50 | def __setattr__( Self, Key, Value ): 51 | return _System.InterfacedObject_SetAttr( Self, Key, Value ) 52 | 53 | -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/Childwin.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/Childwin.dfm -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/Lisp.py: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/Lisp.py -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/MAIN.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/MAIN.dfm -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/NewMemoryManager.pas: -------------------------------------------------------------------------------- 1 | unit NewMemoryManager; 2 | 3 | interface 4 | var 5 | GetMemCount: Integer; 6 | FreeMemCount: Integer; 7 | ReallocMemCount: Integer; 8 | 9 | implementation 10 | 11 | var 12 | OldMemMgr: TMemoryManager; 13 | 14 | function NewGetMem(Size: Integer): Pointer; 15 | var 16 | ptr : PChar; 17 | begin 18 | Inc(GetMemCount); 19 | ptr := OldMemMgr.GetMem(Size+4); 20 | //Inc(ptr, 4); 21 | Result := ptr; 22 | end; 23 | 24 | function NewFreeMem(P: Pointer): Integer; 25 | var 26 | ptr : PChar; 27 | begin 28 | Inc(FreeMemCount); 29 | ptr := P; 30 | //Dec(ptr, 4); 31 | Result := OldMemMgr.FreeMem(ptr); 32 | end; 33 | 34 | function NewReallocMem(P: Pointer; Size: Integer): Pointer; 35 | var 36 | ptr : PChar; 37 | begin 38 | Inc(ReallocMemCount); 39 | ptr := P; 40 | //Dec(ptr, 4); 41 | Result := OldMemMgr.ReallocMem(ptr, Size+4); 42 | end; 43 | 44 | const 45 | NewMemMgr: TMemoryManager = ( 46 | GetMem: NewGetMem; 47 | FreeMem: NewFreeMem; 48 | ReallocMem: NewReallocMem); 49 | 50 | procedure SetNewMemMgr; 51 | begin 52 | GetMemoryManager(OldMemMgr); 53 | SetMemoryManager(NewMemMgr); 54 | end; 55 | 56 | procedure SetOldMemMgr; 57 | begin 58 | SetMemoryManager(OldMemMgr); 59 | end; 60 | 61 | initialization 62 | SetNewMemMgr; 63 | finalization 64 | SetOldMemMgr; 65 | end. 66 | -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/PyDelphi.dof: -------------------------------------------------------------------------------- 1 | [Compiler] 2 | A=1 3 | B=0 4 | C=0 5 | D=1 6 | E=0 7 | F=0 8 | G=1 9 | H=1 10 | I=1 11 | J=1 12 | K=0 13 | L=1 14 | M=0 15 | N=1 16 | O=0 17 | P=1 18 | Q=0 19 | R=0 20 | S=0 21 | T=0 22 | U=0 23 | V=1 24 | W=0 25 | X=1 26 | Y=0 27 | Z=1 28 | ShowHints=0 29 | ShowWarnings=0 30 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 31 | 32 | [Linker] 33 | MapFile=0 34 | OutputObjs=0 35 | ConsoleApp=1 36 | DebugInfo=0 37 | MinStackSize=16384 38 | MaxStackSize=1048576 39 | ImageBase=4194304 40 | ExeDescription= 41 | 42 | [Directories] 43 | OutputDir= 44 | UnitOutputDir= 45 | SearchPath= 46 | Packages=VCLX30;VCL30;VCLDB30;VCLDBX30;VCLSMP30;QRPT30;TEEUI30;TEEDB30;TEE30;IBEVNT30;ISPck;Insp30 47 | Conditionals=PYVER15 48 | DebugSourceDirs= 49 | UsePackages=0 50 | 51 | [Parameters] 52 | RunParams= 53 | HostApplication= 54 | 55 | [Version Info] 56 | IncludeVerInfo=1 57 | AutoIncBuild=0 58 | MajorVer=1 59 | MinorVer=0 60 | Release=0 61 | Build=0 62 | Debug=0 63 | PreRelease=0 64 | Special=0 65 | Private=0 66 | DLL=0 67 | Locale=1036 68 | CodePage=1252 69 | 70 | [Version Info Keys] 71 | CompanyName= 72 | FileDescription= 73 | FileVersion=1.0.0.0 74 | InternalName= 75 | LegalCopyright= 76 | LegalTrademarks= 77 | OriginalFilename= 78 | ProductName= 79 | ProductVersion=1.0.0.0 80 | Comments= 81 | 82 | [Excluded Packages] 83 | D:\tmp\Delphi\midware\DELPHI\VC32\Midware.dpl=MidWare (Middleware by F. Piette) 84 | -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/PyDelphi.dpr: -------------------------------------------------------------------------------- 1 | program PyDelphi; 2 | 3 | uses 4 | Forms, 5 | Main in 'MAIN.PAS' {MainForm}, 6 | Childwin in 'CHILDWIN.PAS' {MDIChild}, 7 | fmOutput in 'fmOutput.pas' {OutputForm}, 8 | fmTraceBack in 'fmTraceBack.pas' {TraceBack}, 9 | fmAbout in 'fmAbout.pas' {AboutBox}, 10 | fmFind in 'fmFind.pas' {FormFind}, 11 | Misc in 'Misc.pas', 12 | fmReplace in 'fmReplace.pas' {FormReplace}, 13 | qrPrintText in 'qrPrintText.pas' {PrintText}, 14 | MRUFList in 'Components used\Mruflist.pas'; 15 | 16 | {$R *.RES} 17 | 18 | begin 19 | Application.Title := 'Python for Delphi'; 20 | Application.CreateForm(TMainForm, MainForm); 21 | Application.CreateForm(TOutputForm, OutputForm); 22 | Application.CreateForm(TAboutBox, AboutBox); 23 | Application.CreateForm(TFormFind, FormFind); 24 | Application.CreateForm(TFormReplace, FormReplace); 25 | Application.CreateForm(TPrintText, PrintText); 26 | Application.Run; 27 | end. 28 | -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/PyDelphi.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/PyDelphi.ico -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/PyDelphi.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/PyDelphi.res -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/PyDelphiForm.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/PyDelphiForm.dfm -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/SetPath.py: -------------------------------------------------------------------------------- 1 | import sys 2 | 3 | # (Un)comment the line corresponding to your delphi version 4 | # and adjust the path to your current installation 5 | 6 | sys.path.append("d:\users\Morgan\PythonEngine\Lib\Delphi\D3") 7 | 8 | #sys.path.append("d:\users\Morgan\PythonEngine\Lib\Delphi\D4") 9 | -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/To do.txt: -------------------------------------------------------------------------------- 1 | - Add preferences for: 2 | Autosave before Execute 3 | AutoIndent (yes/no) 4 | 5 | - Add a menu entry Indent/Unindent selection 6 | 7 | 8 | 9 | 10 | 11 | -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/fmAbout.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/fmAbout.dfm -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/fmFind.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/fmFind.dfm -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/fmFind.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/fmFind.pas -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/fmOutput.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/fmOutput.dfm -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/fmOutput.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/fmOutput.pas -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/fmReplace.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/fmReplace.dfm -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/fmReplace.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/fmReplace.pas -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/fmTraceBack.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/fmTraceBack.dfm -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/fmTraceBack.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/fmTraceBack.pas -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/qrPrintText.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/PyDelphi/qrPrintText.dfm -------------------------------------------------------------------------------- /PythonVCL/PyDelphi/test2.py: -------------------------------------------------------------------------------- 1 | # open the file SetPath.py and adjust the path 2 | import SetPath 3 | # use the same name of units as you use in the USES instruction of a unit. 4 | from Forms import * 5 | from StdCtrls import * 6 | 7 | # Create a class with a Click event 8 | class Test: 9 | def Click( Self, Sender ): 10 | print "You clicked the ", Sender.Caption, " menu item !" 11 | 12 | # Instantiate this class 13 | t = Test() 14 | 15 | # Get the MainMenu from the MainForm 16 | main = Application.MainForm.FindComponent( "MainMenu1") 17 | 18 | # Create a new menu 19 | new = TMenuItem().Create(main) 20 | new.Caption = "New menu" 21 | 22 | # Create a submenu item in the new menu 23 | sub1 = TMenuItem().Create(main) 24 | sub1.Caption = "Click-me !" 25 | sub1.OnClick = t.Click # connect this menu item to the instance created, containing our event code 26 | new.Add( sub1 ) 27 | 28 | # Add the new menu 29 | main.Items.Add( new ) 30 | 31 | # Try it !!! 32 | -------------------------------------------------------------------------------- /PythonVCL/Readme.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/Readme.txt -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/Standard_d3.prj: -------------------------------------------------------------------------------- 1 | TPythonVclStd PythonVclStd'd:\users\Morgan\PythonVCL\Lib\Delphi\D33d:\users\Morgan\PythonVCL\Components\Sources\VCL\D3TApplication 2 | TScreen 3 | c:\Program Files\Borland\Delphi 3\Source\Vcl\controls.pas 4 | c:\Program Files\Borland\Delphi 3\Source\Vcl\forms.pas 5 | c:\Program Files\Borland\Delphi 3\Source\Vcl\graphics.pas 6 | c:\Program Files\Borland\Delphi 3\Source\Vcl\stdctrls.pas 7 | c:\Program Files\Borland\Delphi 3\Source\Vcl\classes.pas 8 | c:\Program Files\Borland\Delphi 3\Source\Vcl\menus.pas 9 | c:\Program Files\Borland\Delphi 3\Source\Rtl\Sys\system.pas 10 | c:\Program Files\Borland\Delphi 3\Source\Vcl\extctrls.pas 11 | C:\Program Files\Borland\Delphi 3\Source\Vcl\dialogs.pas 12 | -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/Standard_d4.prj: -------------------------------------------------------------------------------- 1 | TPythonVclStd PythonVclStd'd:\users\Morgan\PythonVCL\Lib\Delphi\D43d:\users\Morgan\PythonVCL\Components\Sources\VCL\D4TInterfaceListTApplication 2 | TScreen 3 | e:\Program Files\Borland\Delphi4\Source\Vcl\controls.pas 4 | e:\Program Files\Borland\Delphi4\Source\Vcl\forms.pas 5 | e:\Program Files\Borland\Delphi4\Source\Vcl\graphics.pas 6 | e:\Program Files\Borland\Delphi4\Source\Vcl\stdctrls.pas 7 | e:\Program Files\Borland\Delphi4\Source\Vcl\classes.pas 8 | e:\Program Files\Borland\Delphi4\Source\Vcl\menus.pas 9 | e:\Program Files\Borland\Delphi4\Source\Rtl\Sys\system.pas 10 | e:\Program Files\Borland\Delphi4\Source\Vcl\extctrls.pas 11 | E:\Program Files\Borland\Delphi4\Source\Vcl\actnlist.pas 12 | E:\Program Files\Borland\Delphi4\Source\Vcl\imglist.pas 13 | e:\Program Files\Borland\Delphi4\Source\Vcl\dialogs.pas 14 | -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/VCLGenerator.dof: -------------------------------------------------------------------------------- 1 | [Compiler] 2 | A=1 3 | B=0 4 | C=1 5 | D=1 6 | E=0 7 | F=0 8 | G=1 9 | H=1 10 | I=1 11 | J=1 12 | K=0 13 | L=1 14 | M=0 15 | N=1 16 | O=0 17 | P=1 18 | Q=0 19 | R=0 20 | S=0 21 | T=0 22 | U=0 23 | V=1 24 | W=0 25 | X=1 26 | Y=0 27 | Z=1 28 | ShowHints=1 29 | ShowWarnings=1 30 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 31 | 32 | [Linker] 33 | MapFile=0 34 | OutputObjs=0 35 | ConsoleApp=1 36 | DebugInfo=0 37 | MinStackSize=16384 38 | MaxStackSize=1048576 39 | ImageBase=4194304 40 | ExeDescription= 41 | 42 | [Directories] 43 | OutputDir= 44 | UnitOutputDir= 45 | SearchPath= 46 | Packages=VCLX30;VCL30;VCLDB30;VCLDBX30;VCLSMP30;QRPT30;TEEUI30;TEEDB30;TEE30;IBEVNT30;RZLPCK10 47 | Conditionals= 48 | DebugSourceDirs= 49 | UsePackages=0 50 | 51 | [Parameters] 52 | RunParams= 53 | HostApplication= 54 | 55 | [Version Info] 56 | IncludeVerInfo=0 57 | AutoIncBuild=0 58 | MajorVer=1 59 | MinorVer=0 60 | Release=0 61 | Build=0 62 | Debug=0 63 | PreRelease=0 64 | Special=0 65 | Private=0 66 | DLL=0 67 | Locale=1036 68 | CodePage=1252 69 | 70 | [Version Info Keys] 71 | CompanyName= 72 | FileDescription= 73 | FileVersion=1.0.0.0 74 | InternalName= 75 | LegalCopyright= 76 | LegalTrademarks= 77 | OriginalFilename= 78 | ProductName= 79 | ProductVersion=1.0.0.0 80 | Comments= 81 | -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/VCLGenerator.dpr: -------------------------------------------------------------------------------- 1 | program VCLGenerator; 2 | 3 | uses 4 | Forms, 5 | fmMain in 'fmMain.pas' {MainForm}, 6 | unUnitParser in 'unUnitParser.pas', 7 | unParser in 'unParser.pas', 8 | fmAbout in 'fmAbout.pas' {AboutBox}, 9 | fmOptions in 'fmOptions.pas' {Options}, 10 | fmSettings in 'fmSettings.pas' {Settings}, 11 | unHash in 'unHash.pas', 12 | Py_Misc in '..\Components\Sources\VCL\Py_Misc.pas'; 13 | 14 | {$R *.RES} 15 | 16 | begin 17 | Application.Initialize; 18 | Application.Title := 'VCL Generator'; 19 | Application.CreateForm(TMainForm, MainForm); 20 | Application.CreateForm(TAboutBox, AboutBox); 21 | Application.CreateForm(TOptions, Options); 22 | Application.CreateForm(TSettings, Settings); 23 | Application.Run; 24 | end. 25 | -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/VCLGenerator.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/VCL Generator/VCLGenerator.res -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/fmAbout.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/VCL Generator/fmAbout.dfm -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/fmMain.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/VCL Generator/fmMain.dfm -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/fmMain.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/VCL Generator/fmMain.pas -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/fmOptions.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/VCL Generator/fmOptions.dfm -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/fmOptions.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/VCL Generator/fmOptions.pas -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/fmSettings.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/VCL Generator/fmSettings.dfm -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/fmSettings.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/hartmutdavid/python4delphi/dafce9dbb1488bb5480202df295437a2c7bcfc77/PythonVCL/VCL Generator/fmSettings.pas -------------------------------------------------------------------------------- /PythonVCL/VCL Generator/options.dat: -------------------------------------------------------------------------------- 1 | 'd:\users\Morgan\PythonEngine\Lib\Delphi6d:\users\Morgan\PythonEngine\Components\Sources\VCL\D4 -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | Python for Delphi (P4D) is a set of free components that wrap up the Python dll into Delphi and Lazarus (FPC). They let you easily execute Python scripts, create new Python modules and new Python types. You can create Python extensions as dlls and much more. P4D provides different levels of functionality: 2 | 3 | * **Low-level access to the python API** 4 | * **High-level bi-directional interaction with Python** 5 | * **Access to Python objects using Delphi custom variants (VarPyth.pas)** 6 | * **Wrapping of Delphi objects for use in python scripts using RTTI (WrapDelphi.pas)** 7 | 8 | P4D makes it very easy to use python as a scripting language for Delphi applications. It comes with an extensive range of demos and tutorials. 9 | 10 | This forked-version includes customizations to Python 3.x, 64bit and FireDAC. 11 | The GetIt-package "SynEdit" is required. 12 | All changed demos have been compiled and tested to 64-bit-Windows. 13 | --------------------------------------------------------------------------------