看起来你遇到的问题主要集中在调用约定不匹配、函数名错误、参数缺失/类型不匹配这几个关键点上，咱们一步步拆解修复：

1. 先明确原Pascal函数的核心信息 #

原Pascal原型：

PROCEDURE pGetCallInfo(DriveInfo: pointer; ACall: pointer; AInfo: pointer; var AErrorCode: SmallInt); pascal; external 'raccd32a.dll';

这里有几个关键细节：

• 函数名是pGetCallInfo（不是你代码里的cGetCallInfo）
• 调用约定是pascal，对应Windows平台的stdcall调用约定（不是ctypes默认的cdecl）
• 函数接收4个参数：三个指针，一个SmallInt类型的输出参数

2. 修正ctypes调用的核心问题 #

第一步：指定正确的调用约定和函数原型 #

因为原函数是stdcall约定，你需要用windll（Windows平台）或者显式声明WINFUNCTYPE来绑定函数，而不是CDLL（CDLL对应cdecl约定，会导致栈操作错误，函数无法正确执行）。

同时，必须显式声明函数的参数类型和返回值类型，让ctypes正确处理参数转换：

from ctypes import *

# 加载DLL，用windll对应stdcall（pascal）约定
callBookDLL = windll.LoadLibrary('raccd32a.dll')

# 声明函数原型：返回值是None（因为Pascal的PROCEDURE无返回值），参数依次是三个c_void_p，一个POINTER(c_short)
pGetCallInfo = callBookDLL.pGetCallInfo
pGetCallInfo.argtypes = [c_void_p, c_void_p, c_void_p, POINTER(c_short)]
pGetCallInfo.restype = None

第二步：正确准备参数 #

• DriveInfo：需要是指向呼叫簿路径的C风格字符串指针，把Python字符串转成bytes（用encode()），然后用c_char_p或者直接传入（ctypes会自动转换，但显式更安全）
• ACall：呼号字符串，同样转成bytes
• AInfo：你用create_string_buffer(400)是对的，它会分配可写入的缓冲区，返回的是c_char_Array_400类型，本身就是指针
• AErrorCode：原函数的第四个参数是var类型（即输出参数），需要创建一个c_short变量，然后传它的指针

第三步：正确调用函数 #

修正后的完整调用代码：

# 准备参数
drive_path = self.txt_CallBookPath.text().encode('utf-8')  # 转成C风格字节串
call_sign = b'DG1ATN'  # 或者用"DG1ATN".encode()
info_buffer = create_string_buffer(400)
error_code = c_short(0)

# 调用函数
pGetCallInfo(drive_path, call_sign, info_buffer, byref(error_code))

# 检查结果
if error_code.value == 0:
    result = info_buffer.value.decode('utf-8')  # 转成Python字符串
    print("查询结果：", result)
else:
    print(f"调用失败，错误码：{error_code.value}")

3. 关键问题总结 #

• 你之前用了错误的函数名（cGetCallInfo vs pGetCallInfo），导致调用的是不存在的函数入口，虽然返回0可能是巧合，但实际没执行正确的逻辑
• 调用约定错误：pascal对应stdcall，不能用CDLL（cdecl），否则参数传递和栈清理会出错，函数无法正确写入结果
• 缺失第四个参数：原函数要求传入错误码的引用，你之前只传了三个参数，这会导致函数执行时内存访问错误，无法正确写入AInfo缓冲区
• 参数类型未显式声明：ctypes默认会做一些自动转换，但显式声明argtypes和restype能避免很多隐式转换的问题，尤其是指针类型

按照这个修正后，应该就能正确获取到AInfo里的内容了。如果还有问题，可以检查一下呼叫簿路径是否正确，或者DLL是否需要其他初始化步骤（比如有些DLL需要先调用初始化函数才能正常工作）。

内容的提问来源于stack exchange，提问作者TobbY DG1ATN