zoukankan      html  css  js  c++  java
  • python调用Delphi写的Dll

    Delphi单元如下(输出hello.dll):

    unit hellofun;
    
    interface
    
    function getint():integer;stdcall;
    function sayhello(var sname:PAnsiChar):PAnsiChar;stdcall;
    
    implementation
    
    function getint():integer;stdcall;
    begin
      result:=888;
    end;
    
    function sayhello(var sname:PAnsiChar):PAnsiChar;stdcall;
    begin
      sname:='ok!';
      result:='hello,garfield !';
    end;
    
    
    end.
    library hello;
    
    { Important note about DLL memory management: ShareMem must be the
      first unit in your library's USES clause AND your project's (select
      Project-View Source) USES clause if your DLL exports any procedures or
      functions that pass strings as parameters or function results. This
      applies to all strings passed to and from your DLL--even those that
      are nested in records and classes. ShareMem is the interface unit to
      the BORLNDMM.DLL shared memory manager, which must be deployed along
      with your DLL. To avoid using BORLNDMM.DLL, pass string information
      using PChar or ShortString parameters. }
    
    uses
      System.SysUtils,
      System.Classes,
      hellofun in 'hellofun.pas';
    
    {$R *.res}
    
    exports
      getint,
      sayhello;
    
    begin
    end.

    python中调用如下:

    import ctypes
    
    
    def main():
        dll=ctypes.windll.LoadLibrary("hello.dll")
        ri=dll.getint()
        print(ri)
    
        s=ctypes.c_char_p()
        rs=ctypes.c_char_p()
        rs=dll.sayhello(ctypes.byref(s))
        print(s)
        print(ctypes.c_char_p(rs))
    
    if __name__ == '__main__':
        main()

    运行Python,输出如下:

    >>> 
    888
    c_char_p(b'ok!')
    c_char_p(b'hello,garfield !')
    >>> 

    好了,我们可以让python完成部分功能在Delphi中调用,也可以用Delphi完成部分功能在Python中调用。

    以上程序在Delphi XE2及Python3.2中调试通过。

  • 相关阅读:
    java 单向链表实现
    super、this
    Java程序员们最常犯的10个错误
    Codeforces-1323D Present
    Codeforces-1323E Instant Noodles
    Codeforces-1312E Array Shrinking
    Codeforces-1327D Infinite Path
    Codeforces-1326D Prefix-Suffix Palindrome
    HDU-5885 XM Reserves
    NTT(快速数论变换)用到的各种素数及原根
  • 原文地址:https://www.cnblogs.com/GarfieldTom/p/2961994.html
Copyright © 2011-2022 走看看