Question

如何将文本从python3传递到用delphi编写的dll。

Delphi dll代码

library pascal_test;
{$MODE Delphi}
function test(s : string) : integer; stdcall;
  begin
    writeln(s);
  end;
exports test;
end.

Python代码：

from ctypes import *
lib = cdll.pascal_test
print(lib.test('mystring'))

Answer 1

以下是我发现的代码：

免费pascal代码

library pascal_test;
{$MODE Delphi}
  function test(s : PAnsiChar   ) : integer; stdcall;
  var
    t: string;
  begin
    t:=s;
    writeln(t);
    test:=0;
  end;
  exports test;
end.

Python代码

from ctypes import *
lib = windll.pascal_test
lib.argtypes = [c_char_p]
print(lib.test(b'teststring'))

<强>更新

更新为使用windll和stdcall

将文本从python传递给delphi dll

1 个答案: