言
function ReadClockRecords(hPort: THandle; Clock_id: Integer; Style: Byte; OutData: Pchar; Kind: Byte=0):Integer
那位大哥我把上面的成VB言

[解决办法]
function ReadClockRecords(hPort as Long, Clock_id as Long, Style as Byte, OutData as String, Kind as Byte=0) as Integer
[解决办法]
delphi 中的 String是没法被VB\VC识别的格式，必须使用pchar