使用delphi 为python创建一个新的类型。

最新推荐文章于 2024-08-08 08:10:44 发布

不得闲

最新推荐文章于 2024-08-08 08:10:44 发布

阅读量1.8k

点赞数

分类专栏： Delphi编程 Python 文章标签： delphi python initialization 文档 import dll

Delphi编程同时被 2 个专栏收录

87 篇文章 2 订阅

订阅专栏

Python

39 篇文章 2 订阅

订阅专栏

花费了一个晚上的时间，终于调试通过。时间长的原因是没有直接的文档和例子。时间不早了，紧急记录以下，主要看标注。

procedure initdemodll;
begin
try
gEngine := TPythonEngine.Create(nil);
gEngine.AutoFinalize := False;
gEngine.DllName := 'python24.dll';
gEngine.APIVersion := 1012 ;
//gEngine.LoadDll; 不能在这里，要想Type注册，必须放到AddClient之后
gModule := TPythonModule.Create(nil);
gModule.Engine := gEngine;
gModule.ModuleName := 'demodll';
gModule.AddMethod( 'add', @Add, 'add(a,b) -> a+b fffff' );
// form

PythonType:= TPythonType.Create(nil);
PythonType.Engine := gEngine ;
PythonType.Module := gModule ;
PythonType.TypeName := 'Point3';
PythonType.PyObjectClass := TPyPoint;
// AddClient 就是注册类型，为什么？不知道，最难的就是这里，很不容易猜测到通过这个方式来注册
gModule.AddClient(PythonType);
// 这个没有用处
//gModule.OnInitialization := form10.PythonType1Initialization ;
//gModule.Initialize;
gEngine.LoadDll;
except
end;
end;