Python入门：Python调用Delphi写的Dll

源码资源网

Python入门：Python调用Delphi写的Dll

Delphi版本Delphi 10 Seattle

Delphi代码

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. function testint(): integer; stdcall;
   
6. function testpchar(): PChar; stdcall;
   
7. 
   
8. implementation
   
9. 
   
10. function testint(): integer; stdcall;
    
11. begin
    
12.   result := 666;
    
13. end;
    
14. 
    
15. function testpchar(): PChar; stdcall;
    
16. begin
    
17.   result := '中文';
    
18. end;

复制代码

1. library Project1;
   
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.   System.SysUtils,
    
15.   System.Classes,
    
16.   Unit1 in 'Unit1.pas';
    
17. 
    
18. {$R *.res}
    
19. 
    
20. exports
    
21.   testint,
    
22.   testpchar;
    
23. 
    
24. begin
    
25. 
    
26. end.

复制代码

Python调用

1. import ctypes
   
2. 
   
3. dll = ctypes.windll.LoadLibrary("Project1.dll")
   
4. ri = dll.testint()
   
5. print(ri)
   
6. 
   
7. rc = dll.testpchar()
   
8. rc = ctypes.c_wchar_p(rc)
   
9. print(rc.value)

复制代码

备注：

ctypes定义了一系列基本C数据类型：