delphi 调用 vc dll 问题

Question

我调用vc的dll，传送结构体参数。vc接受后从内存中拷贝出我传送的值。转换之后是乱码

Answer 1

//向终端发送门禁报警信息 
    function alarmSentDoor(var pDoorPara :Alley_ALARM_PARA):boolean;stdcall;external 'warnerdll.dll'; 
结构体定义 
Door_ALARM_PARA = record 
        cAlarmTime : array[0..MAX_ALARM_TIME_LEN] of char; //报警时间 
    cDoorID    : array[0..MAX_ALLEY_ID_LEN] of char;  //报警门号 
    cCause    : array[0..MAX_ALARM_CAUSE_LEN] of char; //报警原因 
    end; 

Answer 2

至少要把VC函数的原型以及delphi中调用过程贴出来吧！