This allows you to use Python objects like COM automation objects, inside your Delphi source code. Also studying the unit tests for VarPyth and WrapDelphi can help understand what is possible with these two units. The best way to learn about how to use Python for Delphi is to try the extensive range of demos available. Procedure InitSysPath var _path: PPyObject Ĭonst Script = ‘import sys’ + sLineBreak+ ‘sys.executable = r”%s”’ + sLineBreak+ ‘path = sys.path’ + sLineBreak+ ‘for i in range(len(path)-1, -1, -1):’ + sLineBreak+ ‘ if path.find(“site-packages”) > 0:’ + sLineBreak+ ‘ path.pop(i)’ + sLineBreak+ ‘import site’ + sLineBreak+ ‘site.main()’ + sLineBreak+ ‘del sys, path, i, site’ īegin if VenvPythonExe ‘’ then ExecString(AnsiString(Format(Script, ))) _path := PySys_GetObject(‘path’) if Assigned(FOnSysPathInit) then FOnSysPathInit(Self, _path) end We also use to invoke a Python script as an embedding const and use the dll functionality of Import(‘PyRun_SimpleString’) Copyright © 1991–1995 Stichting Mathematisch Centrum, Amsterdam. Copyright © 1995–2001 Corporation for National Research Initiatives. If isDLLOnSystem(PYDLLPATH+PYDLLNAME) then begin showmessage(‘py dll available’) writeln(getCopyRight) end Ĭopyright © 2001–2019 Python Software Foundation.
Then we call the function with a pre-test:įunction IsDLLOnSystem(DLLName: string): Boolean var ret: integer good: boolean begin ret:= LoadLibrary(pchar(DLLNAME)) Good:= ret>0 if good then FreeLibrary(ret) result:= Good end if fileExistst(PYDLLPATH+ ‘python37.dll’ function getCopyRight: PChar external stdcall’ So a very first simple approach is to call the Python dll without a wrapper or mapper e.g.
0 kommentar(er)
