Python può chiamare le funzioni Delphi in una DLL?

Question

Sto provando a chiamare le funzioni da una DLL che sembra essere stata creata in Delphi. Un esempio di alcune funzioni supportate dalla DLL sono:

function oziDeleteWpByName(var name:pansichar):integer;stdcall 

codice Python ho scritto per accedere alle funzioni di cui sopra non funziona.

from ctypes import * 
libc = cdll.OziAPI 
name ='test' 

pi = pointer(name) 

delname = libc.oziDeleteWpByName 

delname(name) 

sembra che io sto passando il tipo di dati sbagliato alla funzione. Qualche idea su come farlo nel modo giusto?

Grazie ha funzionato. Ora per favore aiuto con questa funzione:

function oziGetOziVersion (var Versione: pansichar; var DataLength: intero): intero; stdcall; La versione di OziExplorer viene restituita nella variabile Version.

Ora come faccio a passare "versione var" quando è quella che verrà restituita.

Answer 1

In Delphi, un parametro var viene passato per riferimento. Quindi quello che hai è un puntatore a un PAnsiChar (noto anche come puntatore di stringa in stile C). Se si passa a un puntatore a stringa, anziché un puntatore a un puntatore a stringa, non funzionerà.

Answer 2

from ctypes import * 

# Not strictly needed but it's good to be explicit. 
windll.OziAPI.oziDeleteWpByName.argtypes = [POINTER(c_char_p)] 
windll.OziAPI.oziDeleteWpByName.restype = c_int 

p = c_char_p('test') 
retval = windll.OziAPI.oziDeleteWpByName(byref(p))